How to use adfunctions.au3 script

[GRCM]

Hi to all.

I like to use the adfunctions.au3 script to verify if a user is member of a group, but I don't know how to do this.

Please help me.

[ptrex]

@GRCM

This does not use the adfunctions.au3, but it check the user in group anyhow.

expandcollapse popup

Dim $InGroup

$oMyError = ObjEvent("AutoIt.Error", "ComError")


If  UserInGroup(@LogonDomain,@UserName,"YourGroup") then
    msgbox(0,"Validate",@LogonDomain &"/"&@UserName&" : User in your groupname " & $InGroup)
Else
    msgbox(0,"Validate",@LogonDomain &"/"&@UserName&" : User NOT in your groupname")
EndIf

Exit
; Check if User is in a group 
Func UserInGroup($Domain, $UserName, $InGroup)
    ;local $sRet
    Local $objUser = ObjGet("WinNT://" & $Domain & "/" & $UserName)
    
    For $oGroup in $objUser.Groups
        If $oGroup.Name = $InGroup Then  Return 1
    Next
    Return 0
EndFunc 

;COM Error function

regards

ptrex
Func ComError()
    If IsObj($oMyError) Then
        $HexNumber = Hex($oMyError.number, 8)
        SetError($HexNumber)
    Else
        SetError(1)
    EndIf
    Return 0
EndFunc ;==>ComError