Who can help me to be a network connection automatically disable the opening of the VBS file?

Web server area because there is often a sudden fall on the network, it is necessary to disable / enable local connections, the network has returned to normal, the situation is very frequent, but no one in the near future to repair.
I would like to BAT to find a VBS or any document, the computer can speed the time to 0 to disable automatic / opening of the local connection.
Do I download something on the peace of mind.

vbs code is as follows:

om error resume next
do
Dim mc, mo
set ws = CreateObject ( “WScript.Shell” )
Set mc = GetObject ( “Winmgmts:”).InstancesOf ( “Win32_NetworkAdapterConfiguration”)
For Each mo In mc
If mo.IPEnabled = True Then
Gateway = “ping” & mo.DefaultIPGateway (0) & “-n 1”
Exit For
End If
Next
Return = ws.run ( “cmd / c” & Gateway, 0, true)
if return = 1 then
netlink (800)
end if
wscript.sleep 4000
loop
sub netlink (a)
for i = 0 to 1
set shellApp = createobject ( ” shell.application “)
set oControlPanel = shellApp.Namespace (3)
for each folderitem in oControlPanel.items
if folderitem.name =” Network Connections “then
set oNetConnections = folderitem.getfolder
exit for
end if
next
set oLanConnection = nothing
for each folderitem in oNetConnections.items
if lcase (folderitem.name) = “local connection” then
set oLanConnection = folderitem
exit for
end if
next
for each verb in oLanConnection.verbs
select case verb.name
case “opened (& A)”
verb.DoIt
case “is disabled (& B)”
verb.DoIt
end select
next
wscript.sleep a
next
end sub Const ssfCONTROLS = 3

sConnectionName = “local connection”

sEnableVerb = “enable (& A)”
sDisableVerb = “Disable (& 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 connection “then
set oNetConnections = folderitem.getfolder:exit for
end if
next

if oNetConnections is nothing then
msgbox “did not find the network and dial-up connections folder”
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
msgbox “not found '” & sConnectionName & “' item”
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

'debugging displays left just in case …
'
'msgbox s':wscript.quit
' msgbox “Enabled:” & bEnabled ':wscript.quit

' not sure why, but invokeverb always seemed to work
'for enable but not disable.
'
'saving a reference to the appropriate verb object
'and calling the DoIt method always seems to work.
'
if bEnabled then
'oLanConnection.invokeverb sDisableVerb
oDisableVerb.DoIt
else
' oLanConnection.invokeverb sEnableVerb
oEnableVerb.DoIt
end if

'adjust the sleep duration below as needed …
'
'if you let the oLanConnection go out of scope
' and be destroyed too soon, the action of the verb
'may not take …
'
wscript.sleep 400

saved as a text document vbs double-click Disable VBS for
Double-click VBS for the opening of the