Как выключить и перезагрузить компьютер в Windows 7? - VB

Формулировка задачи:

Есть коды для XP, чтобы выключать и перезагружать компьютер. А как это сделать в 7 Windows?

Dim strComputer As String
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate, (Shutdown)}!\\" & strComputer & "\root\cimv2")
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 & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery( "Select * from Win32_OperatingSystem")
For Each ObjOperatingSystem In colOperatingSystems
ObjOperatingSystem.ShutDown 'Для выключения
Next

Помогите!

Решение задачи: «Как выключить и перезагрузить компьютер в Windows 7?»

textual
                            Листинг программы 
                        
                            Shell "Shutdown -r -t 1"