這是微軟提供的範例精簡而成。如果不想使用 VBS 格式,可以編碼為 VBE 檔案,或是轉換為 EXE 檔案。
除了使用 VBScript,另一個方法是透過 wmic 指令:語法: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
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 服務來執行操作。
書籤