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