Super! Danke!
Genau das habe ich gesucht - bin die Hilfe schon durchgegangen, aber darauf habe ich nicht geschaut bzw. wäre ich nie drauf gekommen ;).
Du hast ja keine echte Dynamik, sondern möchtest auf eine feste Größe verändern.
->stimmt, die Formulierung war nicht besonders(war gestern unterwegs :pinch: )
Hallo!
Ist es "einfach" Möglich die GUI dynamisch zu vergrössern?
Ich will zB, daß nach dem klicken auf eine Checkbox die GUI verlängert wird also aufklappt. "untickt" man diese Checkbox wieder, dann soll sich die GUI wieder verkleinern bzw. einklappen.
Ist dies ohne viel Aufwand zu treiben möglich? 
Danke!
lg
Hi!
auch wenn ein bischen verspätet, aber letztendlich habe ich doch geschafft!
Falls es vielleicht mal jemand braucht hier bitteschön.
Es werden englisch wie deutche Gruppennamen berücksichtigt.
Hab das ganze als Function geschrieben, darum kann man sollte man exotische Gruppennamen diese auch einfach einsetzen kann bzw. die man nicht braucht einfach löschen.
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$strComputer = @ComputerName
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
msgbox(1,"Gäste",groupusers("Guests","Gäste"))
msgbox(1,"Benutzer",groupusers("Users","Benutzer"))
MsgBox(1,"","Administratoren:" & @crlf & groupusers("Administratoren","Administrators") &@crlf&@crlf&"Hauptbenutzer:" & @crlf & groupusers("Hauptbenutzer","Power Users"))
Func groupusers($group,$group_en)
$users = ""
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_groupuser where GroupComponent = ""Win32_Group.Domain='" & $strComputer & "',name='"& $group_en & "'""" & _
" OR Groupcomponent = ""Win32_Group.Domain='" & $strComputer & "',name='" & $group & "'""" _
, "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If IsObj($colItems) then
For $objItem In $colItems
$dom=StringInStr($objItem.PartComponent,"domain=")
$name = StringTrimRight(StringReplace(StringMid($objItem.partcomponent,$dom+8),""",Name=""","/"),1)
if stringinstr($users,$name) = 0 Then
if $users<>"" Then
$users = $users & " "
endif
$users = $users & $name
endif
Next
EndIf
return $users
endfunc
Ps.Sorry für nicht kommentieren ;
Hallo!
Danke für die Antwort!
Das Script habe ich auch bei meiner Suche schon gefunden, leider aber nicht verstanden! =(
Ich meine das Skript an sich "check" ich einigermaßen, aber die Ausgabe läßt mich grübeln!
Was ist das für "stranges" Zeug was da raus kommt?-> lol! Sorry aber ich check das nicht 
Kann mir das vielleicht jemand erklären?
Danke und lg
Hi!
Ich versuche seit Tagen herauszufinden, wie es zu bewerkstelliegen ist, die Gruppenmitgliedschaften des momentan angemeldeten User zu eruieren.
Es handelt sich nicht um eine AD, also wirklich nur die lokalen Gruppen!
Im Moment mach ich es mit net localgroup Administrator>file.txt, welches ich wiederrum einlese und heruasfiltere!
Die Lösung gefällt mir aber nicht besonders!
Hat jemand vielleicht eine bessere Idee?
Danke und lg
nigthlord
