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