Jump to content

KarstenMo

Members
  • Gesamte Inhalte

    4
  • Registriert seit

  • Letzter Besuch

Profile Fields

  • Member Title
    Newbie

Fortschritt von KarstenMo

Rookie

Rookie (2/14)

  • Erste Antwort
  • Erster eigener Beitrag
  • Eine Woche dabei
  • Einen Monat dabei
  • 1 Jahre dabei

Neueste Abzeichen

10

Reputation in der Community

  1. Hallo zusammen! Vielleicht am Netzwerkkartentreiber in der Boot.wim. Woher ist denn die Boot.wim? Wenn es z.B. von der Vista CD ist, müssen die Vista-Treiber der Netzwerkkarte des Clients integriert werden. Gruß, Karsten
  2. Hallo, hier nun das zusammengebaute Skript: - Es fragt die NICs mit einer IP ab und trägt die Ergebnisse in eine Textdatei ein. Danke noch mal für die Hilfe! Grüße Karsten Set objWMIService = GetObject("winmgmts:") Set wnet = CreateObject("WScript.Network") Set fso = CreateObject("Scripting.FileSystemObject") Set colNicConfig = objWMIService.ExecQuery("SELECT * FROM " & _ "Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") Const ForAppending = 8 Const ForReading = 1 Const ForWriting = 2 textdateipfad = "C:\" textdateiname = wnet.ComputerName & ".txt" On Error Resume next Set textdatei = fso.CreateTextFile(textdateipfad & textdateiname, True) 'True = Überschreiben ok = (Err.Number =0) textdatei.Close If ok Then On Error Goto 0 For Each objNicConfig In colNicConfig If Not IsNull(objNicConfig.IPAddress) Then strIPAddresses = Join(objNicConfig.IPAddress) Else strIPAddresses = "" End If If Len(objNicConfig.Index) = 1 Then nic_intindex = "000" & objNicConfig.Index ElseIf Len(objNicConfig.Index) = 2 Then nic_intindex = "00" & objNicConfig.Index Else 'WScript.Echo nic_intindex End If speed = get_nic_speed(nic_intindex) Set textdatei = fso.OpenTextFile(textdateipfad & textdateiname,ForAppending) textdatei.WriteLine "Hostname= " & wnet.ComputerName textdatei.WriteLine "Network Adapter= " & objNicConfig.Index textdatei.WriteLine "IP Adress(en)= " & strIPAddresses textdatei.WriteLine "MAC Adresse= " & objNicConfig.MACAddress textdatei.WriteLine "Description= " & objNicConfig.Description textdatei.WriteLine "Duplexmodus= " & speed textdatei.Close Next Else WScript.Echo "Fehler: " & Err.Description End If Function get_nic_speed(intindex) 'intindex 4 stellige Indexnummer Const HKEY_LOCAL_MACHINE = &H80000002 arrmodes = array ("SpeedAndDuplex","SpeedDuplex","ForceSpeedDpx","MediaType","DuplexMode","ConnectionType","RequestedMediaType","ConnectionType_A","ForceSpeedDpx","*SpeedDuplex","EXTPHY") strComputer = "." Set oReg=GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") Set wshshell = WScript.CreateObject ("wscript.shell") for each mode in arrmodes strlink_desc = "ParamDesc" strkeylink_desc = "SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\"& intindex & "\Ndi\params\" & mode & "\" oReg.GetStringValue HKEY_LOCAL_MACHINE,strkeylink_desc,strlink_desc,reglink_desc if reglink_desc <> "" then strfinal_key = "SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\"& intindex strfinal_value = mode oReg.GetStringValue HKEY_LOCAL_MACHINE,strfinal_key,strfinal_value,regfinal_value strkey_enum = "SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\"& intindex & "\Ndi\params\" & mode & "\enum" oReg.GetStringValue HKEY_LOCAL_MACHINE,strkey_enum,regfinal_value,speed_name get_nic_speed = speed_name End If Next End Function
  3. Hallo Danny, danke für die Idee mit der Registry. Ja. Danke für den Beispiel-Code! Ich nehm mal vom "Win32_NetworkAdapter" die "DeviceID", probier es aus und melde mich mit einem Ergebnis :) Karsten
  4. Hallo, kennt jemand eine Möglichkeit zur VBS-Abfrage des Duplexmodus und/oder der eingestellten Netzwerkkarten-Geschwindigkeit von Windows XP Workstations in einer Windows 2008 Domäne? Ich habe es bisher über WMI (Win32_NetworkAdapter) versucht und bekomme da bei den Feldern "Autosense" und "Speed" nur leere Felder... Im MSDN habe ich dazu gefunden, dass diese Felder nicht implementiert seien und dass "CIM_NetworkAdapter" zwar die Werte habe aber ebenfalls nicht implementiert sei. Gibt es eine Möglichkeit, diese Felder irgendwie zu implementieren oder bin ich hier ganz auf dem Holzweg und es gibt eine andere Abfragemöglichkeit? Vielen Dank und Grüße Karsten
×
×
  • Neu erstellen...