how to disable the administrator on local system

[hartlen]

when i want to disable the administrator on local system ,how can i do

Dim sComputer, sUser, oUser, sDSPath
Dim sNewPass
sUser = "Administrator"
sNewPass = "521013"
sComputer = "."

sDSPath = "WinNT://" & sComputer & "/" & sUser & ",user"

Set oUser = GetObject(sDSPath)
oUser.AccountDisabled=false
oUser.SetPassword sNewPass

no error but not work

 

[tsuji]

Hello hartlen,

You need setinfo to commit.
[tt]
oUser.setinfo
[/tt]
regards - tsuji

 

[hartlen]

thank you very much

 

[strongm]

You cannot disable any of the builtin accounts, I'm afraid. You can, however, rename them