• Здраво и добредојдовте на форумот на IT.mk.

    Доколку сеуште не сте дел од најголемата заедница на ИТ професионалци и ентузијасти во Македонија, можете бесплатно да се - процесот нема да ви одземе повеќе од 2-3 минути, а за полесна регистрација овозможивме и регистрирање со Facebook и Steam.

[VBScript]WMI. Logiranje so razlichni useri i 'ubivanje' na proces

  • Ја почнал/а темата
  • #1

S

pwnz0r1lla
8 март 2007
1,550
52
www.it.com.mk
Код:
'Dim strComputerName ' The Computer Name to be queried via WMI
'Dim strWinMgt		' The WMI management String
Dim Processes		'Hold Processes
Dim ProcessInfo, Process, PCap, PID, Retval
Dim colProcessList, objProcess
'On Error Resume Next
Sub ListShares(  strComputer, strUser, strPassword, strProcessKillName )
     Dim strObject
     Dim objLocator, objWMIService, objShare
     Dim colShares
     Set objLocator = CreateObject( "WbemScripting.SWbemLocator" )
     Set objWMIService = objLocator.ConnectServer ( strComputer, "root/cimv2", strUser, strPassword )
     objWMIService.Security_.impersonationlevel = 3
 Set colProcessList = objWMIService.ExecQuery ("SELECT * FROM Win32_Process WHERE Name = '" & strProcessKillName & "' ")
 For Each objProcess in colProcessList
     objProcess.Terminate()
 Next
    
 End Sub
 ' ****************************************************************************
 ' Main the stuff above is just a func it calls 
 ' ****************************************************************************
 Dim strComputer, strUser, strPassword, strProcessKillName
 Do
    strComputer = inputbox( "Please enter the name of a computer in your network (or . for local host)", "Input" )
 Loop until strComputer <> ""
 Do
    strUser = inputbox( "Please enter username", "Input" )
 Loop until strUser <> ""
 Do
    strPassword = inputbox( "Please enter password", "Input" )
 Loop until strPassword <> ""
 Do
    strProcessKillName = inputbox( "Please enter Name of Exe to Kill", "Input" )
 Loop until strProcessKillName <> ""
 ListShares strComputer, strUser, strPassword, strProcessKillName
 WScript.Echo( vbCrlf & "Ready." & vbCrlf & "Process Kill " & strProcessKillName & " is done" )
 

Нови мислења

Последни Теми

Статистика

Теми
43,507
Мислења
822,166
Членови
28,046
Најнов член
hittrajkovski
На врв Дно