• Let op: Dit is het archief van het Provider Forum. De berichten die je hier ziet zijn gedateerd en er kan niet meer op worden gereageerd.

IP adres 2e router opvragen

Status
Niet open voor verdere reacties.
Berichten
632
Internet
  1. Ziggo
Digitale TV
  1. Ziggo
Ik weet het ff net meer:

Stel ik heb de eerste router met IP 192.168.0.1 om het menu op te roepen.
Een tweede router heb ik als switch (via LAN poort) op de eerste aangesloten. Bij de tweede staat de DHCP server dus uit en zijn IP adres om het menu aan te roepen is 192.168.0.200 of zo.
Maar ik ben dat laatste IP adres vergeten, die 200 dus. Hoe kan ik die weer makkelijk opsporen? In het DHCP client list van de eerste router zie ik hem niet.
En de standaard gateway als ik verbinding met de tweede router heb staat op 192.168.0.1, de eerste dus. Met een kabel verbinden met de tweede lukt niet want DHCP staat uit.
Hoe achterhaal ik nu het IP adres van die 2e router?
 
Dank voor uw uitgebreide antwoord. Die punt was echt niet nodig.

Maar om nou een programma van 27 MB te downloaden en installeren en leren bedienen lijkt mij overkill. Dan is resetten en opnieuw instellen sneller gedaan.
Maar u bracht mij wel op een idee. Ik had nog ergens Look@Lan geïnstalleerd en die gaf inderdaad het gewenste IP adres aan.

Aangezien ook Ping alleen op de aangesloten adressen reageert, zal ik eens kijken of ik ook een gratis scriptje kan schrijven met een lus van 1 t/m 255 of zo.
 
Ik ben niet zo'n held in VB script, maar deze werkt wel.
Voor de liefhebbers: plak dit in een .VBS tekstbestand.
========================================

gevonden=""
Set Output= CreateObject("Scripting.FileSystemObject").OpenTextFile("c:\pingres.txt", 8, True)
Set Shell = CreateObject("wscript.shell")

for tt=1 to 255
strip="192.168.0." & tt
strCommand = "ping -n 1 -w 20 " & strip
'Shell.Popup "Bezig met testen van " & strip,1,"Pingen"

result=Shell.Run(strCommand, 0, True)
if result=0 then
gevonden=gevonden & strip & vbcrlf
Output.WriteLine strip
end if
next
msgbox gevonden,0, "Zie ook c:\pingres.txt"
===================================

Let op: De editor hier op dit forum voegt zelf een spatie toe bij OpenTextFile. Die moet weg. En op sommige PC's mag het tekstbestandje niet naar de root van C:\ worden geschreven. Pak dan een andere map.
 
Laatst bewerkt door een moderator:
Ik heb slechte ervaring met het copiëren van code uit forum teksten. Soms neem je dan hidden tekst mee die je hele code in de war stuurt. Beste truc is dan om het bericht te quoten zodat je in de editor komt en daaruit te kopiëren. Maar ik merk dat reeds gequote tekst bij dit bord niet in de nieuwe quote komt. Daarom hier als code weergegeven. Dat zal dat 'spatieprobleem' ook oplossen.

Code:
gevonden=""
Set Output= CreateObject("Scripting.FileSystemObject").OpenTextFile("c:\pingres.txt", 8, True)
Set Shell = CreateObject("wscript.shell")

for tt=1 to 255
strip="192.168.0." & tt
strCommand = "ping -n 1 -w 20 " & strip
'Shell.Popup "Bezig met testen van " & strip,1,"Pingen"

result=Shell.Run(strCommand, 0, True)
if result=0 then
gevonden=gevonden & strip & vbcrlf
Output.WriteLine strip 
end if
next
msgbox gevonden,0, "Zie ook c:\pingres.txt"
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan