VBS USER CREATE

strComputer = "." ' Local Computer
strUser = "User05"
strPassword = "P@$$W0rd"

Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", strUser)
objUser.SetPassword strPassword
objUser.SetInfo