Netzwerkoptionen für Windows nachinstallieren

[Oliver Möllers]

Hallo, ich möchte für unsere PCs den Windows QoS-Paketplaner nachinstallieren. Ich habe das mit DIFF versucht. Auch soweit erfolgreich.
Jedoch sind die ermittelten Registryeinträge allesamt im CurrentControlSet angesiedelt. Da diese fortlaufend vom System durchnummeriert werden, ich aber nicht davon ausgehe, dass der Zustand aller Maschinen gleich ist, wäre das wirklich nur eine Quick and Dirty-Lösung. Hat jemand eine Idee, wie man evtl. auch Microsoft Boardmittel nutzen kann, ohne den Windows-Installer durch einen Diff laufen lassen zu müssen ?

[S.Beckmann]

Ob es dirket ein Windowsmittel gibt, kann ich nicht beantworten. Aber man kann z.B. ein VBS erstellen, welches die Inteligenz hat, um nur bei der Aktiven Verbindung QoS einzuschalten...

Ich werde mal Morgen schauen, ob ich so was habe. Bitte Poste doch noch den Regkey, welcher konfiguriert werden muss... Wenn ich dann was habe, werde ich es posten...

[S.Beckmann]

Also, habe nun zwei Scripte gefunden, ein Script deaktiver das Registrieren beim DNS- Server, das andere deaktiviert die Fluss Steuerung.

1:

Code: Select all

' ***************************************************
'
' Author&--58;  Stefan Beckmann
' Date&--58;    Dienstag, 7. Dezember 2004
' Version&--58; 1.0
' Beschreibung&--58;
'  Dieses Script deaktiviert das automatische registrieren
'  beim DNS- Server.
'
' ***************************************************
Option Explicit
On Error Resume Next

Dim WshShell, strComputer, objWMIService, colNetAdapters, objNetAdapter, _
strSettingID, StrMetric, strDescription, strMACAddress, _
strIPAdress, i, n, strRegisterDNS


strComputer = "."

Set WshShell = CreateObject&--40;"Wscript.Shell"&--41;
Set objWMIService = GetObject&--40;"winmgmts&--58;" & "&--123;impersonationLevel=impersonate&--125;!\\" & strComputer & "\root\cimv2"&--41;
Set colNetAdapters = objWMIService.ExecQuery&--40;"Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE"&--41;

DNSRegOff

Sub DNSRegOff
For Each objNetAdapter In colNetAdapters
	strSettingID = objNetAdapter.SettingID
	WScript.Echo "SettingID = " & strSettingID
	WScript.Echo "Das automatische registrieren im DNS, wird ausgeschalten..."
	strRegisterDNS = WshShell.RegWrite&--40;"HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\" & strSettingID & "\RegistrationEnabled", 0,"REG_DWORD"&--41;

	n = n + 1
	If n = "1" Then
		WScript.quit
	End If
Next
End Sub

2:

Code: Select all

' ***************************************************
'
' Author&--58;  Stefan Beckmann
' Date&--58;    Dienstag, 7. Dezember 2004
' Version&--58; 1.0
' Beschreibung&--58;
'  Dises Script deaktiviert die Fluss Steuerung für die
'  als Parameter mitgegebene Netzwerkkarte
'
' ***************************************************
Option Explicit
On Error Resume Next

Dim strComputer, WshShell, objWMIService, colItems, objItem,_
strMaxAnzahl_NICS,strDescription, vAnzahl_Descriptions,_
strDescriptionArgument, strClassGUID, strDriverDesc, I,_
strNR, strKeyPath, strKeyPath1, keyname, dummy

strComputer = "."
strMaxAnzahl_NICS = 10000

Set WshShell = CreateObject&--40;"Wscript.Shell"&--41;
Set objWMIService = GetObject&--40;"winmgmts&--58;" & "&--123;impersonationLevel=impersonate&--125;!\\" & strComputer & "\root\cimv2"&--41;
Set colItems = objWMIService.ExecQuery&--40;"Select * from Win32_PnPEntity"&--41;

strDescriptionArgument = WScript.Arguments&--40;0&--41;

If strDescriptionArgument = "" Then
	WScript.Echo "Fehlender Parameter!!!"
	WScript.Echo "----------------------"
	WScript.Echo " Bitte Script wie folgendes Beispiel aufruffen&--58;"
	WScript.Echo "- cscript NetFlowControlOff.vbs ""Intel&--40;R&--41; PRO/1000 MT Mobile Connection"""
	WScript.Quit
End If


For Each objItem In colItems
    strDescription = objItem.Description
    If strDescription = &--40;strDescriptionArgument&--41; Then
    	'WScript.Echo "Description&--58; " & strDescription
    	strClassGUID = objItem.ClassGuid
    	'WScript.Echo "Class GUID&--58; " & strClassGUID
    	SetFlowControl
    End If
Next

Sub SetFlowControl
For I = 0 To strMaxAnzahl_NICS - 1
	If I > 9 Then
		If I > 99 Then
			If I > 999 Then
				If I > 9999 Then
				WScript.Echo "9999 erreicht, skript wird beendet!"
				WScript.Quit
				Else
					strNR = I
				End If
			Else
				strNR = "0" & I
			End If

		Else
			strNR = "00" & I
		End If
	Else
		strNR = "000" & I
	End If

	strKeyPath = &--40;"HKLM\SYSTEM\CurrentControlSet\Control\Class\" & strClassGUID & "\" & strNR & "\DriverDesc"&--41;
	If KeyExist&--40;strKeyPath&--41; = True Then
		strDriverDesc = RegRead&--40;strKeyPath&--41;
		If strDriverDesc = strDescription Then
			WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Class\" & strClassGUID & "\" & strNR & "\FlowControl", 0,"REG_SZ"
			WScript.Echo "Flusskontrolle für " & """" & strDriverDesc & """"& " deaktiviert."
		Else
			'WScript.Echo "Der Schlüssel existiert, entspricht aber nicht dem gesuchten!"
		End If
	Else
	'WScript.Echo "Unter " & strNR & " nichts gefunden"
	End If
strNR = empty
Next
End Sub

Function KeyExist&--40;keyname&--41;
	On Error Resume Next
		dummy = WshShell.RegRead&--40;keyname&--41;
		KeyExist = &--40;Err.number=0&--41;
	On Error Goto 0
End Function

Function RegRead&--40;keyname&--41;
	On Error Resume Next
		RegRead = WshShell.RegRead&--40;keyname&--41;
		If Err.number<>0 Then
			RegRead = Err.Description
		End If
	On Error Goto 0
End Function

Gruss
Steff