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, 10454 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
Router & Routing
CISCO ASA 5505 undLANCOM - VPN mit einseitig dyn. IP-Adresse (1)

Frage von Stadtaffe84 zum Thema Router & Routing ...

LAN, WAN, Wireless
gelöst Zwei Clients mit selber IP-Adresse in einem Netzwerksegment (47)

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

DNS
gelöst Lokaler Ping geht auf externe IP-Adresse (13)

Frage von coltseavers zum Thema DNS ...

Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(1)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Router & Routing

PfSense auf Supermicro Intel Xeon D-15x8 SoC Bare Bone

Tipp von Dobby zum Thema Router & Routing ...

Heiß diskutierte Inhalte
Windows 10
Windows für Privatanwender "nicht mehr handhabbar" (26)

Frage von FA-jka zum Thema Windows 10 ...

LAN, WAN, Wireless
Brauche Hilfe: Mit (schnellem) WLAN Strecke überbrücken (23)

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

Basic
Programmierung von Windows Programmen (10)

Frage von Ghost108 zum Thema Basic ...