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
Dabei 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

  • WLAN-Verbindung bricht nach ein paar Minuten ab - DNS FEHLER 1014

    WLAN-Verbindung bricht nach ein paar Minuten ab - DNS FEHLER 1014: Hallo. Ich habe das Problem, dass aus unerfindlichen Gründen meine Wirelessverbindung ständig nach ca. 5 bis 10 Minuten (kein gleichbleibendes...
  • Update Fehler 0x800b0001, Verbindung zu SmartScreen nicht möglich, Problembehandlungsfehler

    Update Fehler 0x800b0001, Verbindung zu SmartScreen nicht möglich, Problembehandlungsfehler: Hallo, bei Updates kommt immer wieder fehler 0x800b0001. Bei der Pronblembehandlung des Updaters kommt: Fehler bei der Problembehandlung...
  • Update vom 12. Mai 2020 - Fehler mit "sens" Dienst / keine Verbindung zu Microsoft Server

    Update vom 12. Mai 2020 - Fehler mit "sens" Dienst / keine Verbindung zu Microsoft Server: Hallo, habe das aktuelle Update ganz brav am 13.05. runtergeladen, dann PC muss neugestartet werden. Danach bekam ich die Meldung: Keine...
  • Es konnte keine Verbindung hergestellt werden. (Websocket-Fehler)

    Es konnte keine Verbindung hergestellt werden. (Websocket-Fehler): Nagelneuer Surface 4 PRO von Microsoft bekommen und nun kommt der Fehler. Was ist zu tun??? Danke für Eure Antworten... :-)
  • Ähnliche Themen
  • WLAN-Verbindung bricht nach ein paar Minuten ab - DNS FEHLER 1014

    WLAN-Verbindung bricht nach ein paar Minuten ab - DNS FEHLER 1014: Hallo. Ich habe das Problem, dass aus unerfindlichen Gründen meine Wirelessverbindung ständig nach ca. 5 bis 10 Minuten (kein gleichbleibendes...
  • Update Fehler 0x800b0001, Verbindung zu SmartScreen nicht möglich, Problembehandlungsfehler

    Update Fehler 0x800b0001, Verbindung zu SmartScreen nicht möglich, Problembehandlungsfehler: Hallo, bei Updates kommt immer wieder fehler 0x800b0001. Bei der Pronblembehandlung des Updaters kommt: Fehler bei der Problembehandlung...
  • Update vom 12. Mai 2020 - Fehler mit "sens" Dienst / keine Verbindung zu Microsoft Server

    Update vom 12. Mai 2020 - Fehler mit "sens" Dienst / keine Verbindung zu Microsoft Server: Hallo, habe das aktuelle Update ganz brav am 13.05. runtergeladen, dann PC muss neugestartet werden. Danach bekam ich die Meldung: Keine...
  • Es konnte keine Verbindung hergestellt werden. (Websocket-Fehler)

    Es konnte keine Verbindung hergestellt werden. (Websocket-Fehler): Nagelneuer Surface 4 PRO von Microsoft bekommen und nun kommt der Fehler. Was ist zu tun??? Danke für Eure Antworten... :-)
  • Oben