VBS monitors network connections and disconnected code

Monitoring network connectivity and disconnection may be a bit of use in special cases, two VBS scripts are from Microsoft website

To monitor network connections:

Copy Code code as follows:


strComputer = "."

Set objWMIService = GetObject ("winmgmts:" & StrComputer & "Rootwmi")
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

Monitoring Network Disconnect:

Copy Code code as follows:

StrComputer = "."

Set objWMIService = GetObject ("winmgmts:" & StrComputer & "Rootwmi")
Set colmonitoredevents = Objwmiservice.execnotificationquery ("SELECT * from MSNdis_StatusMediaDisconnect")

Do While True
    Set strlatestevent = colmonitoredevents.nextevent
    wscrip T.echo "A network connection has been lost:"
    WScript.Echo Strlatestevent.instancename, now
Loo P