Discussion :

[Invité]

Bonjour je me suis fait un petit script en récupérant des parties ici et là...

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
Set objDictionary = CreateObject("Scripting.Dictionary")
Set objOU = GetObject("LDAP://ou=Classes, ou=Classes76,ou=Ecoles,dc=dom,dc=local")
objOU.Filter = Array("User")
Const ForAppending = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objXL = WScript.CreateObject("Excel.Application")
Set objTextFile = objFSO.OpenTextFile _
    ("C:\Users\mikeD\Desktop\testScript\status.xls", ForAppending, True)
 
For Each objUser in objOU
    strUser = objUser.distinguishedName    
    If Not objDictionary.Exists(strUser) Then
 
    objTextFile.WriteLine(strUser & vbTab & objUser.homeDrive & objUser.homeDirectory & vbTab & objUser.scriptPath)
 
    End If       
Next

Ça fonctionne très bien toutefois quand j'ouvre le fichier .xls... j'ai une information qui me dit..."le format de fichier que vous tentez d'ouvrir est différent de celui spécifié par l'extension de fichier


Une idée pour corriger la situation?

Merci

[pitchalov]

Bonjour,

Une idée pour corriger la situation?

Oui oui.
Bien que tu aies mis une extension Excel à ton fichier, il est au format texte et ne correspond pas du tout à du contenu Exel.

Tu peux donc changer l'extension de ton fichier (en txt par exemple) pour voir ce qu'il y a dedans.

Si tu veux l'ouvrir avec Excel, tu peux créer un fichier CSV (dans ce cas cette ligne "Set objXL = WScript.CreateObject("Excel.Application")" ne te sert à rien) :

Code :

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

1
2
3
4
5
6
7
8
9
...
Set objTextFile = objFSO.OpenTextFile _
    ("C:\Users\mikeD\Desktop\testScript\status.csv", ForAppending, True)
For Each objUser in objOU
    strUser = objUser.distinguishedName    
    If Not objDictionary.Exists(strUser) Then
        objTextFile.WriteLine(strUser & ";" & objUser.homeDrive & ";" & objUser.homeDirectory & ";" & objUser.scriptPath)
    End If       
Next

Ou sinon, piloter Excel pour écrire tes données, mais dans ce cas, oublie le "OpenTextFile" et le "WriteLine" et prend plutôt exemple sur la FAQ VBS.

Bonne continuation.

[Invité]

Merci j'ai opté pour l'option du fichier txt seulement...