Fehler AD Verbindung

Diskutiere Fehler AD Verbindung im Programmierung Forum im Bereich Software Forum; Hallo, Bei meinem SCRIPT hab ich ein Problem, wenn ich es Ausführe bekomme ich einen Fehler den ich nicht beheben kann, Fehler --> Beilage...
D

danijelhr

Threadstarter
Mitglied seit
24.11.2006
Beiträge
322
Hallo,
Bei meinem SCRIPT hab ich ein Problem, wenn ich es Ausführe bekomme ich einen Fehler den ich nicht beheben kann, Fehler --> Beilage.!?!?!
Hier mein Script...
--------------------------------------------------------------------------
msgbox getPrimaryGroup("test","KramaDan")


function getPrimaryGroup (DomainName, UserLoginName)

dim oUsr
dim oGrp
set oUsr = GetObject("WinNT://" & DomainName & "/" & UserLoginName & ",user")
set grp = oUsr.Groups
GrpID = oUsr.PrimaryGroupID
GrpName = ""
QueryFilter = "(|"
for each Item in Grp
NT4Name = replace(Item.ADsPath,"WinNT://","")
tempArray = split(nt4Name,"/")
NT4Name = tempArray(1)
QueryFilter = QueryFilter & "(samAccountName=" & NT4Name & ")"
next
QueryFilter = QueryFilter & ")"

QueryString = "<LDAP://" & DomainName & ">;" & QueryFilter & ";PrimaryGroupToken,Name;subtree"

'----------------HIER PASSIERT DER FEHLER---------------------------
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"

Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = QueryString = "<LDAP://" & DomainName & ">;" & QueryFilter & ";PrimaryGroupToken,Name;subtree"

set objRecordSet = objCommand.Execute '<--- HIER BEKOMME ICH DEN FEHLER
'----------------HIER PASSIERT DER FEHLER---------------------------
While ((NOT oRecordset.EOF) and (Not bGroupFound))
if (GrpID = oRecordset.Fields("PrimaryGroupToken").value) then
GrpName = oRecordset.Fields("Name").Value
bGroupFound = True
End If
oRecordset.moveNext
wend

Set oRecordset = Nothing
Set oCommand = Nothing
Set oConnection = Nothing
if (not bGroupFound) then
GrpName = "Primary Group Not Found"
end if

getPrimaryGroup = GrpName

end function
 

Anhänge

Zuletzt bearbeitet:
Thema:

Fehler AD Verbindung

Fehler AD Verbindung - Ähnliche Themen

  • Fehler: Verbindung nicht Möglich (zu Microsoft-Konto)

    Fehler: Verbindung nicht Möglich (zu Microsoft-Konto): Hallo ich habe ein "Hard Reset" bei meinem Lumia 1020 gemacht und seitdem kann ich keine Apps mehr runterladen. Ich bekomme immer wieder den...
  • Fehler der Microsoft Konto Verbindung

    Fehler der Microsoft Konto Verbindung: Guten Abend, ich kann mich mit meinem Nokia Lumia 925 nicht mehr in mein Microsoft Konto einloggen. Kann mir da jemand Informationen zu geben ob...
  • Kann Drucker „HP Photosmart C4580“ nicht mit dem neuen WLAN verbinden (wegen IP Fehler)

    Kann Drucker „HP Photosmart C4580“ nicht mit dem neuen WLAN verbinden (wegen IP Fehler): Hallo, ich habe ein neuen Router und somit ein neues WLAN-Netz. Damit habe ich mein Notebook per WLAN verbunden. Nun kann ich aber NICHT meinen...
  • Fehler in Remote Desktop Verbindung

    Fehler in Remote Desktop Verbindung: Hallo, beim Verbindungsaufbau einer Remote Desktop Verbindung mittels Remote Desktop Client tritt bei mir folgendes Problem auf: Wenn ich...
  • TLS-API-Fehler 0x80090326 beim Versuch, ein externes Konto zu verbinden

    TLS-API-Fehler 0x80090326 beim Versuch, ein externes Konto zu verbinden: Seit einiger Zeit habe ich Probleme, beim Senden von Mails, die als Absender meine Absenderadresse (yahoo) anzeigen sollen und nicht die Adresse...
  • Ähnliche Themen

    Oben