Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Computer im AD suchen und einem Benutzer zuweisen

Frage Entwicklung VB for Applications

Mitglied: skid

skid (Level 1) - Jetzt verbinden

02.01.2007, aktualisiert 03.01.2007, 7909 Aufrufe, 2 Kommentare

Hi,

habe wiedermal ein kleines Problemchen.

Ich habe ein VB-Skript welches im AD, in einer vorher angegebenen OU, nach bestimmten Computern sucht und einem bestimten Benutzer zuordnet (LogOnTo).

Hier ein kleiner Ausschnitt

01.
Dim ArrWorkstations()   Array ohne feste größe 
02.
ReDim ArrWorkstations(0)   Array nach bedarf vergrößern 
03.
i = 0 
04.
 
05.
objCommand.CommandText = _ 
06.
    "<LDAP://ou=TEST,ou=clients,dc=aa,dc=bb,dc=de>;(objectCategory=computer)" & _ 
07.
    ";Name;subtree" 
08.
     
09.
 
10.
Set objRecordSet = objCommand.Execute 
11.
     
12.
Do Until objRecordSet.EOF 
13.
i = i + 1 
14.
 
15.
    strComputerName = objRecordSet.Fields("Name")     Computername in Variable schreiben 
16.
    strComputerName = Left(strComputerName, 3)        die ersten 3 Zeichen vom Namen auslesen 
17.
     
18.
 
19.
    If strComputerName = "ABC" Then                Prüfen ob die ersten 3 Zeichen ABC sind 
20.
                         
21.
        Workstations = objRecordSet.Fields("Name")      wenn ja, dann Computernamen in die variable schreiben 
22.
       
23.
    End If 
24.
         
25.
                                                 
26.
            If UBound(ArrWorkstations) < i Then ReDim Preserve ArrWorkstations(i) 
27.
                ArrWorkstations(i) = Workstations 
28.
 
29.
        objRecordSet.MoveNext 
30.
             
31.
Loop 
32.
 
33.
objUser.PutEx ADS_PROPERTY_APPEND, "userWorkstations", Array(Join(ArrWorkstations, ",")) 
34.
objUser.SetInfo 
35.
                         
36.
objConnection.Close
Dies funktioniert auch wunderbar.

Da es aber auch mal vorkommt das die Clients nicht immer in dieser einen OU sind will ich das ganze AD durchsuchen und dann die gefundenen Maschinen dem User zuweisen.
Also, hiermit
01.
objCommand.CommandText = "<LDAP://dc=ms,dc=bgnet,dc=de>;(&(objectCategory=computer));Name;subtree"
Nur diesmal funktioniert nichts mehr!
Es wird nur ein Computer reingeschrieben und das auch noch min. 30x.
Ich komme einfach nicht drauf was hier nicht stimmt.....

Vielleicht habt Ihr eine Idee ?!

Gruss
SKID
Mitglied: bastla
02.01.2007 um 15:29 Uhr
Hallo skid!

Schau Dir vielleicht das mal an ...

HTH
bastla
Bitte warten ..
Mitglied: skid
03.01.2007 um 11:48 Uhr
Hi bastla,

so in der Art habe ich es doch auch.
Wenn ich mir in meinen Loop eine MsgBox einbaue, werden mir auch die einzelnen Computer richtig angezeigt - aber nur nicht dem Benutzer zugewiesen.

Wenn ich es auf die Weise mache geht es ja

01.
objCommand.CommandText = "<LDAP://ou=Test,ou=clients,dc=aa,dc=bb,dc=de>;(&(objectCategory=computer));Name"
nur wenn ich die OU´s weglasse geht es nicht.
Das ist es was ich nicht so ganz verstehe.

SKID
Bitte warten ..
Neuester Wissensbeitrag
Microsoft Office

MS Office Excel - Formel wird angezeigt, aber nicht berechneter Wert!

Tipp von holli.zimmi zum Thema Microsoft Office ...

Ähnliche Inhalte
Windows Server
AD Bestimmten Benutzer (Hilfsadmin) nur Zugriff auf eine OU geben (1)

Frage von conym18 zum Thema Windows Server ...

Windows Tools
gelöst Nicht mehr vorhandene Computer aus der AD entfernen (6)

Frage von M.Marz zum Thema Windows Tools ...

Windows Userverwaltung
gelöst AD-Benutzer löschen (3)

Frage von Peterz zum Thema Windows Userverwaltung ...

Windows 7
Benutzerordner ohne Benutzer einem neunen Benutzerkonto zuweisen (3)

Frage von Koenig-Mops zum Thema Windows 7 ...

Heiß diskutierte Inhalte
Hyper-V
gelöst Reiner Hyper- V Server oder lieber Rolle (15)

Frage von Winuser zum Thema Hyper-V ...

Windows Server
gelöst Rechte als Admin vergeben - Zugriff verweigert (14)

Frage von Ghost108 zum Thema Windows Server ...

Router & Routing
gelöst IP Kamera für drei unabhängige Netzwerke (12)

Frage von ProfessorZ zum Thema Router & Routing ...