'function: ' list all process or kill one of them 'parameter: NameorPID process's name or pid 'return: ' true if kill one process, else false Function KillProcess(NameorPID) Dim oWMI, oProcs, oProc, strSQL KillProcess = False strSQL = "SELECT * FROM Win32_Process" If NameOrPID <> "" Then If IsNumeric(NameOrPID) Then strSQL = strSQL & " WHERE Handle = '" & NameorPID & "'" Else strSQL = strSQL & " WHERE Name = '" & NameorPID & "'" End If End If Set oWMI = GetObject("winmgmts:\\.\root\cimv2") Set oProcs = oWMI.ExecQuery(strSQL) For Each oProc In oProcs If IsNumeric(NameOrPID) Then oProc.Terminate WScript.Echo oProc.Name & "(" & oProc.Handle & ") was killed!" KillProcess = True Else WScript.Echo "Name: " & oProc.Name & vbTab & "PID: " & oProc.Handle & _ vbCrLf & vbTab & "Path: " & oProc.ExecutablePath End If Next Set oProc = Nothing Set oProcs = Nothing Set oWMI = Nothing End Function
'function: ' reboot or shutdown operating system 'parameter: ' RorS "r"=reboot, "s" or others="shutdown" 'return: ' none Function Reboot(RorS) Dim oWMI, oSys, oOpSys Set oWMI = GetObject("winmgmts:{(shutdown)}!\\.\root\cimv2") Set oOpSys = oWMI.ExecQuery("SELECT * FROM Win32_OperatingSystem") For Each oSys In oOpSys If Instr(LCase(RebootOrShut),"r") > 0 Then WScript.Echo "Reboot..." oSys.Reboot Else WScript.Echo "Shuting down..." oSys.Shutdown End If Next Set oOpSys = Nothing Set oSys = Nothing Set oWMI = Nothing End Function
