停用 NetBIOS over TCP/IP 腳本檔 (.vbs)

[琥珀]

這是微軟提供的範例精簡而成。如果不想使用 VBS 格式，可以編碼為 VBE 檔案，或是轉換為 EXE 檔案。

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNicConfigs = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objNicConfig in colNicConfigs
  objNicConfig.SetTCPIPNetBIOS(2)
Next

除了使用 VBScript，另一個方法是透過 wmic 指令：
wmic nicconfig where index=1 call SetTcpipNetbios 2

更進階的方法：
wmic nicconfig where TcpipNetbiosOptions=0 call SetTcpipNetbios 2
wmic nicconfig where TcpipNetbiosOptions=1 call SetTcpipNetbios 2

除非直接修改登錄，否則無論用何種正規方法設定，最終都會透過 WMI 服務來執行操作。