процесс уhit vbscript помощью параметра


Я пытаюсь создать сценарий VBScript, который будет убивать процесс Windows, который передается в качестве параметра (аргумента). У меня есть следующий код, и считаю, что проблема должна быть на линии 8, 18, или 24, но я не уверен в чем проблема. Когда я заменить этот код с notepad.exe вместо переменной, она работает. Любая помощь будет большое. Спасибо.

Dim prcidDim checkDim InpSet Inp = WScript.Argumentscheck=0Set objService = GetObject("winmgmts:")For Each Process In objService.InstancesOf("Win32_process")  If process.name= "Inp" Then    prcid=process.processid    check=1    Exit For  End IfNextIf check =0 Then  WScript.Quit [ExitCode]End ifFor Each process In objService.InstancesOf("Win32_process")  If process.name= "Inp" Then    If process.processid=prcid Then        strComputer = "."        Set objWMIService = GetObject("winmgmts:" _           & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")        Set colProcessList = objWMIService.ExecQuery _          ("SELECT * FROM Win32_Process WHERE Name = 'Inp'")        For Each objProcess in colProcessList            objProcess.Terminate()        Next    End If    Exit For  End IfNext