VBS腳本對於很多人來說都是很陌生的名詞,但是今天小編就給大家講解這一陌生的名詞在系統安全中的妙用吧.很多專業人員都明白,用VBS編寫的腳本程序在窗口界面是由wscript.exe文件解釋執行的，在字符界面由cscript.exe文件解釋執行。wscript.exe是一個腳本語言解釋器，正是它使得腳本可以被執行，就象執行批處理一樣。
一、給注冊表編輯器解鎖
用記事本編輯如下內容：
DIM WSH
SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL") '擊活WScript.Shell對象
WSH.POPUP("解鎖注冊表編輯器!")
'顯示彈出信息“解鎖注冊表編輯器!”
1. WSH.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\
DisableRegistryTools",0,"REG_DWORD"
'給注冊表編輯器解鎖
WSH.POPUP("注冊表解鎖成功!")
'顯示彈出信息“注冊表解鎖成功!”
保存為以.vbs為擴展名的文件，使用時雙擊即可。
二、關閉Win NT/2000的默認共享
用記事本編輯如下內容：
Dim WSHShell'定義變量
set WSHShell=CreateObject("WScript.shell") '創建一個能與操作系統溝通的對象WSHShell
Dim fso,dc
Set fso=CreateObject("Scripting.FileSystemObject")'創建文件系統對象
set dc=fso.Drives '獲取所有驅動器盤符
For Each d in dc
Dim str
WSHShell.run("net share"&d.driveletter &"$ /delete")'關閉所有驅動器的隱藏共享
next
WSHShell.run("net share admin$ /delete")
WSHShell.run("net share ipc$ /delete")'關閉admin$和ipc$管道共享
現在來測試一下，先打開cmd.exe，輸入net share命令就可以看到自己機子上的共享。雙擊執行stopshare.vbs後，會看見窗口一閃而過。然後再在cmd裡輸入net share命令，這時候沒有發現共享列表了
1. New Roman">
三、顯示本機IP地址
有許多時候，我們需要知道本機的IP地址，使用各種軟件雖然可以辦到，但用VBS腳本也非常的方便。用記事本編輯如下內容：
1. Dim WS
2. Set WS=CreateObject("MSWinsock.Winsock")
3. IPAddress=WS.LocalIP
4. MsgBox "Local IP=" & IPAddress
將上面的內容保存為ShowIP.vbs，雙擊執行即可得到本機IP地址。 上一頁12下一頁共2頁
