Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 10434 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(1)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Firewall
gelöst Cisco ASA - Wechsel der Outside IP Adresse auf der Remote Site ASA (3)

Frage von tweishaar zum Thema Firewall ...

LAN, WAN, Wireless
gelöst TP-Link WA501G als Client einrichten - Keine IP Adresse wir bezogen (14)

Frage von bestelitt zum Thema LAN, WAN, Wireless ...

E-Mail
gelöst Falsche SMTP Server IP Adresse (6)

Frage von laster zum Thema E-Mail ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...