为了管理方便写了一个自动关机的脚本:
set ws=Wscript.CreateObject("Wscript.shell")
str="系统将在一分钟后自动关机,请大家做好保存工作~"
dim value
ws.run ("cmd.exe /c schtasks /create /tn 关机 /tr c:\windows\shutdown.vbs /sc DAILY /st 23:10:00 /ru System"),0
value =msgbox(str,vbinformation+vbsystemmodel,"注意：")
ws.appactivate "注意："
Wscript.sleep 100
Ws.sendkeys (vbcr)
wscript.sleep 60000
Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Win32Shutdown(1)
Next
但不点确点,脚本不能绕过msgbox实现关机啊,在VBSCRIPT里怎么绕过这个提示框?让后面的也并发执行?
set ws=Wscript.CreateObject("Wscript.shell")
str="系统将在一分钟后自动关机,请大家做好保存工作~"
dim value
ws.run ("cmd.exe /c schtasks /create /tn 关机 /tr c:\windows\shutdown.vbs /sc DAILY /st 23:10:00 /ru System"),0
value =msgbox(str,vbinformation+vbsystemmodel,"注意：")
ws.appactivate "注意："
Wscript.sleep 100
Ws.sendkeys (vbcr)
wscript.sleep 60000
Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Win32Shutdown(1)
Next
但不点确点,脚本不能绕过msgbox实现关机啊,在VBSCRIPT里怎么绕过这个提示框?让后面的也并发执行?
,谢谢..用这个就跳过了~~