Discussion :

[tofju]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Elle dit quoi exactement l'erreur.

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.

[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

[ced600]

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
"."

[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

[ced600]

\\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.

[tofju]

Il bloque toujours sur la Ligne 10

Source :
192.0.0.1\users <--- share

Destination :
192.0.0.2\users <--- share

[ced600]

fait un:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et poste moi ce que cela t'affiche.

[tofju]

fait un:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et poste moi ce que cela t'affiche.

Voila le retour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ced600]

il faut que tu es ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Essaye juste:
192.0.0.1

[tofju]

Si je fais ça il va tout me copier ?

[ced600]

tu ne peux pas utiliser la même variable pour les deux lignes.

[tofju]

OK, Merci
Je vais chercher un truc pour contourner cette histoire de Variable et si je trouve je reviens déposer tout ça.

[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.

[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.

[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

[ced600]

Tu as crée ce script ou tu l'as récupéré ?

[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

[spantemonium]

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

Avec le même code remplace la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"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).

[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.