Vista - Editing Full Name of a local user

Hi guys!
I need to rename an administrator local user and reset the full name
of this.

For rename, I use this script:

-----------SCRIPT START--------------------

' code start

sOldUser = "OldAdmin"
sNewUser = "NewAdmin"

sComputerName = "PC0001"

Set colUsers = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& sComputerName & "\root\cimv2").ExecQuery _
("select Name from Win32_UserAccount where name = '" & sOldUser &
"'")

If colUsers.Count > 0 Then
For Each oUser In colUsers
iRC = oUser.Rename(sNewUser)
If iRC = 0 Then
WScript.Echo "User renamed"
Else
WScript.Echo "Rename method returned ERROR # " & iRC
End if
Next
Else
WScript.Echo "No user found"
End If

-----------SCRIPT END--------------------

But how I can do to reset the full name of user "NewAdmin" ??
How I can modify my script?

Thanks,
Valerio

<valerioweb@xxxxxx> wrote in message
news:97355677-1626-424b-bb3f-8d3805e7dd71@xxxxxxAssign a value to the FullName attribute of the user object. This attribute
is exposed by the Win32_UserAccount class. Also, the following link suggests
a slightly different query.
http://www.microsoft.com/technet/scr...6/hey0517.mspx
I would suggest:============strComputer = "MyComputer"

Set objWMIService = GetObject("winmgmts:" _ &
"{impersonationLevel=impersonate,authenticationLevel=Pkt}!\\" _ &
strComputer & "\root\cimv2")
Set colAccounts = objWMIService.ExecQuery _
("Select * From Win32_UserAccount Where LocalAccount = True And Name =
'" & sOldUser & "'")

For Each objAccount in colAccounts objAccount.FullName = "NewAdmin"
objAccount.Rename sNewUser
Next==========I don't find documentation for a SetInfo method, so apparently
that is not required by the Win32_UserAccount class of WMI.
-- Richard MuellerMVP Directory ServicesHilltop Lab -
http://www.rlmueller.net--