Dim wsh
strComputer = "." ' 可替换成远程计算机名
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set wsh = CreateObject("wscript.shell")
do
Set colItems = objWMIService.ExecQuery("Select * From Win32_Battery")
For Each objItem in colItems
rem WScript.Echo "BatteryStatus: " & objItem.BatteryStatus
if objItem.BatteryStatus = 1 then
wsh.run "shutdown -s -t 0",0 ,true
rem else
rem wsh.run "shutdown -a",0 ,true
end if
Next
Wscript.sleep(5000)
rem exit do
loop
win7 笔记本检测电源信息,拔掉外接电源立刻关机代码
引用:
【VBS】关于VBS的三种循环&代码示例_vbs循环_Yooky.的博客-CSDN博客VBS代码(二)_vbs关机代码_#摸鱼.的博客-CSDN博客