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, 4128 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 ...

Netzwerkmanagement
Selbe MAC bei 2 IPs
gelöst Frage von xbrainbugNetzwerkmanagement13 Kommentare

Hallo zusammen, ich stehe hier vor einem Rätsel. Ich habe hier 2 Hyper-V mit mehreren VMs. Auf jeden läuft ...

Router & Routing
Proxmox WAN IPs
gelöst Frage von sebastian2608Router & Routing13 Kommentare

Hallo Leute, Ich habe ein /27 Subnet welches ich via address 213.80.0.2 netmask 255.255.255.224 gateway 213.80.0.1 auf dem Node ...

Microsoft Office
Outlook VBScript
gelöst Frage von NebellichtMicrosoft Office5 Kommentare

Hallo, seit ein paar Wochen werden keine VBScripte hinter den (Benutzerspezifschen) Outlook Formularen ausgeführt. Hat jemand eine Lösung parat ...

Neue Wissensbeiträge
Internet

Kommentar: Bundesregierung erwägt Ausschluss von Huawei im 5G-Netz - Unsere Presse wird immer sensationsgieriger

Information von Frank vor 18 StundenInternet2 Kommentare

Hier mal wieder ein schönes Beispiel für fehlgeleiteten Journalismus und Politik zugleich. Da werden aus Gerüchten plötzlich Fakten, da ...

Windows 10

Netzwerk-Bug in allen Windows 10-Versionen durch Januar 2019-Updates

Information von kgborn vor 22 StundenWindows 101 Kommentar

Nur ein kurzer Hinweis für Admins, die Windows 10-Clients im Portfolio haben. Mit den Updates vom 8. Januar 2019 ...

Windows 10

Windows 10 V1809: Rollout ist gestartet - kommt per Windows Update

Information von kgborn vor 1 TagWindows 102 Kommentare

Eine kurze Information für die Admins, die Windows 10 im Programm haben. Microsoft hat die letzte Baustelle (die Inkompatibilität ...

Sicherheit

Heise Beitrag Passwort-Sammlung mit 773 Millionen Online-Konten im Netz aufgetaucht

Information von Penny.Cilin vor 1 TagSicherheit6 Kommentare

Auf Heise Online ist folgender Beitrag veröffentlicht worden: Heise Beitrag passwörter geleakt Ich bin mir jetzt nicht ganz sicher, ...

Heiß diskutierte Inhalte
Windows Server
Uhren gehen immer wieder falsch
Frage von killtecWindows Server23 Kommentare

Hallo, ich habe folgende Konstellation: 1. Physischer DC Div. Virtuelle DC's auf Hyper-V Servern Die Hyper-V-Server, der Physische DC ...

Batch & Shell
Mit findstr batch doppelte zeilen einer txt löschen
Frage von Burningx2Batch & Shell22 Kommentare

Hi Vor einer weile habe ich im netzt einen windows shell befehl gefunden mit welchem man über die konsole ...

Verschlüsselung & Zertifikate
Netzwerkfreigabe Verschlüsselung
Frage von grill-itVerschlüsselung & Zertifikate20 Kommentare

Moin zusammen, sicher nutzen hier die ein oder anderen ein Produkt zur Verschlüsselung von Netzwerkfreigaben/-laufwerken auf denen hochsensible Daten ...

Debian
OpenSSH Login mit Public Key schlägt fehl, mit Passwort funktioniert
gelöst Frage von DKowalkeDebian19 Kommentare

Hallo zusammen, ich hatte hier schon nach einer Anleitung für einen SFTP Server mit Linux gefragt, habe dort auch ...