- Dim WshShell
- set WshShell = CreateObject("wscript.Shell")
- WshShell.Run "cmd /k"
- for i = 1 to 3
- WScript.Sleep 500
- WshShell.SendKeys "net user admin" & i & " abcd@123 /add"
- WshShell.SendKeys "{ENTER}"
- next
- WshShell.SendKeys "exit"
- WshShell.SendKeys "{ENTER}"
相关文章
- 【转】VBS脚本 实现\"无线网络连接\"与\"本地连接\"的网卡禁用启用完美切换(优化版)
- Windows系统使用vbs脚本或bat脚本强制杀死指定所有进程 vbs实现循环持续写入内容到vbs打开开的记事本 使用vbs、bat添加windows计划任务 使用cmd schtasks命令添加windows计划任务
- 域服务器如何写脚本实现把加入本地管理员组的域用户名清除出去
- 用vbs实现注册表开关的脚本
- 用vbs实现解除注册表CMD、Regedit、Taskmgr限制的脚本代码
- 用vbs实现的确定共享文件夹的本地路径?
- 用vbs实现随机读取文件的一行内容的脚本
- 用vbs实现修改dns的网关脚本
- 用vbs实现编码转换的脚本代码
- 用vbs实现的exe2swf工具脚本代码