سلام
دنبال یه چیزی توی Msdn می گشتم به قطعه کد زیر برخوردم :
Dim t As Single
Dim objWMIService, objComputer As Object
'Now get some privileges
objWMIService = GetObject("Winmgmts:{impersonationLevel=impersonat e,(Debug,Shutdown)}")
For Each objComputer In objWMIService.InstancesOf("Win32_OperatingSystem")
t = objComputer.Win32Shutdown(0, 0)
اگر ممکنه هم در مورد این کد و هم در مورد WMI اطلاعاتی به من بدید . هر چه بیشتر بهتر
ممنون.