VBScript 系統安全實戰三招：解鎖註冊表、關閉預設共享、顯示本機 IP

VBS 腳本透過 WScript.Shell 物件操作系統設定，為系統管理提供輕量自動化工具。本文提供三個實用腳本：解鎖被病毒鎖定的註冊表編輯器、關閉 NT/2000/XP 預設管理共享、快速顯示本機 IP 位址。

一、解鎖註冊表編輯器

Dim WSH
Set WSH = WScript.CreateObject("WScript.Shell")
WSH.Popup "解鎖註冊表編輯器!"
WSH.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 0, "REG_DWORD"
WSH.Popup "註冊表解鎖成功!"

儲存為 unlock_reg.vbs，雙擊執行即可。

二、關閉預設管理共享 (C$, D$, ADMIN$, IPC$)

Dim WSHShell, fso, dc
Set WSHShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d In dc
    WSHShell.Run "net share " & d.DriveLetter & "$ /delete"
Next
WSHShell.Run "net share admin$ /delete"
WSHShell.Run "net share ipc$ /delete"

執行前後在 cmd 下 net share 驗證共用清單已清空。

三、顯示本機 IP 位址

Dim WS
Set WS = CreateObject("MSWinsock.Winsock")
IPAddress = WS.LocalIP
MsgBox "Local IP = " & IPAddress

儲存為 ShowIP.vbs，雙擊即時彈窗顯示 IP。

執行架構說明

• 圖形介面：wscript.exe 解釋執行
• 字元介面：cscript.exe 解釋執行
• 核心物件：WScript.Shell（系統操作）、Scripting.FileSystemObject（檔案系統）、MSWinsock.Winsock（網路資訊）

善用 VBS 腳本，將繁瑣手動設定轉為一鍵自動化，提升管理效率。