最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

VBS監(jiān)視網(wǎng)絡(luò)連接與斷開的代碼

 更新時(shí)間:2013年07月29日 18:36:40   作者:  
監(jiān)視網(wǎng)絡(luò)連接與斷開,特殊情況下可能有點(diǎn)用,兩個(gè)VBS腳本均來(lái)自微軟官網(wǎng)

監(jiān)視網(wǎng)絡(luò)連接:

復(fù)制代碼 代碼如下:

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\wmi")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
    ("Select * from MSNdis_StatusMediaConnect")

Do While True
    Set strLatestEvent = colMonitoredEvents.NextEvent
    Wscript.Echo "A network connection has been made:"
    WScript.Echo strLatestEvent.InstanceName, Now
    Wscript.Echo
Loop

監(jiān)視網(wǎng)絡(luò)斷開:

復(fù)制代碼 代碼如下:

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\wmi")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect")

Do While True
    Set strLatestEvent = colMonitoredEvents.NextEvent
    Wscript.Echo "A network connection has been lost:"
    WScript.Echo strLatestEvent.InstanceName, Now
Loop

相關(guān)文章

最新評(píng)論

东阳市| 乌兰浩特市| 松江区| 宁晋县| 宜丰县| 许昌县| 平远县| 佳木斯市| 斗六市| 舟曲县| 靖江市| 杨浦区| 乐至县| 扶余县| 富顺县| 贵州省| 淮南市| 台山市| 城步| 荔波县| 钟祥市| 松滋市| 安国市| 六安市| 贡觉县| 根河市| 绥德县| 平江县| 镇江市| 威远县| 山丹县| 长春市| 涿州市| 兰坪| 西盟| 改则县| 安乡县| 安丘市| 湘阴县| 和田县| 赣州市|