Jump to content

Taleen

Members
  • Gesamte Inhalte

    3
  • Registriert seit

  • Letzter Besuch

Beiträge erstellt von Taleen

  1. bisher hab ich ein paar codeschnipsel zusammen bekommen:-/

     

    strUserName = InputBox("sAMAccountName ? ", "Benutzername", "", 200, 300)
    dtStart = TimeValue(Now())
    
    Set objRoot = GetObject("LDAP://rootDSE")
    strDomain = objRoot.Get("DefaultNamingContext") 
    
    do
    Set objConnection = CreateObject("ADODB.Connection")
    objConnection.Open "Provider=ADsDSOObject;"
    
    Set objCommand = CreateObject("ADODB.Command")
    objCommand.ActiveConnection = objConnection
    
    objCommand.CommandText = _
       "<LDAP://" & strDomain & ">;(&(objectCategory=User)" & _
          	 "(samAccountName=" & strUserName & "));samAccountName;subtree"
    
    Set objRecordSet = objCommand.Execute
    
    If zaehlerad = 100 Then
    	Exit Do
    End If
    
    zaehlerad = zaehlerad + 1
    
    WScript.Sleep (1200)
    
    Loop Until Not objRecordSet.RecordCount =  0
    
    

     

    so bekomme ich zumindestens mal die anzeige ob der vorgegebene logonname in der ADS vorhanden ist.

    problem ist halt nur das ich lediglich die anzahl der gefundenen logonnamen bekomme jedoch keine weiteren infos

    hinzu kommt das ich nicht gerade der beste vb scripter bin :-(

  2. Hallo zusammen,

     

    schon seit tagen bin ich auf der suche nach hilfe zu einem, fuer manche, recht einfachen Problem.

     

    Ich muss aus der ADS per VBScript einige Userdaten auslesen.

     

    Jedoch habe ich lediglich den Logonnamen des entsprechend per InputBox genannten Users sowie den kompletten Namen der Anmeldedomäne zur Verfügung.

     

    Sinn und Zweck:

    Einem neu angelegten User soll per Skript der FullName auf den DisplayName sowie einige Gruppen zugewiesen werden.

     

    Kann mir jemand dabei helfen ??

     

    /Taleen

×
×
  • Neu erstellen...