こんにちは、よろしくお願いします。------------------OS:windows10provb6------------------Windows7では、下記のコードで変更できますが、windows10では、変更できなくて困っております。そもそもwindows10のローカルの「Administrator」を変更可能かご教示のほどよろしくお願いします。'This specifies the local computerSub test()strComputer = "."'This tells it what name to look forSet 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 toFor Each objAccount In colAccounts objAccount.Rename "admin"NextEnd Sub
- Child Tree -