bisher hab ich ein paar codeschnipsel zusammen bekommen:-/
strUserName = InputBox("sAMAccountName ? ", "Benutzername", "", 200, 300)
dtStart = TimeValue(Now())
Set objRoot = GetObject("LDAP://rootDSE")
strDomain = objRoot.Get("DefaultNamingContext")
do
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
"<LDAP://" & strDomain & ">;(&(objectCategory=User)" & _
"(samAccountName=" & strUserName & "));samAccountName;subtree"
Set objRecordSet = objCommand.Execute
If zaehlerad = 100 Then
Exit Do
End If
zaehlerad = zaehlerad + 1
WScript.Sleep (1200)
Loop Until Not objRecordSet.RecordCount = 0
so bekomme ich zumindestens mal die anzeige ob der vorgegebene logonname in der ADS vorhanden ist.
problem ist halt nur das ich lediglich die anzahl der gefundenen logonnamen bekomme jedoch keine weiteren infos
hinzu kommt das ich nicht gerade der beste vb scripter bin :-(