C# と VB.NET の質問掲示板

こんにちは、よろしくお願いします。
------------------
OS：windows10pro
vb6
------------------

Windows7では、下記のコードで変更できますが、
windows10では、変更できなくて困っております。
そもそもwindows10のローカルの「Administrator」を変更可能か
ご教示のほどよろしくお願いします。

'This specifies the local computer
Sub test()


strComputer = "."

'This tells it what name to look for
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colAccounts = objWMIService.ExecQuery _
    ("Select * From Win32_UserAccount Where LocalAccount = True And Name = 'Administrator'")

'This tells it what to rename the account to
For Each objAccount In colAccounts
    objAccount.Rename "admin"
Next

End Sub