用vbs实现本地添加用户的脚本

1. Dim WshShell  
2. set WshShell = CreateObject("wscript.Shell")  
3. WshShell.Run "cmd /k"  
4. for i = 1 to 3  
5. WScript.Sleep 500  
6. WshShell.SendKeys "net user admin" & i & " abcd@123 /add"  
7. WshShell.SendKeys "{ENTER}"  
8. next  
9. WshShell.SendKeys "exit"  
10. WshShell.SendKeys "{ENTER}"