Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- https://sites.google.com/site/khuvuonxanh
- === End Process By TASKKILL.EXE ===
- Dim Exec, oShell
- Set oShell = CreateObject("Wscript.Shell")
- Dim INTWINDOWSTYLE, BWAITONRETURN
- INTWINDOWSTYLE = 0
- BWAITONRETURN = True
- Exec = oShell.Run("%SYSTEMROOT%\SYSTEM32\TASKKILL.EXE /F /IM EXPLORER.EXE", INTWINDOWSTYLE, BWAITONRETURN)
- === End Process By OBJECT WINMGMTS ===
- Dim oServ, cProc, oProc
- Set oServ = GetObject("winmgmts:")
- Set cProc = oServ.ExecQuery("Select * from Win32_Process")
- For Each oProc In cProc
- If UCase(oProc.Name) = "EXPLORER.EXE" Then oProc.Terminate()
- Next
- ====
- Have a nice day © ManMan89
Advertisement
Add Comment
Please, Sign In to add comment