I need to be able to add the domain group "Domain Users" to the local machine's "Power Users" group. I tried it this way.. but I can get it to work. Can anyone help me on this?
Code:

;**************************************************

;*** Check if domain group is in local group

;**************************************************

$grouptoadd = @DOMAIN + "\Domain Users"

$obj = GetObject("WinNT://" + @WKSTA + "/Power Users")

$obj.filter = "group",""



Dim $DomainGroups[0]

For Each $GroupObj In $Obj.Members

     If Split($groupobj.adspath,"/")[3] <> @WKSTA

          $DomainGroups[$i] = Split($groupobj.adspath,"/")[2] +"\" + Split($groupobj.adspath,"/")[3]

          $i = $i + 1

          ReDim preserve $DomainGroups[$i]

     EndIf

Next





;**************************************************

;*** If domain group is not in local group, add it

;**************************************************

If AScan($DomainGroups,$GroupToAdd) = -1

     ? $groupToAdd + " was not found in " + SubStr($obj.adspath,14,7) + "\" + SubStr($obj.adspath,22,18)

     $PdcName = @DOMAIN

     $ComputerName = @WKSTA

     $UserString = "Domain Users"

     $GroupString = "Power Users"

     ;? $PdcName + " " + $ComputerName + " " + $UserString + " " + $GroupString



     $GroupObj = GetObject("WinNT://" + $PdcName + "/" + $ComputerName + "/" + $GroupString)

     $GroupObj.Add ("WinNT://" + $PdcName + "/" + UserString)

     $DomainObj = ""

     $GroupObj = ""

     Exit 0

Else

     ? "Added " + $groupToAdd + " to " + SubStr($obj.adspath,14,7) + "\" + SubStr($obj.adspath,22,18)

EndIf