Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Scripting Microsoft Création dossier sur poste distant

Création dossier sur poste distant

1 réponse
Avatar
loup
Bonjour,
Je suis un peu rouillé en scriptage VBS et je ne vois pas le hic sur mon
script.
Il a pour rôle de créer un dossier sur un poste distant.
Mais l'accès WMI qui me permet d'accéder à distance ne fonctionne pas... je
pense que je dois oublier quelquechose :(
Merci pour votre aide

Const Source = "\\Serveur\FICHIERS\*.*"
Const Destination = "C:\DRIVERS\"

Dim objFSO,strComputer,objWMIService,NomPC

NomPC = InputBox("Entrez le nom ou l'ip du PC distant : " & vbcrlf &
"Attention! Requiert les droits administrateur.")
If NomPC = "" then
wscript.quit
End If

'Connexion Au poste distant
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!\\" & NomPC & "\root\cimv2")

'Création du dossier distant
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(Destination) Then
Wscript.Echo "Le dossier " & Destination & " existe déjà !"
Else
'Wscript.Echo "Le dossier n'existe pas....il va être CREER"
Set objFSO = objFSO.CreateFolder(Destination)
End If

'Copie des pilotes d'imprimante sur le poste distant
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.Copyfile Source, Destination,True
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Gilles LAURENT [MVP]
"loup" a écrit dans le message de
news:
| Bonjour,

Bonjour,

| Je suis un peu rouillé en scriptage VBS et je ne vois pas le hic sur
| mon script.
| Il a pour rôle de créer un dossier sur un poste distant.
| Mais l'accès WMI qui me permet d'accéder à distance ne fonctionne
| pas... je pense que je dois oublier quelquechose :(

| 'Connexion Au poste distant
| Set objWMIService = GetObject("winmgmts:" &
| "{impersonationLevel=impersonate}!" & NomPC & "rootcimv2")

Je pense qu'il y a une incompréhension. Le bout de code ci-dessus vous
permet uniquement de vous connecter à une instance WMI distante.
L'instance sera matérialisée par l'objet objWMIService. Tout le code
situé ci-dessous continuera à s'exécuter sur la machine locale :-(

Pour créer le dossier sur la machine distante, vous pouvez simplement
utiliser la notation UNC :

Set oFs=CreateObject("Scripting.FileSystemObject")
If Not oFs.FolderExists("" & NomPC & "c$Drivers") Then
oFs.CreateFolder("" & NomPC & "c$Drivers")
End If

--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr