function UserInGroup
;This will query a domain (or workstation) group to determine if the specified user name is a member.
;Returns 1 if the user is a member
;Returns 0 if the user is not a member
($UserName,$GroupName,$DomainName)
$UserInGroup = 0
$user=GetObject("WinNT://$DomainName/$UserName")
for each $prop in $user.groups
if $GroupName = $prop.name
$UserInGroup = 1
endif
next
endfunction

function ModUserAccount
;This will modify a domain (or workstation) user account.
;The value used for Property must be exact and must be one of the following:
; Description
; FullName
; HomeDirDrive (Letter for drive mapping)
; HomeDirectory
; LoginScript
; Profile (user profile directory)
;Enter the value just as you would using User Manager (or the W2K equivalent)
;Returns 1 for a successful update
;Returns 0 if it was not successful
($DomainName,$UserName,$Property,$Value)
$UserProperties = 0
$Usr=GetObject("WinNT://$DomainName/$UserName,user")
Select
Case $Property="Description"
$Usr.Description=$Value
Case $Property="FullName"
$Usr.FullName=$Value
Case $Property="HomeDirDrive" ;Letter for drive mapping
$Usr.HomeDirDrive=Ucase($Value)
Case $Property="HomeDirectory"
$Usr.HomeDirectory=$Value
Case $Property="LoginScript"
$Usr.LoginScript=$Value
Case $Property="Profile"
$Usr.Profile=$Value
EndSelect
$ChangeUser=$Usr.SetInfo
? $Usr ?
if $Usr <> ""
$ModUserAccount = 1
endif
endfunction

function UserRename
;This will rename a user account
;Returns 0 for nonsuccessful and 1 for a successful rename
;If you have to do this on a large scale for several users at once, let me know, and I'll email you the full code to rename the accounts, Home Directories, and User Profile directories also. davidrgeorge@yahoo.com
($OldUserName,$NewUserName,$DomainName)
$UserRename = 0
$Dmn=GetObject("WinNT://$DomainName")
$Usr=GetObject("WinNT://$DomainName/$OldUserName,user")
$DoRename=$Dmn.MoveHere($Usr.AdsPath,$NewUserName)
if $DoRename <> ""
$UserRename = 1
endif
endfunction

[ 17 January 2002: Message edited by: davidrgeorge ]