用vbs實(shí)現(xiàn)本地添加用戶的腳本
更新時(shí)間：2008年06月15日 21:23:29 作者：
這個(gè)方法我第一次看到，以前都是用wscript.shell運(yùn)行，這個(gè)是sendkeys方法
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}"
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}"
相關(guān)文章
2008-01-01
VBS調(diào)用WMI實(shí)現(xiàn)搜索硬盤(pán)mp3文件
如果你想用遞歸搜索我也沒(méi)辦法。下面的程序搜索電腦上所有的MP3文件。2011-01-01
用vbs腳本獲取網(wǎng)卡MAC,CPUID,硬盤(pán)序列號(hào)的實(shí)現(xiàn)代碼
這篇文章主要介紹了用vbs腳本獲取網(wǎng)卡MAC,CPUID,硬盤(pán)序列號(hào)的實(shí)現(xiàn)代碼,需要的朋友可以參考下2019-04-04
VBS教程：屬性-IsReady 屬性...2006-11-11
好多情況下，我們只想保留某個(gè)文件或文件夾但對(duì)于大量的文件或文件夾刪除起來(lái)，比較麻煩，下面這個(gè)代碼可以解決這個(gè)問(wèn)題，用vbs實(shí)現(xiàn)的刪除文件夾代碼2008-05-05
VBS教程：方法-FolderExists 方法...2006-11-11
VBS教程：函數(shù)-DateAdd 函數(shù)...2006-11-11
使用 Iisext.vbs 啟用Web服務(wù)擴(kuò)展文件的方法
這篇文章主要介紹了如何使用 iisext.vbs 在本地或遠(yuǎn)程計(jì)算機(jī)上啟用 Web 服務(wù)擴(kuò)展文件,需要的朋友可以參考下2014-07-07
你用WshShell.AppActivate("D:\")這個(gè)，就是說(shuō)窗體Caption里要包含"D:\"這個(gè)字符串。可你打開(kāi)D盤(pán)看看，是這樣的嗎？2008-07-07
下面的hta主要用于實(shí)現(xiàn)網(wǎng)易文件的提取，提供這個(gè)代碼希望大家學(xué)習(xí)他的hta編寫(xiě)2008-06-06