' BASED ON A BUNCH OF GOOGLED VBSCRIPTS. MODIFIED SPECIFICALLY TO RUN ON WIN2000
Option Explicit
Dim objShell, objCP, objEnable, objDisable, colNetwork, objNet
Dim clsConn, clsLANConn, clsVerb
Dim strNetConn, strConn

Sub ErrorMsg(msg)
    WScript.Echo "ERROR: " & msg
    WScript.Quit
End Sub

strNetConn = "Network and Dial-up Connections"
strConn = "Local Area Connection 6"
colNetwork = ""
clsLANConn = ""
objEnable = ""
objDisable = ""

Set objShell = CreateObject("Shell.Application")

For Each objCP in objShell.Namespace(3).Items
    If LCase(objCP.Name) = LCase(strNetConn) Then
        Set colNetwork = objCP.getFolder
        Exit For
    End If
Next

If colNetwork = "" Then ErrorMsg "No folder found"

For Each objNet In colNetwork.Items
    If LCase(objNet.Name) = LCase(strConn) Then
        Set clsLANConn = objNet
        Exit For
    End If
Next

If clsLANConn = "" Then ErrorMsg "No adapter found"

For Each clsVerb in clsLANConn.verbs
    If clsVerb.name = "Disa&ble" Then Set objDisable = clsVerb
Next

if objDisable = "" Then ErrorMsg "No disable found."
objDisable.DoIt

WScript.Sleep 5000

For Each clsVerb in clsLANConn.verbs
    If clsVerb.name = "En&able" Then Set objEnable = clsVerb
Next

if objEnable = "" Then ErrorMsg "No enable found."
objEnable.DoIt

WScript.Sleep 1000
WScript.Quit