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

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


■85051 / )  ローカルユーザー名の変更
□投稿者/ 微糖 (1回)-(2017/09/07(Thu) 12:41:34)

分類:[VB6 以前] 

こんにちは、よろしくお願いします。
------------------
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


返信 編集キー/


管理者用

- Child Tree -