我在网上找到如下代码，不清楚是否能用到WINCC7.2中，如果能用，如何修改，使网络通的时候返回一个内部变量TEST=1？ 网络断的时候，TEST=0？

VBS代码如下：
网络不通后自动重启：
'═════代═══码═══开═══始═════
strMachine = "www.baidu.com"
set ws=CreateObject("wscript.shell")
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address ='" &strMachine& "'")
For Each objStatus in objPing
If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
ws.run "cmd /c shutdown -r -t 0",0
End If
Next
'Created By escortmnm from VBS团队

'[2] Ping
On Error Resume Next
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 "通":Exit For
Next