:: topengdigital ::

biasanya anda menghentikan/stop program menggunakan ctrl + alt + del, cara itu juga bisa digunakan menggunakan script vbs . misalkan kita mau mematikan program yang berjalan itu calculator jika kita lihat di task manager ( menggunakan ctrl + alt + del ) program tersebut adalah calc.exe ,maka cara mengentikannya menggunakan vbs sebagai berikut :

‘ ProcessKillLocal.vbs
‘ Sample VBScript to kill a program
‘ modified by topengdigital
‘ Version 1.0 - 25 april 2007
‘ ———————— ——————————-’
Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill
strComputer = “.”
strProcessKill = “‘calc.exe’”

Set objWMIService = GetObject(”winmgmts:” _
& “{impersonationLevel=impersonate}!\\” _
& strComputer & “\root\cimv2″)

Set colProcess = objWMIService.ExecQuery _
(”Select * from Win32_Process Where Name = ” & strProcessKill )
For Each objProcess in colProcess
objProcess.Terminate()
Next
WSCript.Echo “Program sudah dimatikan ” & strProcessKill _
& ” by : topengdigital” & strComputer
WScript.Quit
‘ End

atau anda juga bisa menggunakan script dibawa ini

Option Explicit
‘On Error Resume Next
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill
Dim WshShell, ProcID
strComputer = “.”
strProcessKill = “‘calc.exe’”
Set WshShell = WScript.CreateObject(”WScript.Shell”)
Set objWMIService = GetObject(”winmgmts:” & “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2″)
Set colProcess = objWMIService.ExecQuery(”Select * from Win32_Process Where Name = ” & strProcessKill)
If colProcess.Count = 0 Then
WshShell.LogEvent 2, “WARNING: Process ” & strProcessKill & ” hasn’t been found in the list of running processes at ” & Time() & ” on ” & Date()
Else
For Each objProcess in colProcess
ProcID = objprocess.Processid
objProcess.Terminate()
If Err.Number = 0 Then
WshShell.LogEvent 0, “SUCCESS: Process ” & strProcessKill & ” with PID= ” & ProcID &” process has been killed at ” & Time() & ” on ” & Date()
Else
WshShell.LogEvent 1, “FAILURE: Failed to Kill process ” & strProcessKill & Time() & ” on ” & Date()
End If
Next
End If
WScript.Quit

jika anda ingin mematikan lain program anda bisa mengganti calc.exe dengan nama program
yang akan anda hapus dan jangan lupa copy vbs script tersebut ke notepad dan simpan dengan
nama terserah anda yang wajib menggunakan extention vbs.

topengdigital.blogsome.com