当前位置:DOS资源站资料中心VBS脚本 → IPX帧类设成自动的VBS脚本代码

IPX帧类设成自动的VBS脚本代码

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2008-5-30 18:22:37

On Error Resume Next
Const AUTO = 255
Const NETWORK_NUMBER = 0
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
     ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard in colNetCards
     arrNetworkNumber = Array(NETWORK_NUMBER)
     arrFrameTypes = Array(AUTO)
     objNetCard.SetIPXFrameTypeNetworkPairs arrNetworkNumber, arrFrameTypes
Next