VBS中常用腳本代碼
2019-10-26 17:58:23
供稿：網(wǎng)友
將域用戶或租添加到本地組
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 的對(duì)話框，不同的選擇執(zhí)行不同的代碼
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
運(yùn)行CMD命令行命令
set obshell=wscript.createobject("wscript.shell")
obshell.run ("ipconfig"),,true
如果要運(yùn)行的命令中包含雙引號(hào)，可使用&chr(34)&代替
忽略代碼錯(cuò)誤繼續(xù)執(zhí)行
On Error Resume Next
放置于代碼的最開(kāi)頭，當(dāng)代碼運(yùn)行出錯(cuò)后并不停止跳出而是繼續(xù)執(zhí)行下一條。適當(dāng)應(yīng)用會(huì)很有效果。
注冊(cè)表的修改/讀取/刪除/創(chuàng)建
Set wso = CreateObject("WScript.Shell") '聲明
wso.RegWrite "%Path%"'創(chuàng)建子鍵
wso.RegWrite "%Path%","%Value%"'修改"默認(rèn)"鍵值
wso.RegWrite "%Path%",%Value%,%RegType% '修改特定類型的鍵值
'(字符串值 REG_SZ 可擴(kuò)充字符串值 REG_EXPAND_SZ DWORD值 REG_DWORD 二進(jìn)制值 REG_BINARY)
Set WSHShell= Wscript.CreateObject("Wscript.Shell")
WSHShell.RegRead (%Path%) '讀取注冊(cè)表子鍵或鍵值(一般用于判斷某一事件是否執(zhí)行)
Set wso = CreateObject("WScript.Shell")
wso.RegDelete "%Path%" '刪除子鍵或鍵值
'(根鍵縮寫HKEY_CLASSES_ROOT HKCR HKEY_CURRENT_USER HKCU HKEY_LOCAL_MACHINE HKLM,其余無(wú))
程序代碼
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
文件的復(fù)制/刪除/創(chuàng)建/簡(jiǎn)單的寫入
Set fso = Wscript.CreateObject("Scripting.FileSystemObject") '聲明
Set f = fso.CreateTextFile("%PATH%") '創(chuàng)建文件,其中f可任意，包含縮略名
f.WriteLine("VBS") '寫文件內(nèi)容,該命令功能太簡(jiǎn)單,目前看來(lái)只能用于TXT文件
f.Close
set c=fso.getfile("%path%") '拷貝某文件
c.copy("%PATH2%") '拷貝文件到指定地點(diǎn)
fso.deletefile("%PATH%") '刪除文件
Wscript.quit
程序代碼
