Vbs ile Task menagerdaki Bir hizmeti sonlandırmak

merhaba bunu için bir bat dosyası kullanabilirsiniz oncelikle client uzerindeki proccessi ogrenmeniz lazım daha sonra asagıdaki komut işinizi gorur:

taskkill /IM program.exe   

kolay gelsin

merhaba bunu için bir bat dosyası kullanabilirsiniz oncelikle client uzerindeki proccessi ogrenmeniz lazım daha sonra asagıdaki komut işinizi gorur:

taskkill /IM program.exe   

kolay gelsin

Yanlıs anlamayın ama sorum gayet acıktı. Bat dosyası ile

taskkill /IM *.exe /F komutuyla yapabiliyorum fakat ben GPde Log on scriptine eklemek için illa ki VBS olsun istedim.

🙂 sorun gayet acık ama bat dosyasınıda logon logoff a ekleyebilirsiniz illla vbs kodu olcak diyosanız ugrasalım yazabilirsek geri doneriz 🙂

kolay gelsin

http://www.computerperformance.co.uk/vbscript/wmi_process_stop.htm

Bu işini görür sanırım.

http://www.computerperformance.co.uk/vbscript/wmi_process_stop.htm

 

Bu işini görür sanırım.

' ProcessKillLocal.vbs
' Sample VBScript to kill a program
' Author Guy Thomas http://computerperformance.co.uk/
' Version 2.7 - December 2005
' ------------------------ -------------------------------'
Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill
strComputer = "."
strProcessKill = "'ekrn.exe'"

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")

Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcessKill )
For Each objProcess in colProcess
objProcess.Terminate()
Next
WSCript.Echo "Just killed process " & strProcessKill _
& " on " & strComputer
WScript.Quit
' End of WMI Example of a Kill Process

Sadece altı cizili yeri değiştirdim ve uyarı vermemesi içinde

WSCript.Echo "Just killed process " & strProcessKill _
& " on " & strComputer

kaldırdım fakat calısmadı.

Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill
strComputer = "."
strProcessKill = "'calc.exe'"

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")

Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcessKill )
For Each objProcess in colProcess
objProcess.Terminate()
Next
WSCript.Echo "Just killed process " & strProcessKill _
& " on " & strComputer
WScript.Quit
' End of WMI Example of a Kill Process

WSCript.Echo "Just killed process " & strProcessKill _
& " on " & strComputer

Bu şekilde yapıp hesap makinasını açtım hiç sorunsuz şekilde sonlandırdı ?

Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill
strComputer = "."
strProcessKill = "'calc.exe'"

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")

Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcessKill )
For Each objProcess in colProcess
objProcess.Terminate()
Next
WSCript.Echo "Just killed process " & strProcessKill _
& " on " & strComputer
WScript.Quit
' End of WMI Example of a Kill Process

WSCript.Echo "Just killed process " & strProcessKill _
& " on " & strComputer

Bu şekilde yapıp hesap makinasını açtım hiç sorunsuz şekilde sonlandırdı ?

Teşekkür ederim. İstediğimi yapabildim.

Sevindim kolay gelsin.