Remote Computer Shutdown
On the day of the holidays long ago, a friend, the other through the phone asks for help to turn off the computer in the room works, because he forgot to turn off the computer locks the room after work and now the keys with him outside the city. In the space EDP (Electronic Data Processing) itself does not have a tool for remote and shutdown from a remote computer (for security reasons). Internet access was sometimes feels slow because many users are active before the holiday. Are there any other way to turn off the computer from a remote? Still! Namely how to use the vbs script. How? Type the following script in Notepad ago lali.vbs name and change Save as type All Files become (*.*).
Dim NK
Dim Sistem
Dim solo
NK=InputBox(“Nama Komputer:”,”Program shutdown”)
If (NK = “”) Then Wscript.Quit
kompu=UCase(NK)
Set solo = GetObject(“winmgmts:{(Debug,RemoteShutdown)}//” & NK & “/root/cimv2″).ExecQuery(“Select * from Win32_OperatingSystem where Primary=true”)
pesan = “Shutdown Komputer [" & NK & "] Sukses!”
for each Sistem in solo
Sistem.Win32Shutdown(1)
y = msgbox(pesan,vbOKOnly + vbExclamation,”Program Shutdown”)
next
set Sistem = nothing
set solo = nothing
Run the program with a double click on the icon lali.vbs then enter the name or IP Address of the computer that will turn off. If successful it will be out a message that the computer was turned off. Helping people is fun. Give it a try!
