i have tried below script to print the remote IP who accessing my system

On Error Resume Next
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Do while(true)
wscript.echo "******** " & Request.ServerVariables("REMOTE_ADDR")
Loop


the above code is not working... could you please help me on this.