Betriebssystem auf LDAP auslesen

08/01/2008 - 11:35 von Stefan Mitterbuchner | Report spam
Hi Leute

Möchte mir nun gerne ein Script basteln, welche alle Computer Accounts
inkl. Betriebssytem aus AD auslest.
Leider kann ich das Feld: operatingSystem nicht auslesen - siehe Code:

Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"

Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = _
"Select Name, Location from 'LDAP://DC=domain,DC=com' " _
& "Where objectClass='computer'"
objCommand.Properties("Page Size") = 10000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
Wscript.Echo "Anzahl der Computerkonten: " & objRecordSet.RecordCount
Wscript.Echo

objRecordSet.MoveFirst

Do Until objRecordSet.EOF
Wscript.Echo "Computer Name: " & objRecordSet.Fields("Name").Value
Wscript.Echo "OS: " & objRecordSet.Fields("operatingSystem").Value
objRecordSet.MoveNext
Loop

mfg
Stefan
 

Lesen sie die antworten

#1 dieseyer
10/01/2008 - 19:21 | Warnen spam
Hallo!

Dort http://www.heise.de/netze/artikel/82779/3 steht es (ganz unten) richtig:

Bis dann - dieseyer


"Stefan Mitterbuchner" wrote:

Hi Leute

Möchte mir nun gerne ein Script basteln, welche alle Computer Accounts
inkl. Betriebssytem aus AD auslest.
Leider kann ich das Feld: operatingSystem nicht auslesen - siehe Code:

Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"

Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = _
"Select Name, Location from 'LDAP://DC=domain,DC=com' " _
& "Where objectClass='computer'"
objCommand.Properties("Page Size") = 10000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
Wscript.Echo "Anzahl der Computerkonten: " & objRecordSet.RecordCount
Wscript.Echo

objRecordSet.MoveFirst

Do Until objRecordSet.EOF
Wscript.Echo "Computer Name: " & objRecordSet.Fields("Name").Value
Wscript.Echo "OS: " & objRecordSet.Fields("operatingSystem").Value
objRecordSet.MoveNext
Loop

mfg
Stefan



Ähnliche fragen