0

次のような VBS コードが必要です。

プロセス名を入力するための入力ボックスを表示します

以下に記述されたコードにプロセスを追加できます。

Option Explicit
Dim strComputer, strProcessToKill, objWMIService, colProcess, objProcess

strComputer = "."
strProcessToKill = "notepad.exe"
Set objWMIService = GetObject("winmgmts:" _ 
  & "{impersonationLevel=impersonate}!\\" _ 
  & strComputer _ 
  & "\root\cimv2") 
Set colProcess = objWMIService.ExecQuery _
  ("Select * from Win32_Process Where Name = '" & strProcessToKill & "'")
For Each objProcess in colProcess
  msgbox "... terminating " & objProcess.Name
  objProcess.Terminate()
Next
4

1 に答える 1

2

ラインを交換する

strProcessToKill = "notepad.exe"

と

strProcessToKill = InputBox("Enter process name:")

ただし、ユーザーが何も入力せずに押しCancelたり押したりした場合に備えて、いくつかの安全チェックを追加する必要があります。OK

If IsEmpty(strProcessToKill) Then
  WScript.Echo "User pressed 'Cancel'."
  WScript.Quit 1
ElseIf strProcessToKill = "" Then
  WScript.Echo "Nothing entered."
  WScript.Quit 1
End If
于 2013-07-14T08:39:59.193 に答える