La tentative de copie de fichier d'un PC XP à l'autre à l'aide de WMI, depuis RPC et de l'UNC ne sont pas disponibles

Je suis nouveau sur VBScript. Je ne peux pas trouver un moyen de copier des fichiers à partir d'un XP hôte à un autre à l'aide de WMI dans un VBS. La manière habituelle de copie de fichiers (RPC Remote Procedure Call, SMB, UNC) ne sont pas disponibles pour plusieurs hôtes, mais WMI est disponible pour tous les hôtes, et j'ai besoin de copier des fichiers à partir de mon admin hôte à une cible hôte Windows. Je pensais trouver un exemple de code, mais j'ai trouvé aucune info sur elle. N'ai rien trouvé à me dire qu'il ne peut pas être fait, soit.

Les fichiers source sont un exécutable et 'test1.txt" dans mon ordinateur de l'administrateur "F:\TEMP' dossier. Je veux mettre les fichiers sur l'hôte distant HOST1 "C:\TEMP' dossier. J'en ai plein les droits d'admin sur les deux hôtes. Voici ce que j'ai à ce jour, juste pour un fichier (pour faire le test simple):

strComputer = "HOST1"
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery( _
    "Select * from Win32_Directory where Name = 'c:\\temp'")
For Each objFiles in colFiles
    errResults  = objFolder.Copy("f:\temp\test1.txt")
    Wscript.Echo errResults
Next
msdn.microsoft.com/en-us/library/windows/desktop/...
thx Boo, mais ce lien ne veut pas dire que les méthodes sur la copie de fichiers vers un autre ordinateur hôte à l'aide de WMI
Où est objFolder déclaré? Cela pourrait être une mauvaise var nom? Aussi, je ne suis pas familier avec VB script, mais cela ressemble à de la copie d'un seul et même fichier dans une boucle, ce qui est étrange. (Je ne suis pas à la traîne, tout en s'assurant d'autres erreurs n'entraînent pas le problème)

OriginalL'auteur Lizz | 2012-08-01

  1. 6

    J'ai appris que WMI ne peut pas créer des fichiers sur un ordinateur distant, et il est impossible de copier des fichiers sur un réseau de connexion:
    http://msdn.microsoft.com/en-us/library/windows/desktop/aa389288%28v=vs.85%29.aspx

    Cependant, il peut exécuter une commande de processus. Voici Frank White code en C sharp, suivi par son exemple:
    https://stackoverflow.com/a/8913231/1569434

    InputParameters("CommandLine") = "cmd /c echo myFTPCommands > c:\ftpscript.txt"

    Vous aurez besoin de quatre choses à utiliser tous les scriptlets, qui appuient les uns sur les autres à utiliser psexec pour exécuter un "normal" VBScript ou script de commandes sur l'hôte distant:

    1. des droits d'administrateur sur l'ordinateur distant;
    2. WMI activé sur l'hôte distant
    3. un partage réseau (à l'aide de RPC, UNC, FTP, etc., mais PAS DFS! ("Distributed File System" - voir note) que votre hôte distant peut accéder; et
    4. psexec.exe et votre "normal" de script(s) sur le partage réseau.

    Remarque importante: Ne PAS utilisation DFS à la carte du réseau action! Il sera échouer si vous utilisez le Système de Fichiers Distribués pour votre partage réseau. Un code d'erreur que vous pourriez obtenir en fonction de comment vous essayez est "Erreur système 1312", n'importe quel système d'exploitation (par exemple, XP, Win 7) que vous utilisez.

    Lors de la RPC n'est pas disponible sur un hôte distant, mais WMI est le cas, alors la méthode suivante va créer un local de fichier ASCII sur l'hôte distant est c:\temp dossier contenant le texte "myTextCommands", sans les guillemets.

    ' https://stackoverflow.com/questions/8884728/wmi-remote-process-to-copy-file
strCommand = "cmd /c echo myTextCommands > c:\temp\testscript.txt"
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
Set objProcess = objWMIService.Get("Win32_Process")
errReturn = objProcess.Create(strCommand, null, null, intProcessID)
' See following link for error codes returned by errReturn
' http://msdn.microsoft.com/en-us/library/windows/desktop/aa389388(v=vs.85).aspx

    Avis de la limitation importante dans le script ci-dessus: il ne peut créer des fichiers ASCII - pas binaire.

    Nous allons utiliser cette technique pour mapper une lettre de lecteur:

    strCommand = "cmd /c net use z: " & MyShare & " /user:%USERDOMAIN%\%USERNAME% " _
    & strPassword & ">" & strRemoteLog
Set objProcess = objWMIService.Get("Win32_Process")
Call errProcess

    où "strRemoteLog" est défini comme "c:\temp\MyLog.txt", "strPassword" est invité (voir texte intégral de script d'exemple et de référence à fond), et "errProcess" est un sous-programme qui exécute le processus suivant à l'aide de la "cmd /c" truc mentionnés ci-dessus:

    Sub errProcess
errReturn = objProcess.Create(strCommand, null, null, intProcessID)
If errReturn = 0 Then
    Wscript.Echo "Process was started with a process ID: " & intProcessID
    WScript.Sleep 5000
Else
    Wscript.Echo "Process could not be started due to error: " & errReturn
End If
End Sub

    Avec un lecteur réseau mappé, copie de votre script à l'hôte:

    strCommand="cmd /c xcopy Z:\scripts\SCRIPT1.bat c:\temp\ >>" & strRemoteLog
Call errProcess

    SCRIPT1.chauve-souris est prêt, commencez donc par psexec contre sur l'hôte distant, en passant votre script une variable strUserID qui serait obtenu précédemment et ici, par exemple:

    strCommand="cmd /c Z:\psexec \\%COMPUTERNAME% /accepteula -s -n 120 " _
    & cmd /c c:\temp\SCRIPT1.bat " & strUserID & ">>" & strRemoteLog
Call errProcess

    Une fois psexec finitions, vous voudrez peut-être enregistrer les résultats. Si vous renommez le fichier journal, vous la téléchargez, annuler le mappage de votre lecteur, et de nettoyer les fichiers résiduels:

    strCommand="cmd /c REN " & strRemoteLog & " SCRIPT1-%COMPUTERNAME%.txt"
Call errProcess
strCommand="cmd /c MOVE /Y c:\temp\SCRIPT1*.txt Z:\scripts\LOGS\"
Call errProcess
strCommand="cmd /c net use * /del /Y"
Call errProcess
strCommand="cmd /c del c:\temp\SCRIPT1*.bat /q"
Call errProcess

    Vous avez terminé. Vous avez correctement mappé un lecteur, d'exécuter une routine de script contre l'hôte distant, et téléchargé à sa sortie.

    Remarque: cette méthode fonctionne également sur Windows 7 et Windows 2008 avec l'UAC.

    Voici le plein "échantillon" de script intégré. N'hésitez pas à suggérer des correctifs, améliorations, etc.

    On Error Resume Next
MyShare="\\SHARE1"
strRemoteLog="c:\temp\MapZ.txt"
' Set remote hostname
strComputer="HOST2"
'strComputer = InputBox("Enter Computer name", _
'"Find PC", strComputer)
' Set remote userid
strUserID="USERID1"
'strComputer = InputBox("Enter userid", _
'"Find User", strComputer)
' Enumerate cimv2 on remote host strComputer
Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=Impersonate}!//" & strComputer & "\root\cimv2")
' Verify remote host exists on domain
If( IsEmpty( objWMIService ) = True ) Then
WScript.Echo( "OBJECT_NOT_INITIALIZED :: " & strComputer )
WScript.Quit( OBJECT_NOT_INITIALIZED )
End If
' Prompt for masked password
strPassword=GetPass
' Build and run command to execute on strComputer
strCommand = "cmd /c net use z: " & MyShare & " /user:%USERDOMAIN%\%USERNAME% " & strPassword & ">" & strRemoteLog
Set objProcess = objWMIService.Get("Win32_Process")
Call errProcess
' Copy script(s) from MyShare to HOST2 since psexec cannot run scripts on shared drives
strCommand="cmd /c xcopy Z:\scripts\cleanpclocal.bat c:\temp\ /V /C /I /Q /H /R /Y>>" & strRemoteLog
Call errProcess
' Change directory to c:\temp
'strCommand="cmd /c cd c:\temp>" & strRemoteLog
'Call errProcess
' Start PSEXEC against script
strCommand="cmd /c Z:\psexec \\%COMPUTERNAME% /accepteula -s -n 120 cmd /c c:\temp\cleanpclocal.bat " & strUserID & ">>" & strRemoteLog
Call errProcess
' Rename logfile to include hostname, upload to share,  unmap networked drive, and delete script
strCommand="cmd /c REN " & strRemoteLog & " cleanpc-%COMPUTERNAME%.txt"
Call errProcess
strCommand="cmd /c MOVE /Y c:\temp\clean*.txt Z:\scripts\LOGS\"
Call errProcess
strCommand="cmd /c net use * /del /Y"
Call errProcess
strCommand="cmd /c del c:\temp\clean*.bat /q"
Call errProcess
WScript.Quit
' ***********
' APPENDIX
' Subroutines, functions
' ***********
' **SUBROUTINES**
'strCommand="cmd /c dir z:\scripts\>" & strRemoteLog ' Works to get dir of z:\scripts\
' Function to handle errReturn
Sub errProcess
WScript.Echo "strCommand=" & strCommand
errReturn = objProcess.Create(strCommand, null, null, intProcessID)
If errReturn = 0 Then
Wscript.Echo "Process was started with a process ID: " & intProcessID
WScript.Sleep 5000
Else
Wscript.Echo "Process could not be started due to error: " & errReturn
End If
WScript.Echo
' Error return codes for Create method of the Win32_Process Class
' http://msdn.microsoft.com/en-us/library/windows/desktop/aa389388(v=vs.85).aspx
' 0=Successful Completion
' 2=Access Denied
' 3=Insufficient Privilege
' 8=Unknown failure
' 9=Path Not Found
' 21=Invalid Parameter
End Sub
' **FUNCTIONS**
' Subroutine to get masked password
Function GetPass
' Mask Passwords Using Internet Explorer
' Ensure you follow the technet.com instructions and create file password.htm
' http://blogs.technet.com/b/heyscriptingguy/archive/2005/02/04/how-can-i-mask-passwords-using-an-inputbox.aspx
Set objExplorer = WScript.CreateObject _
("InternetExplorer.Application", "IE_")
objExplorer.Navigate "file:///C:\SCRIPTS\password.htm"   
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width = 400
objExplorer.Height = 350 
objExplorer.Left = 300
objExplorer.Top = 200
objExplorer.Visible = 1             
Do While (objExplorer.Document.Body.All.OKClicked.Value = "")
Wscript.Sleep 250                 
Loop 
strPassword = objExplorer.Document.Body.All.UserPassword.Value
strButton = objExplorer.Document.Body.All.OKClicked.Value
objExplorer.Quit
Wscript.Sleep 250
If strButton = "Cancelled" Then
Wscript.Quit
'Else
'    Wscript.Echo strPassword
End If
' Return the password
GetPass = strPassword
End Function
    Génial writeup!
    vous avez été la source d'inspiration, Frank, de sorte que je vous remercie! 🙂

    OriginalL'auteur Lizz

  2. 1

    Tout d'abord, je pense qu'il y a une faute de frappe dans votre code où vous avez écrit:

    errResults  = objFolder.Copy("f:\temp\test1.txt")

    Je pense que vous vouliez dire:

    errResults  = objFiles.Copy("f:\temp\test1.txt")

    Deuxièmement, je ne sais pas si ce que vous essayez de faire est possible. Je pense que le code que vous avez peut copier un fichier à partir d'un répertoire sur l'ordinateur distant vers un autre répertoire sur l'ordinateur distant.

    Pour une solution si, si WMI est disponible à distance sur tous les ordinateurs, ce qui signifie qu'au moins un port est ouvert. Si c'est le cas, existe-il d'autres ports qui sont ouverts? Si oui, peut-être que vous pourriez mettre en place un serveur FTP sur votre administrateur de l'hôte sur le port X et ensuite les autres hôtes envoyer le fichier par l'automatisation de la valeur par défaut XP client FTP.

    Merci, ho1! Votre typo, la correction est correcte. Aussi, je crois que vous avez raison à propos de WMI n'est pas possible (encore?) de la copie des fichiers sans utiliser un externe de la technologie, comme le FTP, le RPC, etc. Je vais mettre à jour mon script 1) la carte sur un partage réseau et copie de fichier(s) à ce dossier partagé; 2) se connecter à l'ordinateur distant en utilisant WMI; et 3) la carte de l'action du réseau et tirez le dossier vers le bas. Je vais mettre à jour cette question lorsque vous êtes prêt. Je souhaite juste que Microsoft serait de définir clairement WMI...

    OriginalL'auteur Hans Olsson

  3. 1

    Je sais que cette question est ancienne, mais il est venu à travers, c'est quand j'ai essayé de trouver une solution afin pensé serait de diriger les gens vers une réponse que j'ai écrit et posté ici:

    .NET - la Copie d'un fichier exécutable à travers le réseau local à un autre ordinateur, et l'exécution

    En bref, il est possible d'écho en base64 de la conversion de n'importe quel fichier (y compris un exe) à l'aide de WMI et puis le décoder avec certutil.

    OriginalL'auteur Robert MacMillan

  4. -1

    Avez-vous essayé le suivant ?

    set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "f:\temp\test1.txt", "\\HOST1\C$\temp\test1.txt", true
    Non, depuis que le code de la copie d'hôtes avec RPC activée, dont le nôtre ne l'est pas. Merci, tho.

    OriginalL'auteur peter

  5. -3

    WMI est une base de données de l'information. Vous ne pouvez pas l'utiliser pour copier des fichiers.

    D - euh... vous ne pourriez obtenir un peu plus de connaissances avant de faire des commentaires de ce genre.

    OriginalL'auteur Vishal D