strSubNet = "192.168.1." 
Set objFSO= CreateObject("Scripting.FileSystemObject") 
Set objTS = objfso.CreateTextFile("e:PingResult.txt") 

For i = 1 To 254 
strComputer = strSubNet & i 
blnResult = Ping(strComputer) 
If blnResult = True Then 
objTS.WriteLine "Ping " & strComputer & " success!" 
End If 
Next 

objTS.Close 
WScript.Echo "Done!" 

Function Ping(strComputer) 
Set objWMIService = GetObject("winmgmts:\.rootcimv2") 
Set colItems = objWMIService.ExecQuery("Select * From Win32_PingStatus Where Address='" & strComputer & "'") 
For Each objItem In colItems 
Select case objItem.StatusCode 
Case 0 
Ping = True 
Case Else 
Ping = False 
End select 
Exit For 
Next 
End Function

Dynamic Activity Window动态活动窗口vbs
OptionExplicitDimoBarSetoBar=NewProgressBaroBar.StartBar"Thisisatest."WScript.Sleep(3000)oBar.SetLine"Soisthis."WScript.Sleep(3000)oBar.CloseBarClassProgressBarDimoBarCat,sProgressBarHTAFile,sProgress

可以查询系统用户名sid的vbs
setpath=wscript.createobject("wscript.shell")usera=path.ExpandEnvironmentStrings("%username%")name=inputbox("请输入你要查询的用户名","sid查询--by不追不悔",usera)strComputer="."Setwbem

VBScript使用ADSI为IIS批量添加屏蔽或允许访问的IP
'/*========================================================================='*IntroVBScript使用ADSI为IIS批量添加屏蔽或允许访问的IP'*FileNameVBScript-ADSI-IIS-Add-Deny-Grant-IP-Change-Me