script pour regarder les ordinateurs présents dans l active directory

bonjour,
je suis en ce moment en train de faire un script pour obtenir des informations sur les ordinateurs se trouvant dans le réseau et l'active directory. Avec des aides comme script center et internet jen suis arrivé à un script pas loin de marcher le seul petit hic est qu'il me trouve que des Serveur 2003 alors que les clients du réseau ne sont pas en 2003.
Une fois vérifié, les informations sont directement envoyé sur un format text dans C:\
j'ai laissé l'affichage pour verifier le résultat rien de plus
Ce script à pour but de me faciliter la tâche car de tres nombreux changements se font sur les ordinateurs et que je ne les connais pas

(code)
1 On error resume next
2 Const ADS_SCOPE_SUBTREE = 2
3
4 'Création d'un fichier log'
5
6 Set objFSO = CreateObject("Scripting.FileSystemObject")
7 Set objTextFile = objFSO.CreateTextFile("c:\machineAD.txt", True)
8
9 'Connection à l'AD'
10
11 Set objConnection = CreateObject("ADODB.Connection")
12 Set objCommand = CreateObject("ADODB.Command")
13 objConnection.Provider = "ADsDSOObject"
14 objConnection.Open "Active Directory Provider"
15
16 'Propriété de l'AD'
17
18 Set objCOmmand.ActiveConnection = objConnection
19 objCommand.CommandText = _
20 "Select Name, Location from 'LDAP://DC=jeff,DC=local' " _
21 & "Where objectClass='computer'"
22 objCommand.Properties("Page Size") = 1000
23 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
24 Set objRecordSet = objCommand.Execute
25 objRecordSet.MoveFirst
26
27 'Affichage du nom de l'ordinateur sur lequel on va chercher les informations'
28
29Do Until objRecordSet.EOF
30 Wscript.Echo "Nom de l'ordinateur: " & objRecordSet.Fields("Name").Value
31 Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
32
33 strComputer = "."
34 Set objWMIService = GetObject("winmgmts:" _
35 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
36
37 Set colOperatingSystems = objWMIService.ExecQuery _
38 ("Select * from Win32_OperatingSystem")
39
40 'affichage des informations souhaitees'
41
42 For Each objOperatingSystem in colOperatingSystems
43
44 if error.number=0 then
45
46 Wscript.Echo "System d'exploitation : " & objOperatingSystem.Caption & vbtab & "OS Product Suite: " & objOperatingSystem.OSProductSuite & vbtab & "OS Type: " & objOperatingSystem.OSType
47
48 objTextFile.WriteLine "Nom de la machine : " & objRecordSet.Fields("Name").Value & vbtab & "Caption: " & objOperatingSystem.Caption & vbtab & "OS Product Suite: " & objOperatingSystem.OSProductSuite & vbtab & "OS Type: " & objOperatingSystem.OSType
49 else
50 wscript.Echo "machine injoignable"
51
52 end if
53
54 next
55
56 objRecordSet.MoveNext
57 Loop
58
59 Wscript.echo "informations sauvegardées dans c:"
60 (code\)

Voila je ne suis pas un habitué des forums donc j'espere ne pas commaitre d'erreur en postant de la sorte de plus j'ai lu qu'il fallait des repères j'espere qu'ils sont suffisants
merci beaucoup d'avance et si j'ai mal lu un truc dans les rubriques avant de poster dite le moi je modifirais sur le champs.
 
Ps: une derniere petite question est il faisable de voir vers quel serveur princiaple tourne une machine client en script car je n'ai pas trouvé.
encore merci