Jump to content

Einstellungen NIC mittels VBScript


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Recommended Posts

Hallo,

 

ich hoffe ihr könnt mir helfen. Leider habe ich (fast) keine Ahnung von VBS. :(

Aber ich benötige ein Script zur Konfiguration von Netzwerkkarten.

Folgende Einstellungen der NIC:

• Flow Control = Disabled

• Jumbo Packet = Disabled

• Speed & Duplex = 10Mbps Full Duplex

 

Das Script sollte diese Einstellungen für <ALLE> Netzwerkkarten setzen die auch aktiv sind, also einen Link haben.

 

Habt ihr eine Idee?

Link to comment

Habe das bislang...aber es funktioniert nicht. Ich weiß nicht warum.

Test-Objekt ist ein WinServer2003 x86.

 

Const HKEY_LOCAL_MACHINE = &H80000002

 

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

Set colHWinfo = objWMIService.ExecQuery("SELECT * FROM WIN32_ComputerSystem")

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

set colAdapters = objWMIService.Execquery("Select * from Win32_NetworkAdapter")

Set objShell = CreateObject("WScript.Shell")

 

AdapterCount = 0

 

For Each Adapter in colAdapters

 

If Adapter.AdapterTypeId = 0 Then

 

AdapterCount = AdapterCount + 1

 

If Adapter.DeviceID < 10 Then

DevID = "000" & Adapter.DeviceID

Else

DevID = "00" & Adapter.DeviceID

End If

 

objShell.Run """%COMSPEC%"" /C netsh interface set interface name=""" & Adapter.NetConnectionId & """ newname=""VW LAN #""" & AdapterCount, 0, True

 

NetKey2 = "SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\" & DevID & "\"

objReg.SetStringValue HKEY_LOCAL_MACHINE, NetKey2,"MaxFrameSize", 1514

objReg.SetStringValue HKEY_LOCAL_MACHINE, NetKey2, "*FlowControl", 0

objReg.SetStringValue HKEY_LOCAL_MACHINE, NetKey2, "*SpeedDuplex", 2

 

End If

 

Next

Link to comment
Habe das bislang...aber es funktioniert nicht. Ich weiß nicht warum.

Test-Objekt ist ein WinServer2003 x86.

 

Das liegt an der wenig aussagenden Fehlermeldung: "aber es funktioniert nicht". Platzt der Luftballon vom Nachbarsjungen oder fängt der Kühlschrank an zu tanzen? Wie viel von dem Script wird ausgeführt? Ab welcher Zeile werden Fehler ausgegeben?

Link to comment
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...