將域使用者或租新增到本地組
set objgroup = getobject("winnt://./administrators")
set objuser = getobject("winnt://testnet/engineers")
objgroup.add(objuser.adspath)
修改本地管理員密碼
set objcnlar = getobject("winnt://./administrator, user")
objcnla.setpassword " p@ssw0rd "
objcnla.setinfo
彈出 yes or no 的對話方塊，不同的選擇執行不同的**
intanswer = msgbox("do you want to delete these files?", vbyesno,
"delete files")
if intanswer = vbyes then
msgbox "you answered yes."
else msgbox "you answered no."
end if
執行cmd命令列命令
set obshell=wscript.createobject("wscript.shell")
obshell.run ("ipconfig"),,true
如果要執行的命令中包含雙引號，可使用&chr(34)&代替
忽略**錯誤繼續執行
on error resume next
放置於**的最開頭，當**執行出錯後並不停止跳出而是繼續執行下一條。適當應用會很有效果。
登錄檔的修改/讀取/刪除/建立
set wso = createobject("wscript.shell") '宣告
wso.regwrite "%path%"'建立子鍵
wso.regwrite "%path%","%value%"'修改"預設"鍵值
wso.regwrite "%path%",%value%,%regtype% '修改特定型別的鍵值
'(字串值 reg_sz 可擴充字串值 reg_expand_sz dword值 reg_dword 二進位制值 reg_binary)
set wshshell= wscript.createobject("wscript.shell")
wshshell.regread (%path%) '讀取登錄檔子鍵或鍵值(一般用於判斷某一事件是否執行)
set wso = createobject("wscript.shell")
wso.regdelete "%path%" '刪除子鍵或鍵值
'(根鍵縮寫hkey_classes_root hkcr hkey_current_user hkcu hkey_local_machine hklm,其餘無)
程式**
set wso = createobject("wscript.shell")
wso.regwrite "hklmsoftwaremicrosftwindows nt#1"
wso.regwrite "hklmsoftwaremicrosftwindows nt#1","0"
wso.regwrite "hklmsoftwaremicrosftwindows nt#1#2",0,reg_binary
wso.regdelete "hklmsoftwaremicrosftwindows nt#1"
wscript.quit
檔案的複製/刪除/建立/簡單的寫入
set fso = wscript.createobject("scripting.filesystemobject") '宣告
set f = fso.createtextfile("%path%") '建立檔案,其中f可任意，包含縮略名
f.writeline("vbs") '寫檔案內容,該命令功能太簡單,目前看來只能用於txt檔案
f.close
set c=fso.getfile("%path%") '拷貝某檔案
c.copy("%path2%") '拷貝檔案到指定地點
fso.deletefile("%path%") '刪除檔案
wscript.quit
程式**
set fso = wscript.createobject("scripting.filesystemobject")
set f=fso.createtextfile("c:sample.txt")
writeline("vbs")
f.close
set e=fso.getfile(c:sample.txt)
e.copy("d:sample.txt")
fso.deletefile(c:sample.txt)
wscript.quit
程式**
資料夾的簡單操作
set fso = wscript.createobject("scripting.filesystemobject") '宣告
set f = fso.createfolder("%path%") 建立資料夾
set e = getfolder(%path%) 類似於"繫結目標"
e.copy("%path2%") 複製資料夾
fso.deletefolder(%path%) 刪除資料夾
程式**
set fso = wscript.createobject("scripting.filesystemobject")
set f = fso.createobject("c:sample")
f.copy("d:sample")
fso.deletefolder("c:sample")
'(由上例可以看出，資料夾的操作很多是和檔案的操作相通的，因此vbs檔案具有很多命令的統一性)
將某一指定資料夾的所有唯讀檔案轉為可讀檔案
const readonly = 1 '設唯讀屬性對應值為1
set fso = createobject("scripting.filesystemobject") '宣告
set folder = fso.getfolder("%path%") '繫結資料夾
set colfiles = folder.files '資料夾所有檔案
for each objfile in colfiles '下列語句應用於資料夾所有檔案
if file.attributes and readonly then '這是關鍵之處，這裡應用了if判斷語句，來檢測檔案屬性是否為唯讀
file.attributes = file.attributes xor readonly
'對判斷結果為ture（預設為true）'執行xor邏輯運算，將其改為可讀
end if '結束判斷
next
程式**
vbs 指令碼學習
最近一直學習指令碼技術，上次初步學習了bat批處理，現在順勢了解了下vbs指令碼。vbs是vb語言的乙個縮影。該語言不需要編譯，可以直接在windows作業系統上解釋執行，效率很高。由於語法簡單，靈活高效，功能強大，所以很值得研究。該語言提供了大部分vb語言所提供的功能，但是描述能力比較弱，所以就是...
vbs關機指令碼
dim mytime,myout1,myout2 mytime null mytime inputbox 請輸入定時時間 格式20 10 05 vblf 如果想倒計時關機，請輸入倒計時時間 vblf 單位 分鐘 vblf 輸入 可以馬上關機 vblf 退出點 取消 定時關機 1 set wshshe...
vbs病毒指令碼
vbs病毒指令碼 2009年11月30日 今天在電腦裡發現了乙個runonce.vbs檔案，在目錄 c documents and settings administrator 開始 選單 程式 啟動 下，看樣子它是打算在我下次開機時執行的，是個什麼東東呢？用記事本將它開啟看到如下 dim objs...