Exécuter l'application ou Processus sur un ordinateur distant

J'ai besoin d'exécuter une application ou un service sur un ordinateur distant. J'ai eu du succès avec psexec de SysInternals, mais je fais des recherches sur et voudrais une des solutions de rechange.
Finalement, la commande sera exécutée à partir d'une application Delphi. Merci, Pieter.

OriginalL'auteur Pieter van Wyk | 2009-03-24

  1. 3

    Si vous souhaitez suivre l'PSexec-comme la route, voici un exemple (avec C++) de la source, appelé XCmd.

    Ou vous pouvez télécharger la mise à jour XCmd projet (maintenant appelé "La Sinistre de l'éditeur de liens') à partir de SourceForge.

    Essentiellement, il extrait un service au moment de l'exécution, il les copie sur le système distant, l'installe comme un service, puis connecte (via des canaux nommés).

    L'autre option est d'utiliser WMI intégré dans l'exécution à distance des capacités. Voici un exemple en VBScript que vous pouvez convertir à Delphes. L'exemple ci-dessous exécute le bloc-notes sur le système distant.

    ' This script provides a function for executing a command on a remote computer
' This uses WMI and requires that you have administrative righs on the remote machine
'

Dim strComputer, strCommandLineToRun

'change the period to an IP Address or computer name
strComputer = "."   'example: strComputer = "192.168.1.105"

'this is the path to the file on the computer whose name/IP address is stored in the strComputer variable
strCommandLineToRun = "c:\windows\system32\calc.exe"


' This calls the function to run the process on a remote computer
RemoteExecute strComputer,"","",strCommandLineToRun


Function RemoteExecute(strServer, strUser, strPassword, CmdLine)
    Const Impersonate = 3

    RemoteExecute = -1

    Set Locator = CreateObject("WbemScripting.SWbemLocator")
    Set Service = Locator.ConnectServer(strServer, "root\cimv2", strUser, strPassword)

    Service.Security_.ImpersonationLevel = Impersonate 
    Set Process = Service.Get("Win32_Process")

    result = Process.Create(CmdLine, , , ProcessId)

    If (result <> 0) Then
        WScript.Echo "Creating Remote Process Failed: " & result
        Wscript.Quit
    End If

    RemoteExecute = ProcessId
End Function
    +1: Ce VBScript est EXACTEMENT ce dont j'ai besoin, merci Mick.
    On dirait que quelqu'un a fait cela avec Delphi (avec la source): ciuly.com/index.php/delphi/article/1-delphi/...

    OriginalL'auteur Mick

  2. 2

    ssh est un bon choix si vous serez en streaming quelque chose de sensible. Il y a même quelques logiciels libres sshd serveurs pour windows, qui ne reposent pas sur cygwin.

    OriginalL'auteur Real John Connor

  3. 0

    L'autre possibilité serait d'utiliser les fenêtres À commande planifications des tâches via le planificateur de tâches windows. Vous pouvez soumettre des travaux à distance avec la commande tant que vous disposez d'un accès administrateur et le service de planification est en cours d'exécution sur l'autre machine. Pour examiner la syntaxe, il suffit d'ouvrir une fenêtre de commande et tapez À /?.

    par exemple de lancer quelque chose sur l'ordinateur nommé "serveur" à 4h du matin, il suffit d'entrer la commande

    AT \\server 4:00 "c:\something.bat"

    OriginalL'auteur skamradt