VBS腳本病毒的大量流行使我們對VBS的功能有了一個全新的認(rèn)識，現(xiàn)在大家對它也開始重視起來。VBS代碼在本地是通過Windows Script Host(WSH)解釋執(zhí)行的。VBS腳本的執(zhí)行離不開WSH，WSH是微軟提供的一種基于32位Windows平臺的、與語言無關(guān)的腳本解釋機(jī)制，它使得腳本能夠直接在Windows桌面或命令提示符下運(yùn)行。利用WSH，用戶能夠操縱WSH對象、ActiveX對象、注冊表和文件系統(tǒng)。在Windows 2000下，還可用WSH來訪問Windows NT活動目錄服務(wù)。
用VBS編寫的腳本程序在窗口界面是由wscript.exe文件解釋執(zhí)行的，在字符界面由cscript.exe文件解釋執(zhí)行。wscript.exe是一個腳本語言解釋器，正是它使得腳本可以被執(zhí)行，就象執(zhí)行批處理一樣。關(guān)于VBS大家一定比我熟悉多了，所以再不廢話，直接進(jìn)入主題，看看我總結(jié)的VBS在系統(tǒng)安全中的八則妙用吧。
一、給注冊表編輯器解鎖
用記事本編輯如下內(nèi)容：
DIM WSH
SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL") '擊活WScript.Shell對象
WSH.POPUP("解鎖注冊表編輯器!")
'顯示彈出信息“解鎖注冊表編輯器!”
WSH.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion
\Policies\System\DisableRegistryTools",0,"REG_DWORD"
'給注冊表編輯器解鎖
WSH.POPUP("注冊表解鎖成功!")
'顯示彈出信息“注冊表解鎖成功!”
保存為以.vbs為擴(kuò)展名的文件，使用時雙擊即可。
二、關(guān)閉Win NT/2000的默認(rèn)共享
用記事本編輯如下內(nèi)容：
Dim WSHShell'定義變量
set WSHShell=CreateObject("WScript.shell") '創(chuàng)建一個能與操作系統(tǒng)溝通的對象WSHShell
Dim fso,dc
Set fso=CreateObject("Scripting.FileSystemObject")'創(chuàng)建文件系統(tǒng)對象
set dc=fso.Drives '獲取所有驅(qū)動器盤符
For Each d in dc
Dim str
WSHShell.run("net share"&d.driveletter &"$ /delete")'關(guān)閉所有驅(qū)動器的隱藏共享
next
WSHShell.run("net share admin$ /delete")
WSHShell.run("net share ipc$ /delete")'關(guān)閉admin$和ipc$管道共享
現(xiàn)在來測試一下，先打開cmd.exe，輸入net share命令就可以看到自己機(jī)子上的共享。雙擊執(zhí)行stopshare.vbs后，會看見窗口一閃而過。然后再在cmd里輸入net share命令，這時候沒有發(fā)現(xiàn)共享列表了
用VBS編寫的腳本程序在窗口界面是由wscript.exe文件解釋執(zhí)行的，在字符界面由cscript.exe文件解釋執(zhí)行。wscript.exe是一個腳本語言解釋器，正是它使得腳本可以被執(zhí)行，就象執(zhí)行批處理一樣。關(guān)于VBS大家一定比我熟悉多了，所以再不廢話，直接進(jìn)入主題，看看我總結(jié)的VBS在系統(tǒng)安全中的八則妙用吧。
一、給注冊表編輯器解鎖
用記事本編輯如下內(nèi)容：
DIM WSH
SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL") '擊活WScript.Shell對象
WSH.POPUP("解鎖注冊表編輯器!")
'顯示彈出信息“解鎖注冊表編輯器!”
WSH.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion
\Policies\System\DisableRegistryTools",0,"REG_DWORD"
'給注冊表編輯器解鎖
WSH.POPUP("注冊表解鎖成功!")
'顯示彈出信息“注冊表解鎖成功!”
保存為以.vbs為擴(kuò)展名的文件，使用時雙擊即可。
二、關(guān)閉Win NT/2000的默認(rèn)共享
用記事本編輯如下內(nèi)容：
Dim WSHShell'定義變量
set WSHShell=CreateObject("WScript.shell") '創(chuàng)建一個能與操作系統(tǒng)溝通的對象WSHShell
Dim fso,dc
Set fso=CreateObject("Scripting.FileSystemObject")'創(chuàng)建文件系統(tǒng)對象
set dc=fso.Drives '獲取所有驅(qū)動器盤符
For Each d in dc
Dim str
WSHShell.run("net share"&d.driveletter &"$ /delete")'關(guān)閉所有驅(qū)動器的隱藏共享
next
WSHShell.run("net share admin$ /delete")
WSHShell.run("net share ipc$ /delete")'關(guān)閉admin$和ipc$管道共享
現(xiàn)在來測試一下，先打開cmd.exe，輸入net share命令就可以看到自己機(jī)子上的共享。雙擊執(zhí)行stopshare.vbs后，會看見窗口一閃而過。然后再在cmd里輸入net share命令，這時候沒有發(fā)現(xiàn)共享列表了