0

VBスクリプトを介して停止ボタンをクリックして、cmd.exeプロセスを強制終了したかったのです。動いていない。

.vbs ファイルとして個別に実行すると、サブルーチンは正常に動作します。

サブルーチンコードを別の.vbsファイルに保存して、htmlファイルで呼び出すことも試みました。 

<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>
4

0 に答える 0