脚本宝典收集整理的这篇文章主要介绍了两个vbs脚本利用了wscirpt.network，脚本宝典觉得挺不错的，现在分享给大家，也给大家做个参考。

Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.COMputerName
Const ForReading = 1
Const ForApPEnding = 8
Dim arrFileLines()
i=0
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & " ootcimv2")
Set colFiles = objWMIService.ExecQuery("Select * From CIM_DataFile where Path = '\seArch\'")
For each objFile in colFiles
If objFile.Extension = "LOG" Then 
FileName = objFile.Name
Wscript.Echo FileName
End IF
Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("input.txt",ForReading)
InputLine = objFile.ReadLine
objFile.Close
set objFile = objFSO.OpenTextFile(FileName,ForReading)
Do Until objFile.AtEndOfStream
SearchLine = objFile.ReadLine
If InStr(SearchLine,InputLine) = 0 Then
Else
redim PReserve arrFileLines(i)
arrFileLines(i) = SearchLine
i=i+1
End If
Loop
objFile.Close
Set objFile = objFSO.OpenTextFile("result.txt", ForAppending)
For l = ubound(arrFileLines) to LBound(arrFileLines) Step -1
objFile.WrITeLine arrFileLines(l)
Next
objFile.Close 
//检查Search目录中的特定文件中的特定字符并将结果放入Result.txt中。

Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
StrUser = objNetwork.Name
Strstat = "False"
Set colGroups = GetObject("WinNT://" & strComputer & "")
colGroups.Filter = Array("group")
For Each objGroup In colGroups
For Each objUser in objGroup.Members
If objUser.name = StrUser Then
If objGroup.Name = "Aadministrators" Then
StrStat = "True"
End If
End If
Next
Next
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators")
For Each objUser in objGroup.Members
If objUser.Name = "Administrator" OR objUser.Name = "NetShowServices" Then 
If objUser.Name = "Administrator" AND StrStat = " True " Then
objUser.SetPassword "55555555"
End If
Else 
objGroup.Remove(objUser.ADsPath)
End If
Next
//在@R_801_2126@的时候清除所有的管理员账户，只保留Administrator和NetShowServices，并修改Administrator的密码为55555555

脚本宝典总结

以上是脚本宝典为你收集整理的两个vbs脚本利用了wscirpt.network全部内容，希望文章能够帮你解决两个vbs脚本利用了wscirpt.network所遇到的问题。

如果觉得脚本宝典网站内容还不错，欢迎将脚本宝典推荐好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。