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

IP Adresse bei jedem Neustart ändern?

Mitglied: d00meR

d00meR (Level 1) - Jetzt verbinden

07.02.2008, aktualisiert 11.02.2008, 6418 Aufrufe, 12 Kommentare

Hallo,
ich bin auf der Suche nach einem VBS Scipt, das nach jedem Neustart die IP-Adresse meiner Netzwerkkarte ändert.
(Ja, das Vieh darf sich auch in die Reg einnisten )
Hat sowas zufällig jemand im Ärmel? ;)


Danke und Gruß



P.S. Ich geb auch nen virtuelles Bier aus ;)
Mitglied: bastla
07.02.2008 um 16:58 Uhr
Hallo d00meR!

Hier sollte etwas für Dich dabei sein ...

Grüße
bastla
Bitte warten ..
Mitglied: d00meR
07.02.2008 um 19:19 Uhr
Hi,
danke erstmal für deine Mühe, aber ich glaub ich hab mich nicht klar genug ausgedrückt.

Ich möchte kein DHCP verwenden, d.h. ich suche ein Script welches mir bei jedem Neustart
eine NEUE STATISCHE IP-Adresse gibt. Und das Script darf sich dann auch logischerweise in der
Registrierung einnisten ;)

Hoffe nun ists klarer, so! :P


Gruß d00meR *mitdemFreibierwedel*
Bitte warten ..
Mitglied: bastla
07.02.2008 um 19:57 Uhr
Hallo d00meR!

ich glaub ich hab mich nicht klar genug ausgedrückt.
Ich glaube, Du hast nicht bis Listing 23 (oder 24) gelesen ...

Ansonsten stellt sich noch die Frage: Welche neue IP soll's denn jeweils werden? Zufallszahl, Pool, ...

Grüße
bastla
Bitte warten ..
Mitglied: d00meR
07.02.2008 um 21:11 Uhr
Hallo bastla,

doch, hab ich. Ich bräucht aber nen Script was mir die IP-Adresse aus nem Pool (192.168.1.10-192.169.1.20) gibt.

Grüße d00meR
Bitte warten ..
Mitglied: bastla
07.02.2008 um 21:44 Uhr
Hallo d00meR!

IP-Adresse aus nem Pool (192.168.1.10-192.169.1.20)
Nach welchem Kriterium soll die Adresse ausgewählt werden bzw wie verwaltest Du den Pool?

Grüße
bastla
Bitte warten ..
Mitglied: d00meR
07.02.2008 um 23:06 Uhr
Servus,

egal. Der Computer soll nur nach jeden Neustart den er bekommt, ne neue IP-Adresse aus dem genannten Pool bekommen. Random einfach =)
Bitte warten ..
Mitglied: bastla
07.02.2008 um 23:34 Uhr
Hallo d00meR!

Nur nochmal zur Sicherheit: 192.168.1.10 - 192.169.1.20?

Grüße
bastla
Bitte warten ..
Mitglied: d00meR
08.02.2008 um 04:03 Uhr
Nein, Sorry! Da hab ich mich verschrieben: 192.168.1.10 - 192.168.1.20 sollte es natürlich heißen.
Danke das du nochmal gefragt hast ;)
Bitte warten ..
Mitglied: bastla
08.02.2008 um 07:25 Uhr
Hallo d00meR!

Dann könntest Du es so versuchen:
01.
strComputer = "." 
02.
strNet = "192.168.1" 
03.
arrSubnetMasks = Array("255.255.255.0") 
04.
  
05.
Randomize 
06.
 
07.
Set objWMIService = GetObject("winmgmts:" _ 
08.
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
09.
Set colNicConfigs = objWMIService.ExecQuery _ 
10.
 ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") 
11.
  
12.
For Each objNicConfig In colNicConfigs 
13.
	arrOldIPAddresses = objNicConfig.IPAddress 
14.
	If IsArray(arrOldIPAddresses) Then 
15.
		strOldIPAddress = arrOldIPAddresses(0) 
16.
	Else 
17.
		strOldIPAddress = arrOldIPAddresses 
18.
	End If 
19.
	 
20.
	DOld = Mid(strOldIPAddress, InStrRev(strOldIPAddress, ".") + 1) 
21.
	DNew = CStr(Int(Rnd * 11) + 10) 
22.
	Do Until DNew <> DOld 
23.
		DNew = CStr(Int(Rnd * 11) + 10) 
24.
	Loop  
25.
	 
26.
	strNewIPAddress = strNEt & "." & DNew 
27.
	arrIPAddresses = Array(strNewIPAddress) 
28.
	 
29.
	WScript.Echo "Adresse für " & objNicConfig.Description & VbCrLF & _ 
30.
		"wird geändert von " & strOldIPAddress & " auf " & strNewIPAddress 
31.
	intReturn = objNicConfig.EnableStatic(arrIPAddresses, arrSubnetMasks) 
32.
	If intReturn > 1 Then WScript.Echo intReturn & ": IP-Adresse konnte nicht geändert werden!" 
33.
Next
Wie Du das Script startest (per "Registrierungseinnistung" - klingt irgendwie nach "Regierungeinnistung" und erinnert dann an "Bundestrojaner" ), über den Autostart (die Umstellung wirkt ohnehin sofort und nicht erst nach einem Neustart) oder per GroupPolicy möchte ich Dir überlassen - und natürlich auch die Frage, ob die "WScript.Echo"-Zeile eine gute Idee ist ...

Grüße
bastla
Bitte warten ..
Mitglied: d00meR
08.02.2008 um 19:33 Uhr
Du bist wirklich ein "bastla" ;)

Danke Dir, hast mir wirklich sehr geholfen... Das Einzige was du noch einbauen könntest, wäre vllt. die spezielle Angabe einer Netzwerkschnittstelle, weil so versucht das Script alle IP-Adressen aller Geräte zu ändern. In meinem Fall ist das egal, aber vielleicht interessiert das hier ja noch jemanden.

Dank dir nochmals sehr, das virtuelle Freibier gehört natürlich dir *Bierreich* und vorallem ein schönes Wochenende, so wie sie es angesagt haben

Gruß d00meR
Bitte warten ..
Mitglied: bastla
08.02.2008 um 20:32 Uhr
Hallo d00meR!

Das Einzige was du noch einbauen könntest, wäre vllt. die spezielle Angabe einer Netzwerkschnittstelle
Wenn das Script nur auf einem bestimmten Rechner laufen soll, kein Problem - dazu muss ja nur die "objNicConfig.Description" mit dem bekannten Namen der betreffenden Schnittstelle verglichen und nur bei Übereinstimmung die Adressänderung ausgeführt werden, also etwa
01.
For Each objNicConfig In colNicConfigs 
02.
	If objNicConfig.Description = "Marvell Yukon 88E8039 PCI-E Fast Ethernet Controller" Then 
03.
		... 
04.
		... 
05.
	End If 
06.
Next
das virtuelle Freibier gehört natürlich dir
Danke, werde es aber gelegentlich weitergeben (ich meide auch die RL-Version ).

Grüße
bastla
Bitte warten ..
Mitglied: d00meR
11.02.2008 um 23:02 Uhr
Danke bastla, klappt wonderbra!
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 7

Probleme mit IP-Adresse bei Neustart des Systems

Frage von speedy26gonzalesWindows 76 Kommentare

Hi zusammen, ich habe hier an verschiedenen Rechnern das Problem dass er nach einem Neustart keine richtige IP hat. ...

DNS

Nameserver externe IP Adresse Ändern

Frage von D-LineDNS3 Kommentare

Guten Tag Zusammen Wir betreiben in unserer Umgebung zwei eigene Namserver (ns1 & ns2, beide Microsoft DNS). Nun steht ...

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
Humor (lol)
(Part num your Hacked phone. +XX XXXXXX5200)
Erfahrungsbericht von Henere vor 10 StundenHumor (lol)

Mein Handy hat aber ne ganz andere Endnummer. Muss ich mir jetzt Sorgen machen ? :-) Vielleicht betrifft es ...

Exchange Server

Letztes Update für Exchange 2016 CU9 war in gewisser Weise destruktiv

Erfahrungsbericht von DerWoWusste vor 11 StundenExchange Server6 Kommentare

Kurzer Erfahrungsbericht zu Exchange2016-KB4340731-x64 Der Exchangeserver hat wie gewöhnlich versucht, es in der Nacht automatisch zu installieren - abgesehen ...

Erkennung und -Abwehr

Neue Sicherheitslücke Foreshadow (L1TF) gefährdet fast alle Intel-Prozessoren

Information von Frank vor 1 TagErkennung und -Abwehr3 Kommentare

Eine neue Sicherheitslücke, genannt Foreshadow (alias L1TF) wurde auf der Usenix Security 18 von einem Team internationaler Experten veröffentlicht. ...

Vmware
VMware Updates gegen L1 Lücke
Information von sabines vor 1 TagVmware

Für die Vmware Produkte vCenter Server, ESXi, Workstation und Fusion stehe Updates bereit um die L1 Lücke zu schließen. ...

Heiß diskutierte Inhalte
Windows Server
Domäne einsilbig mit nur einem Namen benannt - sowie AD und MX auf einer VM Kardinalsfehler?
Frage von TomTestWindows Server48 Kommentare

Hallo liebe Freunde gepflegter Probleme, seit kurzem soll ich eine Domäne verwalten die zuvor von einem IT-Dienstleister erstellt und ...

Microsoft
VPN Verbindung kann nicht aufgebaut werden
Frage von AlexderITlerMicrosoft35 Kommentare

Hallo, Ich möchte an einem unserer PCs in unserer Tochterfirma eine VPN zu unserem Netzwerk einrichten. Das schlägt allerdings ...

Windows Server
Windows Server per Web auf Daten zugreifen und verwalten
Frage von matze2090Windows Server16 Kommentare

Hallo, ich würde gerne von außen auf meinem Windows Server zugreifen um auf meine Daten zu verwalten. Meine frage ...

DNS
Gibt es eine Art DNS Proxy?
Frage von icepietDNS16 Kommentare

Hallo Nerds, Ich würde gerne folgendes machen: ts.domain.de:3389 soll auf 1.2.3.4:3389 auflösen ts2.domain.de:3389 soll auf 1.2.3.4:3390 auflösen Gibt es ...