| 'Script Description. 'Kills a Windows process. '----------------------------------------- 'Declarations option explicit Dim objWMIService, objProcess, colProcess Dim strComputer, strProcessKill Dim ScriptName 'Configuration area. Set the following configuration fields for your environment. '---------------------------------------------------------- ScriptName = context.GetProperty("ActionTypeName") 'Get's the Action Name strComputer = context.GetProperty("Address") 'Gets the IP address from WUG strProcessKill = "'Winword.exe'" Context.LogMessage( ScriptName & " - Starting") Context.LogMessage( ScriptName & " - Address = " & strComputer) Context.LogMessage( ScriptName & " - Process = " & strProcessKill) 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() Context.LogMessage( ScriptName & " - Killed Process") Next Context.LogMessage( ScriptName & " - Done") |
0 Replies
Would you like to comment?
You must be a member. Sign In if you are already a member.