3 авг. 2010 г.

Скрипт для переименования локальной учетной записи Windows (Rename Local User Script)

Случилось так, что на сервере со свежеустановленной Windows отсутствовал русский язык в системе. При этом имя единственного пользователя звучало как "Администратор". Ситуация усугублялась еще и тем, что Windows был простым Hyper-V Server-ом без mmc консолей. Благо, хоть терминальный доступ остался. Вот так казус.

В общем, скрипт переименования локальной учетной записи мне пригодился.

'Rename_Local_User_Script.vbs

' code start

sOldUser = "Администратор"

sNewUser = "Admin"

sComputerName = "." ' use "." for local computer

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