cIP = oRequest.ServerVariables("REMOTE_ADDR") ' Return the computer name Public Function GetComputerName() As String Dim lcComputerName As String = "" ' Initialization lcComputerName = System.Environment.MachineName Return lcComputerName End FunctionNote that based on the OS, you might end up with something like ::1 for the IP address when you are running a local Web site.