Fehlermeldung beim SCRIPT

Diskutiere Fehlermeldung beim SCRIPT im Programmierung Forum im Bereich Software Forum; Hallo, hab im Anhang ein screenshot, wenn ich mein Script aufrufe bekomme ich diese Fehlermeldung, weis wer wie ich das umgehe??!?!?! DANKE
D

danijelhr

Threadstarter
Mitglied seit
24.11.2006
Beiträge
322
Hallo,

hab im Anhang ein screenshot, wenn ich mein Script aufrufe bekomme ich diese Fehlermeldung, weis wer wie ich das umgehe??!?!?!

DANKE
 

Anhänge

H

HWFlo

Mitglied seit
04.09.2005
Beiträge
5.271
Alter
31
Hilfreich wäre es dein Skript mal zu sehen bzw. en Bereich um die in der Meldung angegebene Zeile.
 
D

danijelhr

Threadstarter
Mitglied seit
24.11.2006
Beiträge
322
'Returns the primary group of a user
function getPrimaryGroup (DomainName, UserLoginName)

dim oUsr
dim oGrp

'
' Bind to the user object with the Windows NT provider.
'
set oUsr = GetObject("WinNT://" & DomainName & "/" & UserLoginName & ",user")
set grp = oUsr.Groups
GrpID = oUsr.PrimaryGroupID
GrpName = ""

'
' Building Query Filter for the search for all the groups that the user is a member of.
'
QueryFilter = "(|"
for each Item in Grp
NT4Name = replace(Item.ADsPath,"WinNT://","")
tempArray = split(nt4Name,"/")
NT4Name = tempArray(1)
QueryFilter = QueryFilter & "(samAccountName=" & NT4Name & ")"
next
QueryFilter = QueryFilter & ")"

'
' Building LDAP dialect Query String.
'
'QueryString = "<LDAP://" & DomainName & ">;" & QueryFilter & ";PrimaryGroupToken,distinguishedName;subtree"
QueryString = "<LDAP://" & DomainName & ">;" & QueryFilter & ";PrimaryGroupToken,Name;subtree"

'
' Performing Query against the Active Directory for all the groups that
' the user belongs to and retrieving the RID of the group object off
' the PrimaryGroupToken attribute on the user.
'
Dim oConnection, oCommand, oRecordset
Set oConnection = CreateObject("ADODB.Connection")
Set oCommand = CreateObject("ADODB.Command")

oConnection.Provider = "ADsDSOObject"
oConnection.Open "Active Directory Provider"

Set oCommand.ActiveConnection = oConnection
oCommand.CommandText = QueryString
oCommand.Properties("Page Size") = 900

Set oRecordset = oCommand.Execute '<--Fehler passiert genau hier

'
' Looping through all the records in the search result to determine whether
' any of these group's PrimaryGroupToken attribute value match the
' PrimaryGroupID attribute value stored on the user object.
'
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
 
Thema:

Fehlermeldung beim SCRIPT

Fehlermeldung beim SCRIPT - Ähnliche Themen

  • Fehlermeldung beim Start von Win 10 home

    Fehlermeldung beim Start von Win 10 home: Hallo, erhalte nach Start folgende Fehlermeldung: irql_not_less_or_equal Windows will automatische reparieren, aber ohne Erfolg. Habe schon im...
  • Fehlermeldung 0x80240034 beim Windows Update

    Fehlermeldung 0x80240034 beim Windows Update: Hallo, einige Updates werden einfach nicht installiert, trotz Automatik, Folgende Fehlermeldung: 0x80240034 Beste Grüße Torsten
  • Fehlermeldung beim Starten von FIFA 20

    Fehlermeldung beim Starten von FIFA 20: Hallo zusammen :) Ich habe seit einigen Tagen das Problem, dass ich wenige Minuten nach dem Start von FIFA 20 eine Fehlermeldung bekomme (Anhang...
  • Fehlermeldung: "die angegebenen Daten haben den falschen typ" beim Kopieren von Foto.jpg vom Samsung Handy auf den PC

    Fehlermeldung: "die angegebenen Daten haben den falschen typ" beim Kopieren von Foto.jpg vom Samsung Handy auf den PC: Meine Fotokamera ist eine SAMSUNG C-115 und schon ein paar Jahre in Gebrauch. Seit 1 Woche erhalte ich nun die Fehlermeldung: "die angegebenen...
  • Beim Start von https://outlook.live.com/mail/ kommt die Fehlermeldung "Da hat etwas nich geklappt"

    Beim Start von https://outlook.live.com/mail/ kommt die Fehlermeldung "Da hat etwas nich geklappt": Versuche an meine Nachrichten/Mails zukommen werden im Moment mit o.a. Fehlermeldung quittiert. An die im Kalender eingetragenen Termine komme...
  • Ähnliche Themen

    Oben