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
GELÖST

IP-Adresse remote ändern per script

Frage Entwicklung VB for Applications

Mitglied: Rauser

Rauser (Level 1) - Jetzt verbinden

06.03.2008, aktualisiert 11:12 Uhr, 10467 Aufrufe, 2 Kommentare

Hallo,

wir führen bei unserer Firma ein ReIP durch. Dazu müssen wir die statischen IP-Adressen auf allen Servern ändern.
Um sich jetzt nicht mit jedem Server (Anzahl > 100) remote zu verbinden und dann die IP-Adresse zu ändern, habe ich ein WMI script erstellt, mit dem man die IP-Adresse remote ändern kann. Dazu gab es auch entsprechende Vorlangen im Netz.
Funktioniert soweit auch alles gut. Das Problem ist jedoch, dass man ja nach der IP-Änderung die Verbindung zum Server verliert und das Script sich dadurch nicht mehr korrekt beendet. (Lässt sich dann nur noch mit Strg C abbrechen)
Hat jemamd eine Idee, wie man das Script nach Verbindungsabbruch noch automatisch beenden kann? Timeout über cscript hat nicht funktioniert... Schon mal Danke!

Das Script sieht für die IP-Änderung folgendermaßen aus:
01.
***************************************************************** 
02.
'Änderung der DNS-, WINS-Server, Default Gateway und IP-Adresse 
03.
'Parameter übergeben (als Administrator) 
04.
'Eingabe über cmd -> "cscript //Nologo  script.vbs alte_IP neue_IP" 
05.
 
06.
strComputer = Wscript.Arguments(0) 
07.
strComputer1 = Wscript.Arguments(1) 
08.
 
09.
 
10.
'IP-Adresse und Gateway festlegen 
11.
On Error Resume Next 
12.
 
13.
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
14.
    Set colNetAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration " & "where IPEnabled=TRUE ") 
15.
    strIPAddress = Array(strComputer1) 
16.
    strSubnetMask = Array("255.255.252.0") 
17.
    strGateway = Array("192.168.x.y") 
18.
    strGatewayMetric = Array(1) 
19.
          
20.
    For Each objNetAdapter in colNetAdapters 
21.
        If Not IsNull(IPConfig.IPAddress) Then 
22.
            For i= LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress) 
23.
                if objNetAdapter.IPAddress(i) = strComputer Then 
24.
                    WScript.Echo objNetAdapter.IPAddress(i) 
25.
                    WScript.Echo strComputer 
26.
                    errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric) 
27.
                    errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)             'HIER WIRD IP GEÄNDERT!!!! 
28.
                end if 
29.
            Next 
30.
        End if 
31.
    Next 
32.
    
Mitglied: Rauser
06.03.2008 um 10:53 Uhr
Hat sich erledigt.
Problem tritt nicht auf, wenn man das script über wscript startet. #
Also anstelle von cscript Nologo script.vbs alte_IP neue_IP
wscript
Nologo script.vbs alte_IP neue_IP verwenden
Bitte warten ..
Mitglied: TuXHunt3R
06.03.2008 um 11:12 Uhr
Kannst du den Beitrag dann noch auf "Gelöst" setzen?
In den "Häufigen Fragen" steht, wies geht.
Bitte warten ..
Ähnliche Inhalte
Switche und Hubs
Openwrt IP Adresse ändern
Frage von Black-MacSwitche und Hubs9 Kommentare

Hallo leute ich weiss leider nee ob ich hier so richtig bin?! Und zwar habe ich aktuell mein cisco ...

Windows Server
IP Adresse eines 2012R2 Servers ändern
gelöst Frage von hermesWindows Server3 Kommentare

Hallo - diesmal würde ich mich über Unterstützung beim 2012R2 Server freuen. Speziell geht es darum die feste IP ...

Batch & Shell
Je nach IP-Adresse Server für auszuführende Datei ändern
gelöst Frage von caschoplBatch & Shell14 Kommentare

Hallo, ich benötige eure Hilfe. Ich habe verschiedene Server (in Europa verteilt) auf denen jeweils in einem Share die ...

VB for Applications
Nur letztes Zeichen einer IP Adresse Ändern und in andere Zeile schreiben
gelöst Frage von BloodyRulzVB for Applications3 Kommentare

Hallo, ich hoffe es kann mir jemand helfen. Ich bräuchte die Lösung über VBA. Ich habe eine Liste mit ...

Neue Wissensbeiträge
Erkennung und -Abwehr

Necur-Botnet soll Erpressungstrojaner Scarab massenhaft verbreiten

Information von BassFishFox vor 4 StundenErkennung und -Abwehr

12,5 Millionen Spam-Mails aus einem Bot-Netz mit 6 Millionen Computern? Eigentlich eine schwache Leistung. Die Erpresser setzen dabei auf ...

Microsoft

Nadeldrucker-Problem unter Windows - Microsoft liefert Updates

Information von BassFishFox vor 5 StundenMicrosoft

Hat ja nicht lange gedauert. Nachdem die November-Updates für Windows 7, 8.1 und 10 zahlreiche Nadeldrucker lahmgelegt hatten, stellt ...

Linux

Limux-Ende in München: Wie ein Linux Projekt unter Ausschluss der Öffentlichkeit zerstört wurde

Information von Frank vor 12 StundenLinux14 Kommentare

Mein persönlicher Kommentar zum Thema "Limux-Ende". Die SPD-Politikerin Anne Hübner hat die Richtung von München ganz klar definiert: "Wir ...

Batch & Shell

Open Object Rexx: Eine mittlerweile fast vergessene Skriptsprache aus dem Mainframebereich

Information von Penny.Cilin vor 1 TagBatch & Shell9 Kommentare

Ich kann mich noch sehr gut an diese Skriptsprache erinnern und nutze diese auch heute ab und an noch. ...

Heiß diskutierte Inhalte
Linux
Limux-Ende in München: Wie ein Linux Projekt unter Ausschluss der Öffentlichkeit zerstört wurde
Information von FrankLinux14 Kommentare

Mein persönlicher Kommentar zum Thema "Limux-Ende". Die SPD-Politikerin Anne Hübner hat die Richtung von München ganz klar definiert: "Wir ...

Router & Routing
Zwei Netzwerke erstellen
Frage von bunteblumeRouter & Routing14 Kommentare

Hallo Zusammen, Ich möchte gerne ein backup von einem bestimmten Folder welcher auf dem Server regelmässig synchronisiert wird auf ...

Windows Server
Kann man im KMS nachschauen , wieviele Clients den Key in Anspruch genommen haben
gelöst Frage von rainergugusWindows Server14 Kommentare

Hallo, wir haben einen KMS Windows 10 Key. Dieser ist ja W7 kompatibel. Aber unser Windows 7 Pool registriert ...

Off Topic
Fachkräftemangel in Deutschland? - Talentschmiede schreibt alle 2 Tage die gleichen Stellen aus
Frage von Penny.CilinOff Topic12 Kommentare

Hallo, haben wir in Deutschland Fachkräftemangel? Die Talentschmiede schreibt gefühlt alle zwei Tage dieselben Stellen aus. Und das schon ...