Users in a Windows Groups

[Alan D. Ayers]

I am very new to AutoIT so far I like what I see. However I cannot find anything on checking if a user belongs to a Windows Group. Any help would be appreciated. Thanks.

Alan

[BigDod]

This is not the support forum

[JSThePatriot]

Use the following code from Scriptomatic to help you get to your end. You will need to parse the output, but it will atleast get you started in a direction.

; Generated by AutoIt Scriptomatic

$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

$Output=""
$Output = $Output & "Computer: " & $strComputer  & @CRLF
$Output = $Output & "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_GroupUser", "WQL", _
                                          $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) then
   For $objItem In $colItems
      $Output = $Output & "GroupComponent: " & $objItem.GroupComponent & @CRLF
      $Output = $Output & "PartComponent: " & $objItem.PartComponent & @CRLF
      if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
      $Output=""
   Next
Else
   Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_GroupUser" )
Endif

I hope it helps,

JS

[Sicapo]

I am very new to AutoIT so far I like what I see. However I cannot find anything on checking if a user belongs to a Windows Group. Any help would be appreciated. Thanks.

Alan

Try the IsMember.exe from the Windows Resource Kit.

Sicapo

[powaking]

Func UserInGroup($Domain, $UserName, $InGroup)
    Local $objUser = ObjGet("WinNT://" & $Domain & "/" & $UserName)
    For $oGroup in $objUser.Groups
        If $oGroup.Name = $InGroup Then 
            Return 1
        EndIf
    Next
    Return 0
EndFunc

Just specify the domain, username and what group to look for. Then use an IF statement to see if its true.

Edited August 23, 2006 by powaking

[bbulldog]

another quick one would be something on the lines of this

$Name = InputBox("Group", "Enter User Name", "", "", 100, 100, 100, 100)
If @error Then Exit
If $Name = "" Then Exit
Local $objUser = ObjGet("WinNT://" & @LogonDomain & "/" & $Name)
For $oGroup in $objUser.Groups
    MsgBox(4096, "Groups", $oGroup.Name, 10)
Next