Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 361
  • Last Modified:

Local/Remote disabling/enabling lan connection

Hi,

I use a W2Kpro pc to share i'net with 2 other pc's, also w2kpro. Now I have a problem with one of the lan connections, after booting sometimes the connection doesn't work. Sometimes it does, sometimes it doesn't.... when I get no response on a ping on that connection, I have to open the connection properties, choose disable, and after that just enable it again. Then it always works. I think it is a problem on the client pc, although I wouldn't know what. Or something with the utp cable.. who knows... but what I really want to now at this moment:
Can I, locally or remote, disable/enable a lan connection with a dosprompt command? So I could use a batch for this? I've tried netsh, but no luck with that.

Any help greatly appreciated
0
mrjoe
Asked:
mrjoe
  • 2
  • 2
1 Solution
 
NahumKCommented:
taken from http://www.mcpmag.com/columns/mcsescripting/

<package>
<comment>
NICToggle.wsf
This script looks at your ‘Local Area Connection’
and enables it if disabled, disables it if enabled.
</comment>
 <job>
  <runtime>
   <description>
   Script for toggling network connection on/off
   </description>

   <example>
   C:\>cscript ToggleNIC.wsf
   </example>
</runtime>
<object id=”objShell” progid=”Shell.Application”/>
<script language=”VBScript”>
‘Toggle NIC on or off
Option Explicit
Dim objCP, objEnable, objDisable, colNetwork
Dim clsConn, clsLANConn, clsVerb
Dim strNetConn, strConn, strEnable, strDisable
Dim bEnabled, bDisabled

strNetConn = “Network Connections”
strConn = “Local Area Connection”

strEnable = “En&able”
strDisable = “Disa&ble”

Set objCP = objShell.Namespace(3) ‘Control Panel

Set colNetwork = Nothing
For Each clsConn in objCP.Items
 If clsConn.Name = strNetConn Then
  Set colNetwork = clsConn.getfolder
  Exit For
 End If
Next

If colNetwork is Nothing Then
 WScript.Echo “Network folder not found”
 WScript.Quit
End If

Set clsLANConn = Nothing
For Each clsConn in colNetwork.Items
 ‘In case the LAN is named “connection 2”, etc.

If Instr(LCase(clsConn.name),LCase(strConn)) Then
Set clsLANConn = clsConn
  Exit For
End If
Next

If clsLANConn is Nothing Then
 WScript.Echo “Network Connection not found”
 WScript.Quit
End If

bEnabled = True
Set objEnable = Nothing
Set objDisable = Nothing
For Each clsVerb in clsLANConn.verbs
 If clsVerb.name = strEnable Then
 Set objEnable = clsVerb
 bEnabled = False
 End If
 If clsVerb.name = strDisable Then
 Set objDisable = clsVerb
 End If
Next

If bEnabled Then
 objDisable.DoIt
Else
 objEnable.DoIt
End If

‘Give the connection time to stop/start
WScript.Sleep 1000

</script>
</job>
</package>

 
0
 
mrjoeAuthor Commented:
That looks very promissing, although it gives an error with me. I must warn you, this is my first experience with windows scripting!

The warning is in dutch here, translated it would be: "The value for the attribute is invalid : progid."

On this line: <object id=”objShell” progid=”Shell.Application”/>

Is this something I need to enable/install first?

thanks in advance
0
 
NahumKCommented:
open the script file in a dos editor. what you'll probably see is some wierd characters where characters like '," and / should be. (notepad screwed up conversion from unicode to ascii?)
replace the weird characters with the characters that should be there and the script will run.
0
 
mrjoeAuthor Commented:
Indeed, didn't thought about opening the file in a dos editor.. I still had to change the “En&able” and “Disa&ble” to their dutch equivalents, but it works now. I feel great about my first step in win scripting =)

Great help, tnx.
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now