All pastes #231351 Raw Edit

Stuff

public text v1 · immutable
#231351 ·published 2006-10-31 19:50 UTC
rendered paste body
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard in colNetCards
    objNetCard.SetTCPIPNetBIOS(1)
Next