Top-Themen

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

2 IPs auf einer Netzwerkkarte mit vbscript eintragen

Mitglied: LordShelmchen

LordShelmchen (Level 1) - Jetzt verbinden

12.03.2008, aktualisiert 14:37 Uhr, 4116 Aufrufe, 2 Kommentare

Moin Moin,

ich sitze hier gerade am Problem, das ich mittels vbscript einer Netzwerkkarte zwei IPs zuweisen möchte. Eine IP bekommt man ja einfach so hin:

01.
strComputer = "." 
02.
Set objWMIService = GetObject("winmgmts:" _ 
03.
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
04.
 
05.
Set colNetAdapters = objWMIService.ExecQuery _ 
06.
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") 
07.
 
08.
strIPAddress = Array("192.168.1.141") 
09.
strSubnetMask = Array("255.255.255.0") 
10.
strGateway = Array("192.168.1.100") 
11.
strGatewayMetric = Array(1) 
12.
  
13.
For Each objNetAdapter in colNetAdapters 
14.
    errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask) 
15.
    errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric) 
16.
    If errEnable = 0 Then 
17.
        WScript.Echo "The IP address has been changed." 
18.
    Else 
19.
        WScript.Echo "The IP address could not be changed." 
20.
    End If 
21.
Next
a) Nur wie bekomme ich jetzt die zweite da noch rein?

b) Wie kann ich die zweite wieder löschen (die erste soll aber bestehen bleiben?


Hintergrund:
Ich schreibe gerade ein KFall Script, welches diverse Dinge auf einem Server erledigt, dazu gehört auch die Änderung der Netzwerkkonfiguration.



Grüße
LordShelmchen
Mitglied: bastla
12.03.2008 um 14:33 Uhr
Hallo LordShelmchen!

Zu a)
Es hat natürlich einen Grund, warum die jeweiligen Einstellungen als "Array" zu übergeben sind, daher:
01.
strComputer = "." 
02.
Set objWMIService = GetObject("winmgmts:" _ 
03.
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
04.
 
05.
Set colNetAdapters = objWMIService.ExecQuery _ 
06.
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") 
07.
 
08.
strIPAddress = Array("192.168.1.141", "192.168.0.41") 
09.
strSubnetMask = Array("255.255.255.0", "255.255.255.0") 
10.
strGateway = Array("192.168.1.100", "192.168.0.1") 
11.
strGatewayMetric = Array(1, 5) 
12.
  
13.
For Each objNetAdapter in colNetAdapters 
14.
    errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask) 
15.
    errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric) 
16.
    If errEnable = 0 Then 
17.
        WScript.Echo "The IP address has been changed." 
18.
    Else 
19.
        WScript.Echo "The IP address could not be changed." 
20.
    End If 
21.
Next
Zu b)
01.
strComputer = "." 
02.
Set objWMIService = GetObject("winmgmts:" _ 
03.
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
04.
 
05.
Set colNetAdapters = objWMIService.ExecQuery _ 
06.
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") 
07.
  
08.
For Each objNetAdapter in colNetAdapters 
09.
    strIPAddressCurrent = objNetAdapter.IPAddress 
10.
    strSubnetMaskCurrent = objNetAdapter.IPSubnet 
11.
    strGatewayCurrent = objNetAdapter.DefaultIPGateway 
12.
    strGatewayMetricCurrent = objNetAdapter.GatewayCostMetric 
13.
     
14.
    strIPAddress = Array(strIPAddressCurrent(0)) 
15.
    strSubnetMask = Array(strSubnetMaskCurrent(0)) 
16.
    strGateway = Array(strGatewayCurrent(0)) 
17.
    strGatewayMetric = Array(strGatewayMetricCurrent(0)) 
18.
 
19.
    errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask) 
20.
    errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric) 
21.
    If errEnable = 0 Then 
22.
        WScript.Echo "The IP address has been changed." 
23.
    Else 
24.
        WScript.Echo "The IP address could not be changed." 
25.
    End If 
26.
Next
Hier werden zunächst die Einstellungen in Arrays ausgelesen und nur das erste Element wieder zurückgeschrieben. Zu ergänzen wären noch jeweils Sicherheitsabfragen der Art
01.
If IsNull(objNetAdapter.IPAddress) Then 
02.
    WScript.Echo "Keine IP-Adresse gefunden" 
03.
    'weitere Vorgangsweise erfragen oder hier festlegen 
04.
Else 
05.
    strIPAddressCurrent = objNetAdapter.IPAddress 
06.
    strIPAddress = Array(strIPAddressCurrent(0))      
07.
End If
Grüße
bastla
Bitte warten ..
Mitglied: LordShelmchen
12.03.2008 um 14:37 Uhr
Vielen lieben Dank!

So funktioniert es.


Grüße
LordShelmchen
Bitte warten ..
Ähnliche Inhalte
Router & Routing
Nextcloud über 2 versch. IPs
Frage von mrserious73Router & Routing11 Kommentare

Moin zusammen, folgende Situation: Betreibe einen Nextcloud-Server (auf Debian), der in einer DMZ an einer Firewall hängt. In der ...

VB for Applications
Mit VBScript 2. Monitor erkennen
gelöst Frage von VbsUserVB for Applications3 Kommentare

Hallo, benötige Hilfe. Vielleicht hat jemand eine Idee Vor der Ausgabe einer Diashow auf einen 2. Monitor soll geprüft ...

Ubuntu
Ubuntu - Routing mit 2 Netzwerkkarten?
Frage von gabrixlUbuntu13 Kommentare

Hei Folgende Situation: Ich habe zwei virtuelle Maschinen: 1 - Server für DHCP, DNS und Routing - Netzwerkkarte 1: ...

LAN, WAN, Wireless
DHCP Gerät mit 2 Netzwerkkarten
gelöst Frage von VerwirrterUserLAN, WAN, Wireless10 Kommentare

Hallo zusammen, im bezug zu meiner anderen Frage nun die Speziellere Frage die sich rausgestellt hat. Ist es möglich ...

Neue Wissensbeiträge
Microsoft

Neuigkeiten zu Server und Office 365 was läuft mit was und was nicht

Tipp von AlFalcone vor 1 TagMicrosoft2 Kommentare

Server Betriebssysteme auf dem die verschiedenen Offices nicht supported sind: • Office 365 ist und wird nicht supported auf Windows ...

Speicherkarten

Neuer Speicherkartentyp - zunächst nur für Huawei-Smartphones (künftig auch für Notebooks u. Tablets?)

Tipp von VGem-e vor 1 TagSpeicherkarten1 Kommentar

Servus, als ob das "Chaos" i.S. Speicherkarten noch nicht groß genug wäre?! Evtl. kommt dieser neue Kartentyp bald auch ...

Sicherheit

Diverse D-Link-Router durch drei Schwachstellen kompromittierbar

Information von kgborn vor 1 TagSicherheit

Hat jemand D-Link-Router in Verwendung? Einige Modelle sind sicherheitstechnisch offen wie ein Scheunentor. Äußerst unschöne Sache, aber nichts neues ...

Hardware

100.000 Mikrotik-Router ungefragt von Hacker abgesichert

Information von 7Gizmo7 vor 1 TagHardware1 Kommentar

Hallo zusammen, da hier ja öfters mal von Mikrotik gesprochen wird. Trotz Updates klafft eine Sicherheitslücke in Hundertausenden Mikrotik-Routern. ...

Heiß diskutierte Inhalte
Sicherheitsgrundlagen
EuGH-Urteil - Internetanschluss für die ganze Familie - Filesharer haften trotzdem
Frage von StefanKittelSicherheitsgrundlagen39 Kommentare

Hallo, In diesem Artikel geht es darum, dass Jemand aus der Familie ein Hörbuch illegal hochgeladen hat. Der Vater ...

Apple
MacBook Pro 2018 mit 8 GB oder 16 GB
Frage von SysAdm81Apple25 Kommentare

Hallo zusammen, ich steh vor der Überlegung mir ein MacBook Pro 13 (2018) zu kaufen. Bzgl. SSD habe ich ...

Off Topic
SysAdmin im öffentlichen Dienst - jemand Erfahrungen?
Frage von JohnDorianOff Topic19 Kommentare

Hallo zusammen, hat jemand Erfahrung wie es so ist als SysAdmin im öffentlichen Dienst (Landkreis) im Südwesten der Republik ...

Datenbanken
MS SQL DB-Daten archivieren?
gelöst Frage von SchelinhoDatenbanken16 Kommentare

Hallo zusammen! Ich habe eine Anwendung, welche MSSQL (SQL Server 2014 SP2) nutzt. Auf der DB-Instanz laufen diverse Datenbanken. ...