How to terminate a VBS File using Vb script

Question

How to terminate a VBS File using Vb script.. I tried this code and it is not working,

Call StopProcessVBS(strComputer,strProcess)

Function StopProcessVBS (strComputerArg,strProcessArg)
    Set WshShell = CreateObject("WScript.Shell")
    Dim objWMIService, colProcessList
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputerArg & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'cscript.exe' OR Name = 'wscript.exe'")
    For Each objItem in colItems
        If objItem.CommandLine = strProcessArg  Then
            **objItem.CommandLine.Terminate()**
        End If
    Next


    Set WshShell = Nothing
    Set objWMIService = Nothing
    Set colItems = Nothing
End Function

Answer 1

Finally Worked, Tried the below code

strComputer = "."
Call StopProcessVBS(strComputer,strProcess)

Function StopProcessVBS (strComputerArg,strProcessArg)
    Set WshShell = CreateObject("WScript.Shell")
    Dim objWMIService, colProcessList
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputerArg & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'cscript.exe' OR Name = 'wscript.exe'")
    For Each objItem in colItems
        If Instr (1,Replace(objItem.CommandLine,"""",""),strProcessArg)  Then
            objItem.Terminate()
        End If
    Next

    Set WshShell = Nothing
    Set objWMIService = Nothing
    Set colItems = Nothing
End Function