=====Versie 1=====
<code vb>
'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

</code>
Bron:[[http://develnet.blogspot.com/2006/10/disabling-netbios-over-tcpip-via.html|Disabling NetBIOS over TCP/IP Via Registry]] \\
Zie ook:[[http://www.microsoft.com/technet/scriptcenter/topics/networking/06_atnc_wins.mspx|Microsoft TechNet - Automating TCP/IP Networking on Clients]] \\