Powershell in VBA

Hallo,

kann mir jemand helfen das zu übersetzen?

ich möchte gerne eine Ausgabe in VBScript machen. Der Befehl ist:
get-adgroup -Filter 'GroupCategory -eq "Security" -and Name -like "FTCCKSGJW"' | Get-ADGroupMember | Format-Table -Property SamAccountName,Name,Department -AutoSize

und gibt mir User in der Gruppe FTCCKSGJW zurück...

mit einem VBA-Select kann ich auch User zurück geben
objCommand.CommandText = "SELECT * FROM '" & strLDAP & "' WHERE objectCategory='person' AND objectClass='user' AND sAMAccountName = 'USER' "

aber wenn ich den Select "logisch" umbaue, dann kommt einfach "nichts" <- also so wie wenn der Select nichts findet

objCommand.CommandText = "SELECT * FROM '" & strLDAP & "' WHERE GroupCategory='Security' AND objectClass='user' AND Name = 'FTCCKSGJW' "

schon vorab Vielen Dank für die Hilfe

Gruß

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 353796

Url: https://administrator.de/contentid/353796

Ausgedruckt am: 25.11.2024 um 15:11 Uhr

8 Kommentare

Neuester Kommentar

objectClass='user'

Eine Gruppe ist ja auch nicht vom Typ "User"

Thank God it's monday.

ups... das war ein CopyPaste Fehler...

aber auch

objCommand.CommandText = "SELECT * FROM '" & strLDAP & "' WHERE GroupCategory='Security' AND Name = 'FTCCKSGJW' "

gibt nicht die erwartete Meldung zurück, sondern einfach NICHTS...

objectCategory = "group"
reicht.
Zieh dir einfach ein bisschen LDAP Syntax rein und schau dir die AD Attribute der Gruppen an ...!

get-adgroup -Filter 'GroupCategory -eq "Security" -and Name -like "FTCCKSGJW"' | Get-ADGroupMember | Format-Table -Property SamAccountName,Name,Department -AutoSize
objCommand.CommandText = "SELECT * FROM '" & strLDAP & "' WHERE objectCategory='person' AND objectClass='user' AND sAMAccountName = 'USER' "
objCommand.CommandText = "SELECT * FROM '" & strLDAP & "' WHERE GroupCategory='Security' AND objectClass='user' AND Name = 'FTCCKSGJW' "

Das sind aber viele copy&paste Fehler!

Einfach nur

objCommand.CommandText = "SELECT * FROM '" & strLDAP & "' WHERE sAMAccountName = 'FTCCKSGJW'"  

sollte es auch richten.

Wie ist der Wert von "strLDAP" ?

E.

Wie ist der Wert von "strLDAP" ?

Dim oRoot
Set oRoot = GetObject("LDAP:rootDSE")
Dim sDomain
sDomain = oRoot.Get("defaultNamingContext")
Dim strLDAP
strLDAP = "LDAP:" & sDomain

objCommand.CommandText = "SELECT * FROM '" & strLDAP & "' WHERE sAMAccountName = 'FTCCKSGJW'"

hier erhalte ich die Gruppe zurück... <- was schon mal ein Schritt in die richtige Richtung ist...
Aber nicht die Member...

evtl. mach ich bei der Ausgabe einen Fehler?

    Set objRecordSet = objCommand.Execute
    objRecordSet.Movefirst

    Do Until objRecordSet.EOF
        Set oUser = GetObject(objRecordSet.Fields("aDSPath"))  

        res = res & """KID"": """ & oUser.samAccountName & """, "  
        res = res & """Name"": """ & oUser.DisplayName & """, "  
        res = res & """Mail"": """ & oUser.mail & """, "  

        objRecordSet.MoveNext

    Loop


    Debug.Print res

Da dein Recordset nur eine Gruppe zurückgibt ist deine Schleife hier sinnlos

.
Hol dir die Eigenschaft member der Gruppe, dort stehen die User drin.

Set oGroup = GetObject(objRecordSet.Fields("aDSPath"))   
oGroup.GetInfo
for each member in oGroup.GetEx("member")  
    set oUser = GetObject("LDAP://" & strMember)  
    msgbox oUser.SamAccountName
Next