[VBS] Erreur dans mon script "Robocopy+share+ACL"

Version imprimable

Bonjour tout le monde,

Cela fait 3 jours que je cherche un script qui permet de faire de la copie de Fichier+share+Acl et je vous cache pas ça court pas les rues. La plupart des propositions pour les shares ou je bloque complet vu ma nullité en langage, c'est l'export de la clé de registre "Shares" sauf que je veux pas tout récupérer.

Voila ce que j'ai trouvé comme script :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 Set objShell = CreateObject("Wscript.Shell") objSource = InputBox("Enter Source") objDestination = InputBox("Enter Destination") objCommand = "RoboCopy.Exe " & Chr(34) & objSource & Chr(34) & " " & Chr(34) & objDestination & Chr(34) & " /SEC /E /r:1 /w:2" objShell.Run(objCommand) Set objWMIServiceSource = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & objSource & "\root\cimv2" ) Set ListeDesPartagesSource = objWMIServiceSource.ExecQuery("Select * from Win32_Share" ) Set objWMIServiceDestination = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & objDestination & "\root\cimv2" ) Set ListeDesPartagesDestination = objWMIServiceDestination.ExecQuery _ ("Select * from Win32_Share" ) Set NouveauPartage = objWMIServiceDestination.Get("Win32_Share" ) For each PartageSource in ListeDesPartagesSource PartageExiste = False For each PartageDestination in ListeDesPartagesDestination If PartageDestination.Name = PartageSource.Name Then PartageExiste = True PartageDestination.Path = PartageSource.Path PartageDestination.Type = PartageSource.Type PartageDestination.MaximumAllowed = PartageSource.MaximumAllowed PartageDestination.Caption = PartageSource.Caption End If Next If Not PartageExiste Then CodeRetour = NouveauPartage.Create(PartageSource.Path, PartageSource.Name, _ PartageSource.Type, PartageSource.MaximumAllowed, _ PartageSource.Caption) End If Next
Cela bloque sur "Set objWMIServiceSource" et je trouve pas de détail sur cette objet (c'est bien sa??)

Alors si il y a une personne qui veut bien m'expliquer pourquoi ça bloque je suis preneur.

Mon script actuel modifie les propriétés d'un compte dans l'onglet Profil et Profil de services Terminal Server et je voudrais le continuer sur la copie des données. Une fois terminé si cela intéresse du monde.

Merci d'avance pour votre aide

07/05/2009, 13h29
ced600
Qu'est ce que tu mets comme valeur pour objSource et objDestination ?

Normalement cela doit contenir un addresse IP d'une machine ou "." pour désigner la machine local.

Je ne sais plus si GetObject est sensible à la case, mais en général le path WMI est \root\CIMV2 et non \root\cimv2.

Un exemple:
Code:

1 2 strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Elle dit quoi exactement l'erreur.

Citation:

Cela bloque sur "Set objWMIServiceSource" et je trouve pas de détail sur cette objet (c'est bien sa??)

L'objet objWMIServiceSource n'existe pas en soit. C'est le nom de la variable que tu donnes pour récupérer l'objet renvoyer par la fonction GetObject.
07/05/2009, 13h44
tofju

Le message que j'ai :

Line: 10
Column:1
Error : (null)
Code : 80041021
Source : (null)

Il bloque au debut de ligne :?

Oui dans les InputBox je donne un chemin UNC d'un serveur à un autre.

Si j'ai bien comprit le script, objSource est le chemin dans lequel il est censé exécuter l'action demandée. Non ?

Je corrige pour la case, Merci ;)
07/05/2009, 14h33
ced600

Citation:

UNC

Je ne me souviens plus, un chemin UNC c'est un chemin genre \\serverName ?

Ce genre de chose ne marche pas, il faut que ce soit genre:
"192.168.0.15"
ou
"."
07/05/2009, 14h45
tofju

Dans le InputBox Source je lui indique

\\192.0.0.1\c$\temp

Idem pour la Destination sur une autre adresse.

Si je fais que le robocopy cela fonctionne correctement :?
11/05/2009, 12h39
ced600

Citation:

\\192.0.0.1\c$\temp

Heu... Je crois que c'est faux. Non seulement je pense que rajouté c$\temp cela apporte une erreur, mais en plus tu mets au début \\ alors que dans ton algo de connection WMI tu en as un déjà.
Essaye juste:
192.0.0.1

WMI n'est pas robocopy, il est logique qu'il ne prenne pas les même paramètre en entrée.
12/05/2009, 09h47
tofju

Il bloque toujours sur la Ligne 10 :bug:

Source :
192.0.0.1\users <--- share

Destination :
192.0.0.2\users <--- share
12/05/2009, 16h14
ced600

fait un:

Code:

msgbox "winmgmts:{impersonationLevel=impersonate}!\\" & objSource & "\root\cimv2"

et poste moi ce que cela t'affiche.
13/05/2009, 08h52
tofju

Citation:

Envoyé par ced600

fait un:

Code:

msgbox "winmgmts:{impersonationLevel=impersonate}!\\" & objSource & "\root\cimv2"

et poste moi ce que cela t'affiche.

Voila le retour

Code:

winmgmts:{impersonationLevel=impersonate}!\\192.0.0.1\users\root\cimv2
13/05/2009, 08h56
ced600

il faut que tu es ceci:

Code:

winmgmts:{impersonationLevel=impersonate}!\\192.0.0.1\root\cimv2

Tu ne peux pas mettre users, juste l'addresse IP de la machine hôte.

Citation:

Essaye juste:
192.0.0.1
13/05/2009, 14h19
tofju

Si je fais ça il va tout me copier ? :?
13/05/2009, 16h11
ced600

tu ne peux pas utiliser la même variable pour les deux lignes.
20/05/2009, 10h07
tofju

OK, Merci
Je vais chercher un truc pour contourner cette histoire de Variable et si je trouve je reviens déposer tout ça.
20/05/2009, 12h22
ced600

Bah tu peux faire 2 input box.
une pour l'addresse IP et autre pour le chemin.
Après pour robocopy tu concatènes tes deux variables dans une autre.
Et avec la première tu fait le GetObject.
20/05/2009, 13h43
spantemonium

ou encore dans une seule input box, a partir du chemin extraire l'IP qui se situe entre le 2eme antislash et le 3eme.
20/05/2009, 15h11
tofju

:? je vais faire mes recherches dans vos propositions ou à la 1ere lecture j'ai rien compris mais tant mieux je vais pouvoir lire surement des trucs intéressant sur le sujet.
Merci encore pour votre aide :ccool:
20/05/2009, 20h14
ced600

Tu as crée ce script ou tu l'as récupéré ?
27/05/2009, 11h08
tofju

La partie du share je l'ai récupéré sur le net ;)
Bon après un peu de repos on retourne au boulot
27/05/2009, 11h22
spantemonium

Ce que je te disais sur ta variable IP (objSource) :

Avec le même code remplace la ligne

Code:

"winmgmts:{impersonationLevel=impersonate}!\\" & objSource & "\root\cimv2"

par

Code:

"winmgmts:{impersonationLevel=impersonate}!\\" & Left(objSource,InStr(objSource,"\") -1) & "\root\cimv2"

Si tu es amené à coder en VBS, je te suggère de nommer tes variables en fonction du type de données qu'elles contiennent. objSource par exemple devrait correspondre à un objet, pas à une chaine de caractère (la chaine serait strSource idéalement).
27/05/2009, 12h03
ced600

oui je suis d'accord.

tofju utilises la solution de spantemonium si tu veux faire marcher le script.

Si ton but est d'aller plus loin sur le dévellopement en VBS, je te conseil d'aller faire un tour d'abord sur les tutoriaux de developpez.com par ce qu'il te manque les bases. Tu risques de galérer sur de futur script si tu y vas à l'arrache sans regarder ces tutoriaux ou autres cours.