I write the vbscript that kill excel.exe

but it shows the error message as title.

Could you please help me to solve it.

thx.

Set ArgObj = WScript.Arguments
strComputer = ArgObj(0)

strUser = strComputer & "\" & ArgObj(1)
rem strComputer & "\" & ArgObj(1)
strPassword = ArgObj(2)
strNamespace = "root/cimv2"
str = ""

Dim objWMIService, colProcessList
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objLocator.ConnectServer(strComputer,strNamespace,strUser,strPassword)
Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'excel.exe'")
For Each objProcess in colProcessList 
   objProcess.Terminate() 
Next  


wscript.echo "no result yet"

Article Comments

Attention: This article is a record of a conversation with the Paessler support team. The information in this conversation is not updated to preserve the historical record. As a result, some of the information or recommendations in this conversation might be out of date.

Dear orientorient

The script output must adhere to the PRTG custom sensor API. If you use the Exe/Scipt Advanced sensor, the script must provide a compatible XML or JSON. If a single channel is enough, the Exe/Scipt sensor (the non-Advanced version) should be sufficient.

The output format of that sensor is

value:message

for example

0:no results yet

Please find the custom sensor documentation in the PRTG webinterface, menu Setup | PRTG API, tab "Custom Sensors".


Sep, 2016 - Permalink