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

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

danijelhr

Threadstarter
Dabei 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 Excel 2010

    Fehlermeldung beim Start von Excel 2010: Diese Meldung erscheint ständig, wenn ich Excel 2010 unter Win 10 starte. Gibt es irgendwo ein ADMIN-Problem?
  • Outlook 365 - Fehlermeldung beim Internetkalender

    Outlook 365 - Fehlermeldung beim Internetkalender: mir wird ständig einer Fehlermeldung beim Internetkalendar angezeigt. Selbst wenn ich den Fehler reparieren lasse (und das habe ich sicher schon...
  • Fehlermeldung 0x8024a105 beim Update

    Fehlermeldung 0x8024a105 beim Update: Wie kann ich o.g Fehler beheben? Bitte genaue Tastenfolge bei der Eingabeaufforderung angeben.
  • Outlook 2010 Fehlermeldung : "Problem beim Herstellen der Verbindung mit dem Server"

    Outlook 2010 Fehlermeldung : "Problem beim Herstellen der Verbindung mit dem Server": Schönen guten Abend / Tag alle zusammen ! Ich wollte meinem Vater bezüglich Outlook 2010 helfen, bis her leider vergebens. Dieser hatte sich vor...
  • Ähnliche Themen
  • Fehlermeldung beim Start von Excel 2010

    Fehlermeldung beim Start von Excel 2010: Diese Meldung erscheint ständig, wenn ich Excel 2010 unter Win 10 starte. Gibt es irgendwo ein ADMIN-Problem?
  • Outlook 365 - Fehlermeldung beim Internetkalender

    Outlook 365 - Fehlermeldung beim Internetkalender: mir wird ständig einer Fehlermeldung beim Internetkalendar angezeigt. Selbst wenn ich den Fehler reparieren lasse (und das habe ich sicher schon...
  • Fehlermeldung 0x8024a105 beim Update

    Fehlermeldung 0x8024a105 beim Update: Wie kann ich o.g Fehler beheben? Bitte genaue Tastenfolge bei der Eingabeaufforderung angeben.
  • Outlook 2010 Fehlermeldung : "Problem beim Herstellen der Verbindung mit dem Server"

    Outlook 2010 Fehlermeldung : "Problem beim Herstellen der Verbindung mit dem Server": Schönen guten Abend / Tag alle zusammen ! Ich wollte meinem Vater bezüglich Outlook 2010 helfen, bis her leider vergebens. Dieser hatte sich vor...
  • Oben