'设置传输值1是启用，设置2为禁用
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
欢迎加入QQ技术群聊：70539804
转载于:https://www.cnblogs.com/boltkiller/p/4791795.html
相关资源：JAVA上百实例源码以及开源项目
