两个vbs脚本利用了wscirpt.network

1. Set objNetwork = CreateObject("Wscript.Network")  
2. strComputer = objNetwork.ComputerName  
3. Const ForReading = 1  
4. Const ForAppending = 8  
5. Dim arrFileLines()  
6. i=0  
7. Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & " ootcimv2")  
8. Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where Path = '\search\'")  
9. For Each objFile in colFiles  
10. If objFile.Extension = "log" Then   
11. FileName = objFile.Name  
12. Wscript.Echo FileName  
13. End IF  
14. Next  
15. Set objFSO = CreateObject("Scripting.FileSystemObject")  
16. Set objFile = objFSO.OpenTextFile("input.txt",ForReading)  
17. InputLine = objFile.ReadLine  
18. objFile.Close  
19. set objFile = objFSO.OpenTextFile(FileName,ForReading)  
20. Do Until objFile.AtEndOfStream  
21. SearchLine = objFile.ReadLine  
22. If InStr(SearchLine,InputLine) = 0 Then  
23. Else  
24. Redim Preserve arrFileLines(i)  
25. arrFileLines(i) = SearchLine  
26. i=i+1  
27. End If  
28. Loop  
29. objFile.Close  
30. Set objFile = objFSO.OpenTextFile("result.txt", ForAppending)  
31. For l = Ubound(arrFileLines) to LBound(arrFileLines) Step -1  
32. objFile.WriteLine arrFileLines(l)  
33. Next  
34. objFile.Close   

//检查Search目录中的特定文件中的特定字符并将结果放入Result.txt中。

1. Set objNetwork = CreateObject("Wscript.Network")  
2. strComputer = objNetwork.ComputerName  
3. StrUser = objNetwork.Name  
4. StrStat = "False"  
5. Set colGroups = GetObject("WinNT://" & strComputer & "")  
6. colGroups.Filter = Array("group")  
7. For Each objGroup In colGroups  
8. For Each objUser in objGroup.Members  
9. If objUser.name = StrUser Then  
10. If objGroup.Name = "Aadministrators" Then  
11. StrStat = "True"  
12. End If  
13. End If  
14. Next  
15. Next  
16. Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators")  
17. For Each objUser in objGroup.Members  
18. If objUser.Name = "Administrator" OR objUser.Name = "NetShowServices" Then   
19. If objUser.Name = "Administrator" AND StrStat = " True " Then  
20. objUser.SetPassword "55555555"  
21. End If  
22. Else   
23. objGroup.Remove(objUser.ADsPath)  
24. End If  
25. Next  

//在用户登陆的时候清除所有的管理员账户，只保留Administrator和NetShowServices，并修改Administrator的密码为55555555