Set objShell = CreateObject("WScript.Shell")

username = WScript.Arguments.Item(0)
password = WScript.Arguments.Item(1)

objShell.Run "runas /user:" & username & " ""cmd /c CREATE && exit"""
WScript.Sleep 1000

objShell.SendKeys password & "{ENTER}"