请问下关机VBS脚本或者批处理

请教下关机VBS脚本或者批处理
请教下关机VBS脚本或者批处理
 
要求： 当网络断开时候自动执行关机脚本 ，倒计时20分钟
  当网络连接时候自动取消关机


[解决办法]
简单点就是ping一个网址，根据成功与否来判断执行相应的操作，不足就是那个网址挂了就不准了，不过ping www.hao123.com我想的话挂掉的可能性不大，呵呵

[解决办法]
while(1){
sleep 60
if(test-connection -count 1 192.168.8.97 -ErrorAction SilentlyContinue){$errtime=$null}
elseif($errtime -eq $null){$errtime=get-date}
if(((get-date)-$errtime).Minutes -gt 20){(gwmi win32_operatingsystem).Win32Shutdown(12)}
}

powershell脚本，每分钟测试一下连通性，如果是通的$errtime就是空值，如果不通且$errtime就设置开始计时.当前时间和计时时间相差20分钟后，Forced Power Off。
[解决办法]
要多几个条件来测试才好，避免误报。ip地址可以是个列表。
也可以用脚本进行邮件通知，最好是能短信通知多方，以确认不是误报，毕竟机器关掉后，可能影响业务。
最好是通知机房关机。
[解决办法]

BatchFile code

@echo off:aping baidu.com -n 1 -l 0 -w 3000 >nul&&goto astart shutdown -s -t 1200:bping baidu.com -n 1 -l 0 -w 3000 >nul&&(shutdown -a&&goto a)||goto b
[解决办法]
要注意2003系统shutdown只支持600秒延时
[解决办法]
给楼主写了个VBS，实现起来比较完美，在后台执行，每30秒PING一次网关IP，如果不通，追加20分钟计时，如果在这20分钟内网关PING通，取消执行关机，如果20分钟到了还PING不通就立即执行关机。

这个VBS相对批处理耗用资源少，后台静默运行，及时也较准。

代码已经给你在2003下面测试通过

VBScript code
'赋值IP或者域名给strHoststrHost = "192.168.0.1"'关机时间状态，用来避免循环中改写关机计时时间和取消关机sdOld = True'循环开始，如要结束运行只能终止进程Do'循环开始首先获取当前时间nowTime = FormatDateTime(Time, vbShortTime)'如果PING不通而且未设置关机计时时间，将设置计时20分钟if Ping(strHost) = False and sdOld = True Then  sdOld = False  nextTime = FormatDateTime(DateAdd("n" , 20, now), vbShortTime)End if'如果PING通取消关机if Ping(strHost) = True Then  sdOld = TrueEnd if'如果当前时间等于关机时间，而且计时未取消，立即执行关机if nowTime = nextTime and sdOld = False Then  CreateObject("WScript.Shell").Exec("shutdown -s -t 0 -d P:4:1")End if'等待30秒进行下次循环Wscript.Sleep 30000LoopFunction Ping(strHost)  Set objPing = GetObject("winmgmts:").Get("Win32_PingStatus.Address='" & strHost & "'")  If ISNull(objPing.StatusCode) or objPing.StatusCode<>0 Then    Ping = False  Else    Ping = True  End IfEnd Function
[解决办法]
xue学习了学习了