'-------------------------------------------------------------------------
'REnames a local account
'
'9/16/03 Todd Woolums (twoolums@toddwoolums.com)
'Version 1.0
'-------------------------------------------------------------------------

OldName = "Administrator"
NewName = "NewAdmin"
ContainerName = "."
Set Container = GetObject("WinNT://" & ContainerName)
Set User = GetObject("WinNT://" & ContainerName & "/" & OldName &",user")
Set NewUser = Container.MoveHere(User.ADsPath, NewName)
Set User = Nothing