Manage network card VBS script _vbs

' Dislan.vbs
' Usage:cscript/nologo Dislan.vbs
Const Ssfcontrols = 3
Sconnectionname = "Local Area Connection"
Senableverb = "enabled (&a)"
Sdisableverb = "Disabled (&b)"

Set Shellapp = CreateObject ("Shell.Application")
Set Ocontrolpanel = Shellapp.namespace (ssfcontrols)

Set onetconnections = Nothing
For each folderitem in Ocontrolpanel.items
If folderitem.name = "Network and dial-up connections" then
Set onetconnections = Folderitem.getfolder:exit for
End If
Next

If Onetconnections is Nothing Then
Wscript.Quit
End If

Set olanconnection = Nothing
For each folderitem in Onetconnections.items
If LCase (folderitem.name) = LCase (Sconnectionname) Then
Set olanconnection = Folderitem:exit for
End If
Next

If Olanconnection is Nothing Then
Wscript.Quit
End If

Benabled = True
Set Oenableverb = Nothing
Set Odisableverb = Nothing
s = "Verbs:" & vbCrLf
For each verb in olanconnection.verbs
s = S & vbCrLf & Verb.name
If Verb.name = Senableverb Then
Set Oenableverb = verb
Benabled = False
End If
If Verb.name = Sdisableverb Then
Set Odisableverb = verb
End If
Next


If Benabled Then
Odisableverb.doit
Else
Oenableverb.doit
End If

Wscript.Sleep 1000