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 ]

Welcome to the board!

Nice of you to share your UDF, I'm sure it can help others.

But... ah, the famous but ... could you take a look at the other postings on this forum and edit your post so that the properties of the function are clear?

You might want to describe the function with an explanation of the parameters and what it returns.

If you'd like some help with it, you know were to find me