quarta-feira, 4 de dezembro de 2013

Configuração de Proxy em maquinas fora do Domínio


Script de configuração de proxy em computadores fora do domínio.
Ativar Proxy

  Option Explicit
  Dim proxy
  proxy = "IP:PORTA"
  'Dim Title
  'Title = "Troca automática de proxy"
 ' Dim Welcome_Text
  'Welcome_Text = "você deseja trocar o endereço proxy para " & proxy & "?"
  
 ' Call Welcome()
  
 ' Sub Welcome()
 '     Dim GO
 '     GO = MsgBox(Welcome_Text, 36, Title)
 '     If GO = 7 Then
 ''         WScript.Quit
  '    End If
 ' End Sub
  
  
 ' Dim Warning_Text
  'Warning_Text = "Atenção todas as janelas do internet explorer serão fechadas automaticamente." & Chr(10) _
 '                 & Chr(10) _
 '                 & "você deseja continuar?"
  
 ' Call Warning()
  
  'Sub Warning()
 '     Dim GO
 '     GO = MsgBox(Warning_Text, 36, Title)
 '     If GO = 7 Then
 '         WScript.Quit
 '     End If
 ' End Sub
  
  Dim WSHShell
  Set WSHShell = WScript.CreateObject("WScript.Shell")
  
  Call Kill_IE()
  
  Sub Kill_IE()
      While WSHShell.AppActivate("Internet Explorer")
          WSHShell.SendKeys "%{F4}"
          WScript.Sleep 500    ' Impedes a traffic jam
      WEnd
  End Sub
  
  WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 1, "REG_DWORD"
  WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer", proxy
  WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyOverride", ""
  WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\DisablePasswordCaching", 1, "REG_DWORD"
  
  
  'Dim confirm
  'confirm = MsgBox("PO internet explorer usará o seguinte endereço proxy" & proxy & ".  Enjoy.", 64, Title)
  
  'WSHShell.run "iexplore.exe http://www.google.com.br"



Remover Proxy

  Option Explicit
  Dim proxy
  proxy = "IP:PORTA"
  'Dim Title
  'Title = "Troca automática de proxy"
  'Dim Welcome_Text
  'Welcome_Text = "o internet explorer será configurado para navegar sem proxy"  
  
  'Call Welcome()
  
  'Sub Welcome()
   '   Dim GO
    '  GO = MsgBox(Welcome_Text, 36, Title)
     ' If GO = 7 Then
      '    WScript.Quit
      'End If
  'End Sub
  
 ' Dim Warning_Text
  'Warning_Text = "Atenção todas as janelas do internet explorer serão fechadas automaticamente." & Chr(10) _
   '               & Chr(10) _
    '              & "você deseja continuar?"
  
  'Call Warning()
  
  'Sub Warning()
   '   Dim GO
    '  GO = MsgBox(Warning_Text, 36, Title)
     ' If GO = 7 Then
      '    WScript.Quit
      'End If
 ' End Sub
  
  
  Dim WSHShell
  Set WSHShell = WScript.CreateObject("WScript.Shell")
  
  Call Kill_IE()
  
  Sub Kill_IE()
      While WSHShell.AppActivate("Internet Explorer")
          WSHShell.SendKeys "%{F4}"
          WScript.Sleep 500    ' Impedes a traffic jam
      WEnd
  End Sub
  
  WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD"
  WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer", proxy
  WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyOverride", ""
  WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\DisablePasswordCaching", 1, "REG_DWORD"
  
  
  'Dim confirm
 ' confirm = MsgBox("o internet explorer foi configurado para não usar proxy" , 64, Title)
  
  
 ' WSHShell.run "iexplore.exe http://www.google.com.br"

Nenhum comentário:

Postar um comentário