xero

Hallo THUMB, vielen Dank - es funktioniert! :jau: Gruß xero

Hallo THUMB, das ist genau mein Problem - sorry. Ich kann beide Scripte nicht miteinander kombinieren :mad: . Nach dem Motto: Lies mir die (alle) IP-Adresse(n) und Subnet-Maske(n) aus. Danach ändere nur die Subnet-Maske(n) ... # # # Script # # # strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") Set IPConfigSet = GetObject("winmgmts://.").ExecQuery("select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each IPConfig In IPConfigSet If Not IsNull(IPConfig.IPAddress) Then For i=LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress) IPADDRESS = IPConfig.IPAddress(i) 'MsgBox IPADDRESS 'Next End If 'Next strIPAddress = Array(IPADDRESS) strSubnetMask = Array("255.255.0.0") 'strGateway = Array("192.168.1.100") 'strGatewayMetric = Array(1) For Each objNetAdapter in colNetAdapters errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask) 'errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric) If errEnable = 0 Then WScript.Echo "The IP address has been changed." Else WScript.Echo "The IP address could not be changed." End If Next # # # Script-Ende # # # Ergebnis: Fehlerabbruch in Zeile 15 - Anweisung erwartet (Fehler) Gruß xero

Hallo THUMB, dieses Script ist mir schon bekannt - vielen Dank. Das Script soll die bestehende IP-Adresse weiter übernehmen - ohne manuelle Vorgabe (strIPAddress = Array("192.168.1.141") ). Einzige Eingabe durch das Script: strSubnetMask = Array("255.255.0.0"). Gruß xero

Hallo, ich möchte "nur" die Subnet-Maske einer NIC per vbs-Script ändern / anpassen und habe keinen Plan. Bsp.: von 255.255.255.0 zu 255.255.0.0 (IP-Adresse wird beibehalten!) (Ansatz: http://www.mcseboard.de/archiv/28/2003/09/4/13426) -> als Anmeldescript (ohne Eingaben)