Detectar IP del DOMINIO y Directorio de la aplicac

HoySol · #1 (**permalink**) 20/04/2002, 05:22

Hola a todos de antemano
como puedo Detectar IP del DOMINIO y Directorio de la aplicacion

Un saludo
Hoysol

Owen-Bonilla · #2 (**permalink**) 20/04/2002, 11:45

Te dejo un programa que te detecta eso y muchas cosas mas. Sólo guardalo con extención ASP y correlo en tu server..
Saludos

Pd: te lo dejare en otro mensaje, aqui no cupo

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]

Owen-Bonilla · #3 (**permalink**) 20/04/2002, 11:47

Código:

  &lt;title&gt;
Información de [ &lt;%=Request.ServerVariables(&quot;SERVER_NAME&quot;)%&gt;]
&lt;/title&gt;

&lt;%
If Request.ServerVariables(&quot;HTTPS&quot;) = &quot;off&quot; then ' off for example only
 Dim MyFSO, MyFiles, MySelf, MySelfTemp
 Dim MyPhysPath, MyRootPath, MyURLPath
 MySelf = Request.ServerVariables(&quot;SCRIPT_NAME&quot;)
 MyRootPath = Server.MapPath(MySelf)
 MySelfTemp = Replace(MySelf, &quot;/&quot;, &quot;\&quot;)
 MyRootPath = Replace(MyRootPath, MySelfTemp, &quot;\&quot;)
 Set MyFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)
 
 MyPhysPath = Request(&quot;MyPhysPath&quot;)
 If MyPhysPath = &quot;&quot; then
  MyPhysPath = MyRootPath
 Else
  MyPhysPath = MyPhysPath &amp;&quot;\&quot;
 End if
 
 Set MyFiles = MyFSO.GetFolder(MyPhysPath)
 MyDirName = MyFiles.Name
 MyURLPath = Replace(MyPhysPath, MyRootPath, &quot;/&quot;)
 MyURLPath = Replace(MyURLPath, &quot;\&quot;, &quot;/&quot;)
 
 Response.Write &quot;&lt;style type=text/css&gt;&quot;&amp; vbCrLf
 Response.Write &quot;td { font-size:11px; font-family: verdana, arial; font-weight: normal; color: #666666; background-color: #ffffff; }&quot;&amp; vbCrLf
 Response.Write &quot;a { font-size:11px; font-family: verdana, arial; font-weight: bold; color: #003366; }&quot;&amp; vbCrLf
 Response.Write &quot;&lt;/style&gt;&quot;
 Response.Write &quot;&lt;table border=0 cellspacing=1 cellpadding=5 align=center bgcolor=#cccccc&gt;&quot;&amp; vbCrLf
 Response.Write &quot;&lt;tr&gt;&lt;td colspan=3&gt;&lt;b&gt;Sitio:&lt;/b&gt; &quot;&amp; Request.ServerVariables(&quot;SERVER_NAME&quot;) &amp;&quot;&lt;/td&gt;&lt;/tr&gt;&quot;&amp; vbCrLf
 Response.Write &quot;&lt;tr&gt;&lt;td colspan=3&gt;&lt;b&gt;Directorio Virtual:&lt;/b&gt; &quot;&amp; MyURLPath &amp;&quot;&lt;/td&gt;&lt;/tr&gt;&quot;&amp; vbCrLf
 Response.Write &quot;&lt;tr&gt;&lt;td colspan=3&gt;&lt;b&gt;Directorio Fisico:&lt;/b&gt; &quot;&amp; MyPhysPath &amp;&quot;&lt;/td&gt;&lt;/tr&gt;&quot;&amp; vbCrLf

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]

Owen-Bonilla · #4 (**permalink**) 20/04/2002, 11:50

Código:

  Response.Write &quot;&lt;tr&gt;&lt;td colspan=3&gt;&quot;&amp; vbCrLf
 Response.Write MyFileNum &amp;&quot; Archivos y &quot;&amp; MySubNum &amp;&quot; Sub Directorio en el Directorio Actual&lt;br&gt;&lt;br&gt;&quot;&amp; vbCrLf
 

 Response.Write &quot;&lt;a href='&quot;&amp; MySelf &amp;&quot;'&gt;Directorio del Servidor Remoto&lt;/a&gt;&lt;br&gt;&lt;p&gt;&quot;&amp; vbCrLf
 Response.Write &quot;&lt;a href=javascript:history.go(-1);&gt;Atras&lt;/a&gt;&lt;br&gt;&quot;&amp; vbCrLf
 Response.Write &quot;&lt;/td&gt;&lt;/tr&gt;&quot;&amp; vbCrLf

 Response.Write &quot;&lt;tr&gt;&lt;td colspan=3&gt;&lt;a href='&quot;&amp; MySelf &amp;&quot;?Display=SerVars'&gt;Información del Servidor...&lt;/a&gt;&lt;/td&gt;&lt;/tr&gt;&quot;&amp; vbCrLf
 
 Display = Request(&quot;Display&quot;)
 Select Case Display
  Case &quot;SerVars&quot;: SerVarsNFO()
  Case Else: 
   DisplayFolders()
   DisplayFiles()
 End Select
 
 Public Function SerVarsNFO()
  For Each Item in Request.ServerVariables
   Response.Write &quot;&lt;tr&gt;&lt;td&gt;&quot; &amp; Item &amp; &quot;&lt;/td&gt;&lt;td colspan=2&gt;&amp;nbsp;&quot; &amp; Request.ServerVariables(Item) &amp; &quot;&lt;/td&gt;&lt;/tr&gt;&quot;&amp; vbCrLf
  Next
 End Function
 
 Public Function DisplayFolders()
  Response.Write  &quot;&lt;tr&gt;&lt;td colspan=2 style='background-color:#cfcfcf;'&gt;Nombre del Sub Directorio&lt;/td&gt;&lt;td style='background-color:#cfcfcf;'&gt;Sub Dir Size (Bytes)&lt;/td&gt;&lt;/tr&gt;&quot;&amp; vbCrLf
  MySubNum = 0
  For Each Folder in MyFiles.SubFolders
   Dim MyCurrentSub, MySubSize, MySubName
   Set MyCurrentSub = MyFSO.GetFolder(Folder)
   MySubNum = MySubNum+1
   MySubSize = MyCurrentSub.Size
   MySubName = MyCurrentSub.Name
   MyDirURL = MySelf &amp;&quot;?MyPhysPath=&quot;&amp; MyPhysPath &amp; MySubName
   Response.Write &quot;&lt;tr&gt;&lt;td colspan=2&gt;&lt;img src=folder.gif border=0 align=absolutemiddle&gt;&amp;nbsp;&lt;a href='&quot;&amp; MyDirURL &amp;&quot;'&gt;&quot;&amp; MySubName &amp;&quot;&lt;/a&gt;&lt;/td&gt;&lt;td&gt;&quot;&amp; MySubSize &amp;&quot;&lt;/td&gt;&lt;/tr&gt;&quot;&amp; vbCrLf
   Set MyCurrentSub = Nothing
  Next
 End Function

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]

Owen-Bonilla · #5 (**permalink**) 20/04/2002, 11:52

Código:

  Public Function DisplayFiles()
  Response.Write  &quot;&lt;tr&gt;&lt;td style='background-color:#cfcfcf;'&gt;Nombre Archivo&lt;/td&gt;&lt;td style='background-color:#cfcfcf;'&gt;Tipo de Archivo&lt;/td&gt;&lt;td style='background-color:#cfcfcf;'&gt;Tamaño del Archivo (Bytes)&lt;/td&gt;&lt;/tr&gt;&quot;&amp; vbCrLf
  MyFileNum=0
  For Each File in MyFiles.Files
   Dim MyCurrentName, MyFileNum, MyFileSize, MyFileName
   Set MyCurrentName = MyFSO.GetFile(File)
   MyFileNum = MyFileNum+1
   MyFileSize = MyCurrentName.Size
   MyFileName = MyCurrentName.Name
   MyFileType = MyCurrentName.Type
   MyFileURL = Replace(MyPhysPath, MyRootPath, &quot;/&quot;)
   MyFileURL = Replace(MyFileURL, &quot;\&quot;, &quot;/&quot;)
   MyFileURL = MyFileURL &amp; MyFileName
   ' MyFileURL = Server.URLEncode(MyFileURL) messes up the code, i already tried =(
   Response.Write &quot;&lt;tr&gt;&lt;td&gt;&lt;img src=file.gif border=0 align=absolutemiddle&gt;&amp;nbsp;&lt;a href='&quot;&amp; MyFileURL &amp;&quot;'&gt;&quot;&amp; MyFileName &amp;&quot;&lt;/a&gt;&lt;/td&gt;&lt;td&gt;&quot;&amp; MyFileType &amp;&quot;&lt;/td&gt;&lt;td&gt;&quot;&amp; MyFileSize &amp;&quot;&lt;/td&gt;&lt;/tr&gt;&quot;&amp; vbCrLf
   Set MyCurrentName = Nothing
  Next
 End Function
 
 Response.Write &quot;&lt;tr&gt;&lt;td colspan=3&gt;&lt;b&gt;My IIS Admin Explorer.v1.0 Owen Bonilla&lt;/b&gt;&lt;/td&gt;&lt;/tr&gt;&quot;&amp; vbCrLf
 Response.Write &quot;&lt;/table&gt;&quot;&amp; vbCrLf
 Set MyFSO = Nothing
Else
 Response.Write &quot;Esta es una página segura!&lt;br&gt;Por Favor Use https:// Protocolo!&quot;
End If
%&gt;

Todo estos códigos copialos y guardalos en un solo archivo, y correlo en tu server. Espero y te sirva

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]

HoySol · #6 (**permalink**) 20/04/2002, 12:27

Muchas Gracias eres una machina de programacion mucha gracias
un saludo
HoySol

Owen-Bonilla · #7 (**permalink**) 20/04/2002, 14:16

De nada Amigo(a)

Para eso estamos, y lo poco que se ( porque se muy poco de programación ) lo he aprendido en estos foros que para mi gusto, son los mejores foros de programacion en español.

Saludos

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]