Übertragungsrate (MediaSense) in Domäne global einstellen

Das kann man mit einem Script lösen.
Leider wird das Script nicht korrekt angezeigt, das Forum verschluckt Zeichen.
Schickt mir eine Nachricht, dann sende ich es euch zu.
Ihr müßt bloß die Computer und den Registrywert eintragen
Gruß

Juergen

' *
'
'
' Author: Alexander Huber
' Date: Sonntag, 3. Oktober 2004
' Version: 1.0
'

' Um auf allen pc den dhcp media sense abzuschalten Q239924, problem mit de verarbeitung von der gp

'
'reg_target : ziel computer . für localen
'reg_pfad : Pfad zum order indem der key erstellt werden soll
'reg_wert : Der wert des Keys
'reg_name : Der name der Keys
'reg_type : Der type des Keys MUlti String, String, Dword etc

' Ziel Computer unter reg_target eintragen

'
' *
Option Explicit

' Varaiablen

Dim strKeyPath, MultValueName, strComputer, iValues, reg_pfad, reg_wert, reg_type, reg_target _
, reg_name, reg_std, x, reg_name_2, reg_wert_2, reg_wert_3, reg_wert_4, reg_name_3, reg_name_4,_
reg_pfad_2, reg_wert_2_1, reg_name_5, reg_wert_5, oReg, sComputer, _
sMethod, hTree, sKey, sValueName, uValue, oRegistry, oMethod, oInParam, oOutParam


Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_USERS = &H80000003
Const HKEY_CURRENT_CONFIG = &H80000005


' Werte nach gefallen ändern
' Hier die Computer eintragen
' ("tw013","comp2") usw

reg_target = Array("tw010")


reg_pfad = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters" 'DHCP Mediasense
reg_wert = "1" ' Auto Login 1 on , 0 off
reg_name = "DisableDHCPMediaSense"
reg_type = "1" ' 1 String 2 Multi String
reg_std = HKEY_LOCAL_MACHINE


'
'Programm
'


For x = 1 To 11


Set_reg_Dword reg_target(x-1),reg_pfad, reg_wert, reg_name, reg_type, reg_std ' autologin


Next


MsgBox "Fertig"


'
' Funktionen
'


Function WRITE_REG( reg_target ,reg_pfad, reg_wert, reg_name, reg_type, reg_std)
On Error Resume Next

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
reg_target & "\root\default:StdRegProv")
oReg.CreateKey reg_std,reg_pfad


Select Case reg_type

Case "1"

oReg.SetStringValue reg_std, reg_pfad, reg_name, reg_wert


Case "2"

oReg.SetMultiStringValue reg_std,reg_pfad,reg_name,reg_wert

End Select


If Err.number > "0" Then

MsgBox "Fehler bei der Ausführung" & vbCr & _
"Fehler Beschreibung: " & Err.Description & vbCr _
& "Fehlercode: " & Err.number & vbCr _
& "PC Name: " & reg_target & vbCr _
& "Reg Pfad: " & reg_pfad & vbCr _
& "Reg Name: " & reg_name & vbCr _
& "Reg Wert: " & reg_wert,, "Fehler"
Err.Clear

End If


' funktion Set_Reg_Dword


End Function

Function Set_reg_Dword(reg_target ,reg_pfad, reg_wert, reg_name, reg_type, reg_std)

sComputer = reg_target
sMethod = "SetDWordValue"
hTree = reg_std
sKey = reg_pfad
sValueName = reg_name
uValue = reg_wert

Set oRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}//" & _
sComputer & "/root/default:StdRegProv")

Set oMethod = oRegistry.Methods_(sMethod)
Set oInParam = oMethod.inParameters.SpawnInstance_()

oInParam.hDefKey = hTree
oInParam.sSubKeyName = sKey
oInParam.sValueName = sValueName
oInParam.uValue = uValue

Set oOutParam = oRegistry.ExecMethod_(sMethod, oInParam)

If Err.number > "0" Then

MsgBox "Fehler bei der Ausführung" & vbCr & _
"Fehler Beschreibung: " & Err.Description & vbCr _
& "Fehlercode: " & Err.number & vbCr _
& "PC Name: " & reg_target & vbCr _
& "Reg Pfad: " & reg_pfad & vbCr _
& "Reg Name: " & reg_name & vbCr _
& "Reg Wert: " & reg_wert,, "Fehler"
Err.Clear

End If


End Function