win7 笔记本检测电源信息，拔掉外接电源立刻关机代码

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博客