enregistrer dans un fichier de log

Version imprimable

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:

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

29/09/2008, 21h56
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:

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 ?

;)
29/09/2008, 22h21
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:

1 2 3 Const ForWriting = 2 Set f = fso.OpenTextFile("c:\temp\ecr.txt", ForWriting,true) f.write("?????????")
29/09/2008, 22h22
SfJ5Rpw8

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

Code:

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

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

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

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:

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

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