Prozess Remote starten

  • VBScript

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von p41n.

    Prozess Remote starten

    Hallo Zusammen,

    Ich komme hier an einer Stelle einfach nicht weiter. Ich hoffe, ihr könnt mir wieder so erfolgreich helfen, wie die letzten Male zuvor auch schon. :)

    Ich habe mir ein Script zusammen gestellt, welches remote einen Prozess starten soll. Lokal funktioniert alles reibungslos.
    Nur remote nicht. Das komische ist, dass er keine Fehlermeldung ausspuckt, wenn ich den Versuch remote starte.
    Laut dem Script scheint alles zu funktionieren. Nur auf dem Remoterechner sehe ich keinen Prozess, der eigentlich starten sollte.
    Meine Firewall habe ich bereits so konfiguriert, dass sie RPC (Port 135) zulässt. Mit dem Tool "wbemtest" kann ich mich auch erfolgreich mit dem Remoterechner verbinden.

    Hier der Code für die Remote Verbindung:

    Visual Basic-Quellcode

    1. Const SW_NORMAL = 1
    2. Const WbemAuthenticationLevelPktPrivacy = 6
    4. ' Konfiguration
    5. strComputer = "Ip-Adresse"
    6. strCommand = "c:\windows\system32\Notepad.exe"
    7. strUsername = "Administrator"
    8. strPassword = "Password"
    10. ' Verbindung zu WMI
    11. Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
    12. Set objWMIService = objwbemLocator.ConnectServer(strComputer, "root\cimv2", strUsername, strPassword)
    13. objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy
    15. ' Notepad so konfigurieren, dass ein Fenster gezeigt wird
    16. Set objStartup = objWMIService.Get("Win32_ProcessStartup")
    17. Set objConfig = objStartup.SpawnInstance_
    18. objConfig.ShowWindow = SW_NORMAL
    20. ' Notepad wird gestartet und ein Rückgabewert wird erstellt
    21. Set objProcess = objWMIService.Get("Win32_Process")
    22. intReturn = objProcess.Create _
    23. (strCommand, Null, objConfig, intProcessID)
    24. If intReturn <> 0 Then
    25. Wscript.Echo "Process could not be created." & _
    26. vbNewLine & "Command line: " & strCommand & _
    27. vbNewLine & "Return value: " & intReturn
    28. Else
    29. Wscript.Echo "Process created." & _
    30. vbNewLine & "Command line: " & strCommand & _
    31. vbNewLine & "Process ID: " & intProcessID
    32. End If


    Und hier der Code für die lokale Verbindung:

    Visual Basic-Quellcode

    1. Const SW_NORMAL = 1
    2. Const WbemAuthenticationLevelPktPrivacy = 6
    4. ' Konfiguration
    5. strComputer = "."
    6. strCommand = "c:\windows\system32\Notepad.exe"
    8. ' Verbindung zu WMI
    9. Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
    10. Set objWMIService = objwbemLocator.ConnectServer(strComputer, "root\cimv2")
    11. objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy
    13. ' Notepad so konfigurieren, dass ein Fenster gezeigt wird
    14. Set objStartup = objWMIService.Get("Win32_ProcessStartup")
    15. Set objConfig = objStartup.SpawnInstance_
    16. objConfig.ShowWindow = SW_NORMAL
    18. ' Notepad wird gestartet und ein Rückgabewert wird erstellt
    19. Set objProcess = objWMIService.Get("Win32_Process")
    20. intReturn = objProcess.Create _
    21. (strCommand, Null, objConfig, intProcessID)
    22. If intReturn <> 0 Then
    23. Wscript.Echo "Process could not be created." & _
    24. vbNewLine & "Command line: " & strCommand & _
    25. vbNewLine & "Return value: " & intReturn
    26. Else
    27. Wscript.Echo "Process created." & _
    28. vbNewLine & "Command line: " & strCommand & _
    29. vbNewLine & "Process ID: " & intProcessID
    30. End If



    Gruß p41n

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „p41n“ ()

    Da meine Idee nicht so recht funktionieren wollte, bin ich das Ganze nun etwas anders angegangen und habe es mit psexec realisiert.
    Für die, die es interessiert, der Code:

    Visual Basic-Quellcode

    1. 'Konfiguration
    2. strComputer = "IP-Adresse"
    3. strUsername = "Domain\Administrator"
    4. strPassword = "Password"
    5. strInstallFile = "File"
    6. StrInstallpath = "Path"
    8. 'Deklaration
    9. Set ObjShell = CreateObject("Wscript.shell")
    10. Set WshShell = WScript.CreateObject("WScript.Shell")
    11. Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2", strUsername, strPassword)
    13. 'Zuerst wird die Datei kopiert und dann mit psexec.exe ausgeführt
    14. objShell.Run "%COMSPEC% /C COPY " & strInstallPath & "\" & strInstallFile & " \\" & strComputer & "\C$\Windows\temp", 0, TRUE
    15. objShell.Run "%COMSPEC% /C c:\windows\system32\psexec \\" & strComputer & " -u strUsername -p strPassword " & StrInstallpath & "\" & strInstallFile, 1, True

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „p41n“ ()

Facebook