本帖最后由 虫子樱桃 于 2015-12-18 11:22 编辑
根据外国网站代码改写,windows10 LTSB测试OK,若成功,请修改为已解决
$Obj = ObjCreate("Shell.Application")
$items = $Obj.Namespace(0x0031).Items
If IsObj($items) Then
For $item In $items
If $item.Name = 'Ethernet' Then;这里是要操作的网络名称
If StringInStr($item.Verbs.Item(0).Name, "&a") Then
;启用网络
$item.Verbs.Item(0).DoIt
MsgBox(0, '', '已经启用网络')
EndIf
If StringInStr($item.Verbs.Item(0).Name, "&b") Then
;禁用网络
$item.Verbs.Item(0).DoIt
MsgBox(0, '', '已经禁用网络')
EndIf
EndIf
Next
EndIf
当然,你ipconfig /release 再ipconfig /renew 下也可以的,但是前提是你的网络设置了MAC绑定上网~~,哈哈,否则有可能不奏效 |