Notifikationer

Markér alle som læst Log ud

skildpadden Nybegynder

07. juni 2003 - 15:41 Der er 28 kommentarer og
1 løsning

Find IP-adresse via ASP

Er det muligt at finde ip-adressen på et domæne via asp?

Hvis jeg f.eks. har domænet abc.dk og ønsker at finde ip-adressen herpå.

Synes godt om

geforce3 Praktikant

07. juni 2003 - 15:45 #1

Du skriver ping abc.dk i en kommandoprompt så står den i toppen

Synes godt om

skildpadden Nybegynder

07. juni 2003 - 15:45 #2

det ved jeg godt man kan - det er en asp kode jeg skal bruge

Synes godt om

viciodk Praktikant

07. juni 2003 - 15:49 #3

<html>
<body>
IP addresse = <%=Request.ServerVariables("REMOTE_ADDR")%>
</body>
</html>

Synes godt om

netro Nybegynder

07. juni 2003 - 16:04 #4

http://www.hcidata.co.uk/host2ip.htm

Synes godt om

ellebaek Nybegynder

07. juni 2003 - 16:14 #5

<%

strIP = "www.abc.dk"
Function ipAdresse(strIP)
Set net = Server.CreateObject("wscript.network")
Set sh = Server.CreateObject("wscript.shell")
sh.run "%comspec% /c ping " & strIP & " > c:\" & strIP & ".txt",0,true
Set sh = nothing
Set fso = createobject("scripting.filesystemobject")
Set ts = fso.opentextfile("c:\" & strIP & ".txt")
ipAdresse = null
Do While Not ts.AtEndOfStream
data = trim(ts.readline)
If instr(data,"Ping-statistikker for ") Then
myArr = split(data,"Ping-statistikker for ")
ipAdresse = myArr(1)
Exit Do
End If
loop
ts.close
Set ts = nothing
fso.deletefile "c:\" & strIP & ".txt" 'Used to delete the temp file
Set fso = nothing
ipAdresse = trim(split(ipAdresse,":")(0))
End Function
response.write(ipAdresse(strIP))
%>

Dette script finder ipen på et forud defineret site, defineret i strIP...
Du kan selv tilpasse det, så strIP bliver fundet med request.form eller noget i den stil..

//Ellebæk

Synes godt om

moejensen Nybegynder

07. juni 2003 - 17:17 #6

--> Ellebæk din kode ser rigtig spændende ud, kan du ikke skrive hvordan text filen skal se ud for at den virker?

Synes godt om

ellebaek Nybegynder

07. juni 2003 - 17:23 #7

Den benytter en almindelig ping kommando som findes i DOS...

Alt dette ligges i filen www.abc.dk.txt
Herfra findes ipen så efter linien "Ping-statistikker for xxx.xxx.xxx.xxx"

Filen skal se ud som denne:

Pinger www.xxx.dk [xxx.xxx.xxx.xxx] med 32 byte data:

Svar fra xxx.xxx.xxx.xxx: byte=32 tid=32ms TTL=249
Svar fra xxx.xxx.xxx.xxx: byte=32 tid=33ms TTL=249
Svar fra xxx.xxx.xxx.xxx: byte=32 tid=35ms TTL=249
Svar fra xxx.xxx.xxx.xxx: byte=32 tid=32ms TTL=249

Ping-statistikker for xxx.xxx.xxx.xxx:
Pakker: Sendt = 4, modtaget = 4, tabt = 0 (0% tab),
Gennemsnitlig tid for rundtur i millisekunder:
Mindst = 32ms, st›rst = 35ms, gennemsnitlig = 33ms

Dette returnere så ipen: xxx.xxx.xxx.xxx

Synes godt om

moejensen Nybegynder

07. juni 2003 - 18:02 #8

det er jo kanon smart.

jeg får bare en fejl om at den ikke kan ifinde filen, men det er vel muligvis fordi den ikke er oprettet af

sh.run "%comspec% /c ping " & strIP & " > c:\" & strIP & ".txt",0,true

kræver det specielle rettigheder på serveren for at kunne eksekvere denne komando?

Synes godt om

ellebaek Nybegynder

07. juni 2003 - 18:08 #9

Sådan her...

Nu er den sat op så den ligger filerne i den mappe du befinder dig i på serveren (server.mappath)

<%

strIP = "www.abc.dk"
Function ipAdresse(strIP)
Set net = Server.CreateObject("wscript.network")
Set sh = Server.CreateObject("wscript.shell")
sh.run "%comspec% /c ping " & strIP & " > " & server.mappath( strIP & ".txt"),0,true
Set sh = nothing
Set fso = createobject("scripting.filesystemobject")
Set ts = fso.opentextfile(server.mappath( strIP & ".txt"))
ipAdresse = null
Do While Not ts.AtEndOfStream
data = trim(ts.readline)
If instr(data,"Ping-statistikker for ") Then
myArr = split(data,"Ping-statistikker for ")
ipAdresse = myArr(1)
Exit Do
End If
loop
ts.close
Set ts = nothing
'fso.deletefile server.mappath( strIP & ".txt") 'Used to delete the temp file
Set fso = nothing
ipAdresse = trim(split(ipAdresse,":")(0))
End Function
response.write(ipAdresse(strIP))
%>
Men du skal have skriverettigheder i den mappe hvorfra du vil køre scriptet...

Synes godt om

moejensen Nybegynder

07. juni 2003 - 18:16 #10

jeg får stadig denne fejl:

Technical Information (for support personnel)

Error Type:
Microsoft VBScript runtime (0x800A0035)
File not found
/test/ping.asp, line 10

IIS'en skulle have skriverettigheder, men den komando der bliver eksekveret er det ikke en alm. shell komando?? så skal shellen vel have skriverettigheder der hvor filen ligger, da det er den der opretter filen?

Synes godt om

moejensen Nybegynder

07. juni 2003 - 18:38 #11

jeg kan nemt i en dospromt eksekvere komandoen og oprette filen, men jeg kan ikke få den til eksekvere den fra asp filen.

Synes godt om

ellebaek Nybegynder

07. juni 2003 - 18:43 #12

hmm...

Det du siger lyder meget rigtigt!
Jeg ved ikke om du kan gøre det på et webhotel så. Jeg har ikke rigtig styr på det med user policies osv...

Jeg har kun prøvet det på min egen webserver.

Synes godt om

moejensen Nybegynder

07. juni 2003 - 19:32 #13

okay, jeg har også kun forsøgt at anvende det på min egen pc, så det undre mig lidt :-(

Synes godt om

ellebaek Nybegynder

07. juni 2003 - 21:19 #14

har du givet everyone skriverettigheder til den mappe hvor du har scriptet liggende ??

Synes godt om

moejensen Nybegynder

07. juni 2003 - 21:38 #15

yep

Synes godt om

ellebaek Nybegynder

07. juni 2003 - 21:46 #16

Det er meget mystisk, jeg har ikke nogen problemer med at køre scriptet.

Og du har rettet det til så det er i server.mappath du placere filen i stedet ?

Synes godt om

moejensen Nybegynder

07. juni 2003 - 23:49 #17

yep :-)

Synes godt om

ellebaek Nybegynder

22. juli 2003 - 16:57 #18

er du kommet videre med dette spg..?

Synes godt om

ellebaek Nybegynder

13. august 2003 - 11:20 #19

lukketid....!?

Synes godt om

netro Nybegynder

13. august 2003 - 12:30 #20

Det er vel ikke for ingenting, han kalder sig skildpadden? ;-)

Synes godt om

moejensen Nybegynder

13. august 2003 - 12:34 #21

:-)

Synes godt om

netro Nybegynder

13. august 2003 - 12:35 #22

moejensen -> Hvorfor "overtager" du egentlig skildpaddens spørgsmål fuldstændigt...?

Synes godt om

moejensen Nybegynder

13. august 2003 - 12:41 #23

synes du jeg gør det?

Jeg blev jo nød til at spørge lidt...det så jo super smart ud.

Synes godt om

netro Nybegynder

13. august 2003 - 12:44 #24

Ja, det synes jeg - mildest talt ;)

Synes godt om

moejensen Nybegynder

13. august 2003 - 12:48 #25

:-)

Synes godt om

ellebaek Nybegynder

16. september 2003 - 22:44 #26

Se nu at få lukket her...!

Synes godt om

netro Nybegynder

16. september 2003 - 23:34 #27

Jeg tror, moejensen og skildpadden er den samme person.

Synes godt om

moejensen Nybegynder

17. september 2003 - 07:59 #28

Det er vi ikke :-)

Synes godt om

netro Nybegynder

17. september 2003 - 18:11 #29

Ok... Beklager!

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS