获取网络连接状态【可测局域网在线状态】

Address = "smtp.qq.com"
wmi := ComObjGet("winmgmts:")
queryEnum := wmi.ExecQuery(""
        . "Select * from Win32_PingStatus where Address=" . Address)
        ._NewEnum()
if queryEnum[process] && process.ResponseTime
{
    MsgBox 连上
}

else

{
    MsgBox 没连上
}

wmi := queryEnum := process := ""
return