temp

set fs =createobject("scripting.filesystemobject")
set ts=fs.opentextfile("C:\Users\Administrator\WeChatProjects\miniprogram-1\pages\logs\x.vbs",1,true)
contents=ts.readall

' wscript.echo contents
dim outfileStr
outfileStr ="C:\Users\Administrator\WeChatProjects\miniprogram-1\pages\logs\x2.vbs"
    set fw =fs.CreateTextFile(outfileStr)
 
 
        ' fw.write contents
fw.close
 u = "http://www.baidu.com"
 ip = "www.baidu.com"
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & ip & "'")
For Each objStatus in objPing
    if objStatus.ResponseTime>0 then
        msgbox 123 
    else 
            msgbox 456 
            exit for
    end if
Next