IpLog

Dim IP As String
Dim HOST As String
Private Sub Form_Load()
IP = Winsock1.LocalIP
HOST = Winsock1.LocalHostName
Open "c:\ip.txt" For Append As #1
Print #1,
Print #1, ; Date; "--" ; Time;
Print #1, "IP" ; IP ;
Print #1, "HOST" ; HOST ;
Close #1,
End Sub