Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Übertragungsrate (MediaSense) in Domäne global einstellen

Frage Netzwerke Netzwerkmanagement

Mitglied: PsychoBoy

PsychoBoy (Level 1) - Jetzt verbinden

20.04.2005, aktualisiert 07.09.2006, 5949 Aufrufe, 3 Kommentare

Hallo,

ich habe folgendes Problem.
Ich hab hier eine Windows 2000 ADS Domäne und darin sind Windows XP Prof Clients eingebunden.
Ich möchte auf allen PCs (ca. 70) die Übertragungsrate fest auf 100/Fullduplex einstellen. Natürlich hab ich keine lust an jeden PC einzeln zu rennen und das per Hand einzustellen.
Meine Frage ist jetzt gibt es eine Möglichkeit das ich irgendwo eine Einstellung mach, sei es Gruppenrichtlinie Registrykey oder ähnliches das alle PCs fest diese Einstellung bekommen?!?

PS: Bei uns ist auch noch Altiris im Einsatz fals jemand dafür eine idee hat um es von dort aus einzustellen.

Ich danke jetzt schonmal im vorraus

Gruß pSy
Mitglied: DLS
14.09.2005 um 11:57 Uhr
Hätte das gleiche Problem also falls du ne Lösung gefunden hast kannst du dich bitte melden THX
Bitte warten ..
Mitglied: PsychoBoy
15.09.2005 um 07:49 Uhr
Hallo,

leider habe ich immer noch keine lösung dafür gefunden tut mir leid.
Bitte warten ..
Mitglied: xsoodom
07.09.2006 um 12:25 Uhr
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
Bitte warten ..
Ähnliche Inhalte
Windows Netzwerk
gelöst Trunk (LACP) mit 3 Leitungen Übertragungsrate (17)

Frage von deredvtyp zum Thema Windows Netzwerk ...

Windows Netzwerk
Große Abweichung der Übertragungsraten im WinServer2012 Netzwerk (3)

Frage von sineplan zum Thema Windows Netzwerk ...

E-Mail
gelöst SPF richtig Einstellen (3)

Frage von MS6800 zum Thema E-Mail ...

Exchange Server
Equipment Mailbox wird nicht im globalen Adressbuch angezeigt (2)

Frage von flotaut zum Thema Exchange Server ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(6)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Router & Routing
Allnet - VDSL2 Modem - SFP (mini-GBIC) (20)

Frage von Dobby zum Thema Router & Routing ...

Voice over IP
DeutschlandLAN IP Voice Data M Premium, Erfahrung mit Faxgeräte? (17)

Frage von liquidbase zum Thema Voice over IP ...

Windows 10
Windows 10 Ordnerfreigabe (14)

Frage von Xaero1982 zum Thema Windows 10 ...