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

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

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

ローカルユーザー名の変更

[トピック内 2 記事 (1 - 2 表示)]  << 0 >>

■85051 / inTopicNo.1)  ローカルユーザー名の変更
  
□投稿者/ 微糖 (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


引用返信 編集キー/
■85063 / inTopicNo.2)  Re[1]: ローカルユーザー名の変更
□投稿者/ 微糖 (2回)-(2017/09/08(Fri) 08:35:47)
No85051 (微糖 さん) に返信
> こんにちは、よろしくお願いします。
> ------------------
> 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
>
>
解決済み
引用返信 編集キー/

このトピックをツリーで一括表示


トピック内ページ移動 / << 0 >>

このトピックに書きこむ