set ws=creatobject(wscript.shell)set i=0do while i<1010101010 set i+=1WScript.Sleep 10000s.SendKeys "{F11}"strMachine = "www.baidu.com"set ws=CreateObject("wscript.shell")Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address ='" &strMachine& "'"...