8
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ß
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ß
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 353796
Url: https://administrator.de/contentid/353796
Printed on: April 24, 2024 at 13:04 o'clock
8 Comments
Latest comment
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...
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 ...!
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! 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' "
Einfach nur
objCommand.CommandText = "SELECT * FROM '" & strLDAP & "' WHERE sAMAccountName = 'FTCCKSGJW'" Wie ist der Wert von "strLDAP" ?
E.
Wie ist der Wert von "strLDAP" ?
Dim oRootSet 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.
.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
Ach mann, das Web ist voll damit ...
https://www.google.de/search?q=vbscript+get+group+member
https://www.google.de/search?q=vbscript+get+group+member
Eben, das ist noch einer voll vom Wochenende .
.
