Add user to group

[MJPollard]

What's wrong with the following snippet:

Dim $UserGroup, $UserName

$UserGroup = "Guests"
$UserName = "xGuest"

;Add User to group 
$objGroup = ObjGet("WinNT://" & @ComputerName & "/" & $UserGroup)
$objUser = ObjGet("WinNT://" & @ComputerName & "/" & $UserName)
If $objGroup.IsMember($UserName) = False Then
    $objGroup.Add($objUser.ADsPath)
EndIf
    
; Runtime error on the following line with the error msg below
;   $objGroup.Add($objUser.ADsPath) 
; Error: The requested action with this object has failed.

[water]

Do you want to add a local or a domain user to the group?

For domain user please see this link.

Edited April 25, 2010 by water

[MJPollard]

Do you want to add a local or a domain user to the group?

For domain user please see this link.

It is a local account. The thing is the thread you link to claims that it works for a local account. While the variables have a different name and I have a check, as far as I can tell my instruction to add the user to the group is exactly the same.

The other part that bothers me is that when I check the values as I step through this $objGroup and $objUser appear to be valueless but $objUser.ADsPath shows the expected information.

Edited April 25, 2010 by MJPollard

[MJPollard]

What's wrong with the following snippet:

Dim $UserGroup, $UserName

$UserGroup = "Guests"
$UserName = "xGuest"

;Add User to group 
$objGroup = ObjGet("WinNT://" & @ComputerName & "/" & $UserGroup)
$objUser = ObjGet("WinNT://" & @ComputerName & "/" & $UserName)
If $objGroup.IsMember($UserName) = False Then
    $objGroup.Add($objUser.ADsPath)
EndIf
    
; Runtime error on the following line with the error msg below
;   $objGroup.Add($objUser.ADsPath) 
; Error: The requested action with this object has failed.

This is a corrected version that appears to be working. I've only included the instructions. The check was changed to 'If Not' and the .IsMember was changed to $objUser.ADsPath.

$objGroup = ObjGet("WinNT://" & @ComputerName & "/" & $UserGroup & ",group")
$objUser = ObjGet("WinNT://" & @ComputerName & "/" & $UserName & ",user")
If Not $objGroup.IsMember($objUser.AdsPath) Then
    $objGroup.Add ($objUser.AdsPath)
EndIf