Контроль АКБ по LPT

[Chip]

Вот так можно.

Dim strComputer As String
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate, _
(Shutdown)}!\" & strComputer & "rootcimv2")
Set colOperatingSystems = objWMIService.ExecQuery( _
 "Select * from Win32_OperatingSystem")
For Each ObjOperatingSystem In colOperatingSystems
   ObjOperatingSystem.Reboot ' Для перезагрузки
Next

и: 
Dim strComputer As String

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & _ 
"{impersonationLevel=impersonate,(Shutdown)}!\" & strComputer & "rootcimv2")
Set colOperatingSystems = objWMIService.ExecQuery( _ 
"Select * from Win32_OperatingSystem")

For Each ObjOperatingSystem In colOperatingSystems

ObjOperatingSystem.ShutDown 'Для выключения

Next