Discussion :

[noahline]

Bonjour
Je suis débutant en vbs et néophyte en programmation tout court.
Je dois renommer des groupes locaux d'une Active Directory 2000.
J'ai récupéré un script qui renomme ces groupes à partir d'un fichier texte qui contient les anciens noms et les nouveaux noms.
Actuellement le script me demande à chaque renommage de faire ok.
Je souhaiterai enregistré le resultat du script dans un fichier texte.
c'est à dire 1 ligne pour chaque groupe renommé.
Voici le code du script
Merci de me lire et si possible de m'aider.

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
'==========================================================================
On Error Resume Next 
'***********************************************
' Définitions des variables et constantes
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
 
Const RunScript = True
'***********************************************
If Not RunScript Then
WScript.Echo "Ce script est désactivé pour l'exécution" & chr(10) & "Modifier le variable: RunScript = True"
WScript.Quit(1)
End If
 
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set InputFile = fso.OpenTextFile("Groupes.txt", ForReading)
while Not InputFile.AtEndOfStream
LineData = InputFile.ReadLine 
'WScript.Echo LineData
ArrDataGroup = Split(LineData, ";")
 
OldGroupName = ArrDataGroup(0)
NewGroupName = ArrDataGroup(1)
 
If OldGroupName <> "" And NewGroupName <> "" Then
Err.Clear
Set objDomain = GetObject("LDAP://Serveur.ntxxx.dx.gxx.fx/ou=groupes,ou=site-Serveur,dc=ntxxx,dc=dX,dc=gXX,dc=fX")
objDomain.MoveHere _
"LDAP://CN=" & OldGroupName & ",OU=groupes,OU=SITE-Serveur,DC=ntXXX,DC=dX,DC=gXX,DC=fX", _
"cn=" & NewGroupName
 
If Err.Number <> 0 Then
wScript.Echo "Erreur: (" & Err.Number & ") " & Err.Description
Else
wScript.Echo "Renomage (CN): " & NewGroupName & " OK"
 
End If
 
Err.Clear
Set objGroup = GetObject("LDAP://Serveur.NTXXX.DX.GXX.FX/CN=" & NewGroupName & ",OU=groupes,OU=SITE-Serveur,DC=ntXXX,DC=dX,DC=gXX,DC=fX")
objGroup.Put "SamAccountName", NewGroupName
objGroup.SetInfo
 
If Err.Number <> 0 Then 
wScript.Echo "Erreur: (" & Err.Number & ") " & Err.Description
Else
wScript.Echo "Renomage (SamAccountName): " & NewGroupName & " OK"
 
End if
End If 
Wend

[SfJ5Rpw8]

B'sr ..

Tu as utilise Fso pour lire un fichier .. tu peu aussi en parallèle, écrire dans un autre voir :
http://vb.developpez.com/faqvbs/?page=II.2.4#fsowrite
Attention, tu n'as pas besoin de créer un 2° objet Fso tu peu utiliser celui-créé dans ton script...


pour le ok s'agit'il de la ligne :

Code :

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

1
2
 
wScript.Echo "Renomage (CN): " & NewGroupName & " OK"

la méthode Echo , de l'objet Wscript se comporte différemment, suivant l'interpréteur utilisé, avec wscript.exe tu obtient un "message box" avec un bouton OK, avec cscript.exe tu obtient une ligne dans ta fenêtre de commande.

voir : Comment changer l'interpréteur de script par défaut ?

[noahline]

désolé pour le code que j'ai mal inséré dans mon msg et merci de me l'avoir corrigé Pour le ok il s'agit bien de la ligne que tu cites.

j'ai lu ta doc
et merci j'ai compris comment écrire dans un fichier texte mais comment écrire le nom des groupes renommés dans ce fichier?

Code :

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

1
2
3
Const ForWriting = 2
      Set f = fso.OpenTextFile("c:\temp\ecr.txt", ForWriting,true)
   f.write("?????????")

[SfJ5Rpw8]

de la même manière que pour l'Echo

Code :

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

f.write "Renomage (CN): " & NewGroupName

[noahline]

ça ne fonctionne pas
voila ce que j'ai fait le renommage fonctionne mais aucun fichier de log n'est créé j'ai mis en rouge mes ajouts au 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
If OldGroupName <> "" And NewGroupName <> "" Then
Err.Clear
Set objDomain = GetObject("LDAP://Serveur.ntxxx.dx.gxx.fx/ou=groupes,ou=site-Serveur,dc=ntxxx,dc=dX,dc=gXX,dc=fX")
objDomain.MoveHere _
"LDAP://CN=" & OldGroupName & ",OU=groupes,OU=SITE-Serveur,DC=ntXXX,DC=dX,DC=gXX,DC=fX", _
"cn=" & NewGroupName
 
If Err.Number <> 0 Then
cScript.Echo "Erreur: (" & Err.Number & ") " & Err.Description
Else
Set f = fso.OpenTextFile("E:\PSDS0DR1\log1.txt", ForWriting,true)
   			f.write "Renomage (CN): " & NewGroupName & " OK"
End If
 
Err.Clear
Set objGroup = GetObject("LDAP://Serveur.NTXXX.DX.GXX.FX/CN=" & NewGroupName & ",OU=groupes,OU=SITE-Serveur,DC=ntXXX,DC=dX,DC=gXX,DC=fX")
objGroup.Put "SamAccountName", NewGroupName
objGroup.SetInfo
 
If Err.Number <> 0 Then 
cScript.Echo "Erreur: (" & Err.Number & ") " & Err.Description
Else
Set f1 = fso.OpenTextFile("E:\PSDS0DR1\log2.txt", ForWriting,true)
   			f1.write "Renomage (SamAccountName): " & NewGroupName & " OK"
End if
End If 
Wend

[noahline]

En fait ça fonctionne je ne cherchait pas mes logs au bon endroit
par contre j'ai remplacé write par WriteLine car je voulais avoir un ligne par groupe renommé

voila le code qui fonctionne

Code :

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

1
2
Set f = fso.OpenTextFile("E:\PSDS0DR1\log1.txt", ForWriting,true)
   			f.WriteLine "Renomage (CN): " & NewGroupName & " OK"

Code :

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

1
2
Set f1 = fso.OpenTextFile("E:\PSDS0DR1\log2.txt", ForWriting,true)
   			f1.WriteLine "Renomage (SamAccountName): " & NewGroupName & " OK"

merci beaucoup à bbil