'EnableNetBIOSWithBroadcast.vbs
'Voor het instellen van node type op broadcast en het aanzetten van NetBIOS over TCP/IP.
'Gebaseerd op code van: http://develnet.blogspot.com/2006/10/disabling-netbios-over-tcpip-via.html
'20090415, v1.
 
strComputer = "."
HKLM = 2147483650
strValueName = "NetbiosOptions"
strSubKey = "System\CurrentControlSet\Services\NetBT\Parameters\Interfaces\"
 
'Get registry provider from WMI
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
 
Set objShell = CreateObject("WScript.Shell")
 
'Get subkeys of Interfaces key ... these will be random GUIDs, so we need to grab them dynamically
objRegistry.EnumKey HKLM, strSubKey, subkeys
 
For i = 0 To ubound(subkeys)
 
	'Set hex value of registry value to 0x1 (enable NetBIOS over TCP/IP). 
	'We have to use the built-in VBscript hex function to convert from decimal to hex data type
	objRegistry.SetDWORDValue HKLM, strSubKey & subkeys(i), strValueName, hex(1)
 
Next
 
'Zet de NodeType geforceerd op P-node (broadcast).
objShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\NetBT\Parameters\NodeType", 1, "REG_DWORD"
 
Set objRegistry = Nothing
Set objShell = Nothing

Bron:Disabling NetBIOS over TCP/IP Via Registry
Zie ook:Microsoft TechNet - Automating TCP/IP Networking on Clients