通过Vbscript终止命令提示符进程
我想通过VB脚本单击停止按钮来终止cmd.exe进程。它不起作用 如果我将子例程作为.vbs文件单独运行，则该子例程工作正常 我甚至尝试将子程序代码保存在一个单独的.vbs文件中&在我的html文件中调用它通过Vbscript终止命令提示符进程,vbscript,Vbscript,我想通过VB脚本单击停止按钮来终止cmd.exe进程。它不起作用 如果我将子例程作为.vbs文件单独运行，则该子例程工作正常 我甚至尝试将子程序代码保存在一个单独的.vbs文件中&在我的html文件中调用它 <html> <head> <SCRIPT LANGUAGE="VBScript"> Sub stopbtn_OnClick MsgBox "Mirabile visu." strComputer = "." strProcessToK
<html>
<head>
<SCRIPT LANGUAGE="VBScript">
Sub stopbtn_OnClick
MsgBox "Mirabile visu."
strComputer = "."
strProcessToKill = "cmd.exe"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = '" & strProcessToKill & "'")
count = 0
For Each objProcess in colProcess
objProcess.Terminate()
count = count + 1
Next
wscript.echo "Killed " & count & " instances of " & _
strProcessToKill & "on " & strComputer
End Sub
</SCRIPT>
</head>
<body>
<form name="stoprc">
<tr>
<td width="80"></td>
<td><input type="button" value="Stop" name="stopbtn" ></td>
</tr>
</form>
<body>
</html>
子站Btn_OnClick
MsgBox“Mirabile visu”
strComputer=“”
strProcessToKill=“cmd.exe”
设置objWMIService=GetObject（“winmgmts:_
&“{impersonationLevel=impersonate}.\\”\u
&strComputer&“\root\cimv2”）
设置colProcess=objWMIService.ExecQuery_
（“从Win32_进程中选择*，其中Name=”&strProcessToKill&“”）
计数=0
对于colProcess中的每个objProcess
objProcess.Terminate（）
计数=计数+1
下一个
wscript.echo“已终止”&count&“的实例”&_
strProcessToKill&on&STRC计算机
端接头