Use vbs to implement local user addition scripts

Dim WshShell
set WshShell = CreateObject("")
"cmd /k"
for i = 1 to 3
500
"net user admin" & i & " abcd@123 /add"
"{ENTER}"
next
"exit"
"{ENTER}"