[VBS] ADS Loginscript probleem met groupmemberships

[Verwijderd]

Hallo allen,

Ik krijg een essentieel stukje code niet werkend! Onderstaande code is het relevante gedeelte vanuit een script die ik via internet heb gevonden, maar ik krijg elke keer de melding "Groupmemberships could not be retrieved"

Vergeet ik iets aan te passen in de functie?! Ik hoop dat iemand mij hiermee kan helpen!

code:

If Not Getgroups Then
  FatalError ("Groupmemberships could not be retrieved")
End If

De functie zelf:

code:

Function GetGroups

Dim strNamingContext,objRootDSE,objConnection,objCommand
Dim objRecordSet,sAdsPath,ADsObject,Group,arrMemberOf,strComma
  'on Error Resume Next

  Set oUserGroups = CreateObject("Scripting.Dictionary")
  oUserGroups.CompareMode = vbTextCompare
  Set objRootDSE = GetObject("LDAP://RootDSE")
  strNamingContext= objRootDSE.Get("DefaultNamingContext")
  Set objConnection = CreateObject("ADODB.Connection")
  Set objCommand =   CreateObject("ADODB.Command")
  objConnection.Provider = "ADsDSOObject"
  objConnection.Open "ARENA.LOCAL"
  Set objCommand.ActiveConnection = objConnection

  objCommand.CommandText = _
  "Select ADSPath,Name from 'LDAP://" & strNamingContext & "'" _
  & " where objectClass='user' and sAMAccountname='" & strUser & "' "  
  objCommand.Properties("Page Size") = 1000
  objCommand.Properties("Timeout") = 30 
  objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
  objCommand.Properties("Cache Results") = False 
  Set objRecordSet = objCommand.Execute
  objRecordSet.MoveFirst
  sAdsPath=objRecordSet.Fields("ADSPath")

  Set ADsObject = GetObject(sADsPath)
  arrMemberOf = ADsObject.GetEx("memberOf")
  getgroups=True
  If Err.Number <>  E_ADS_PROPERTY_NOT_FOUND Then
        For Each Group in arrMemberOf
         'writeoutput Group
         'converting to friendly format
         strcomma=instr(group,",")
         group=mid(group,4,strcomma-4)
         'writeoutput group
         oUserGroups.Add Group, "-"
        Next
    Else
        Getgroups=False
   End If
End Function 'GetGroups

[RobIII]

Zoals je in ons Programming beleid kunt lezen is het niet de bedoeling hier je code te dumpen en dan te wachten op een oplossing (zie scriptrequest / quickfix). Wat heb je zelf al geprobeerd? Heb je al gedebugged? Zo nee, kijk dan eens hier: Debuggen: Hoe doe ik dat?

Probeer eerst het probleem te lokaliseren, geven de acties wel allemaal de verwachtte resultaten (uh, nee dus; anders postte je hier niet ) en ga dan kijken welke statements het probleem veroorzaken. Dan kun je ook een veel gerichtere vraag stellen dan "het werkt niet"

Overigens gaat het hier in [PRG] over zélf programmeren en zijn we hier niet om support te verlenen op 3rd party code. Kijk voor de zekerheid ook eens onze Programming Beleid Quickstart door; je zult zien dat er nogal wat mankeert aan je topic

Tot slot is je topictitle nou ook niet echt "omschrijvend"
(VBscript) Stukje loginscript wil niet meewerken >> [VBS] ADS Loginscript probleem met ophalen groupmemberships

Anyway, vanwege al dit heb ik besloten dit topic maar op slot te doen; je bent van harte welkom met een nieuw topic waarin je je eigen inzet aantoont en met een concreet probleem komt, niet "wie debugged mijn (ge'leende') code even?".

[ Voor 34% gewijzigd door RobIII op 12-03-2007 18:46 ]