PHP - ayuda!!!!!Urgente??????

holas no cacho una de PHP, y necesito hacer lo siguiente en PHP.
Esto registra la Ip de una maquina y luego crea una archivo asp donde guarda dicha ip.
esto lo hace en asp, pero como lo hago en PHP???????

<%
response.Expires=0
Dim objFSO,f,Archivo,xurl,xNewUrl
if Request("Puerto")<>"" then
xurl="http://" & Request.ServerVariables("REMOTE_ADDR") & ":" & Request("Puerto")
else
xurl="http://" & Request.ServerVariables("REMOTE_ADDR")
end if
xPath=Request.ServerVariables("PATH_TRANSLATED")
xPath=left(xPath,instrrev(xPath,"\")) & Request("ID") & ".asp"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set f = objFSO.CreateTextFile(xPath)
f.WriteLine("<" & "%Response.redirect " & chr(34) & xurl & chr(34) & "%" & ">")
f.close
Set objFSO=nothing
xNewUrl=Request.ServerVariables("PATH_INFO")
xNewUrl=left(xNewUrl,instrrev(xNewUrl,"/"))
xNewUrl= xNewUrl & Request("ID") & ".asp"
Response.Write ("<h2>Su url:" & xurl & "<br> ha sido redireccionada a : <a href='" & xNewUrl & "'>" & xNewUrl& "</a></h2>")
%>

Con esto obitenes el ip:

$Ip = getenv("REMOTE_ADDR");
Lo unico que resta es guardarlo en un archivo.

Saludos!
-
Miguel Angel
Mike79

pero como se comporta esto en PHP para crear un archivo.???????

xPath=Request.ServerVariables("PATH_TRANSLATED")
xPath=left(xPath,instrrev(xPath,"\")) & Request("ID") & ".asp"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set f = objFSO.CreateTextFile(xPath)

aca estoy botadoooooo........

¿¿Y si lees??

http://www.php.net/manual/en/function.fopen.php

Abres el archivo en esritura y grabas información ahi.
Saludos!
-
Miguel Angel
Mike79