VBS 批量Ping

视频链接：https://www.bilibili.com/video/BV1k341177K5/

'判断当前VBS脚本是否由CScript执行
If InStr(LCase(WScript.FullName), "cscript.exe") = 0 Then
	'若不是由CScript执行，则使用CScript重新执行当前脚本
	Set objShell = CreateObject("Shell.Application") 
	objShell.ShellExecute "cscript.exe", """" & WScript.ScriptFullName & """", , , 1
	WScript.Quit	'退出当前程序
End If

'----------------------------------------------------------------------------------------------

Set		objFSO		= CreateObject("Scripting.FileSystemObject")
'创建日志文件
Set		fileLog		= objFSO.CreateTextFile("Ping运行结果(" &_
								Year(Now()) & "-" & Month(Now()) & "-" & Day(Now()) & " " &_
								Hour(Now()) & "-" & Minute(Now()) & "-" & Second(Now()) & ").txt", True)

'----------------------------