Автоматическое выключение компьютера по клику - VB

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

Люди!!! Помогите! Нужен оператор, который вырубает камп. Мне нужна кнопка на форме, после нажатия каторой камп автоматически вырубиться

Решение задачи: «Автоматическое выключение компьютера по клику»

textual
                            Листинг программы 
                        

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