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