IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

enregistrer dans un fichier de log


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2008
    Messages
    19
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2008
    Messages : 19
    Par défaut enregistrer dans un fichier de log
    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

  2. #2
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    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 ?


  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2008
    Messages
    19
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2008
    Messages : 19
    Par défaut
    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("?????????")

  4. #4
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 5
    Dernier message: 02/05/2012, 13h32
  2. Réponses: 2
    Dernier message: 30/11/2009, 11h05
  3. comment ne pas enregistrer dans le fichier log?
    Par trotters213 dans le forum MS SQL Server
    Réponses: 14
    Dernier message: 21/03/2005, 14h56
  4. [LG]supprimer un enregistrement dans un fichier
    Par Marcus2211 dans le forum Langage
    Réponses: 10
    Dernier message: 17/11/2003, 00h59
  5. enregistrer dans un fichier avec une appli mdi
    Par ferrari dans le forum C++Builder
    Réponses: 4
    Dernier message: 05/05/2002, 15h17

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo