Enable/Disable Proxy using VBScript

-
reference: http://stackoverflow.com/questions/19537553/timer-usage-on-vbs

Option Explicit

Const HKCU = &H80000001
Const KEY = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
Const VALUE = "ProxyEnable"
Const TITLE = "Disable IE Proxy"
Const PROXY = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer"

Dim wmi
Dim iProx

Set wmi = GetObject("winmgmts:\\.\root\default:StdRegProv")

Call wmi.GetDWordValue(HKCU,KEY,VALUE,iProx)

Select Case iProx
  Case 1:
    If MsgBox("Proxy is ENABLED. Do you want to disable it?", vbQuestion+vbYesNo, TITLE) = vbYes Then
      'disable, delay, then re-enable
      Call wmi.SetDwordValue(HKCU,KEY,VALUE,0)
      Call wmi.GetDWordValue(HKCU,KEY,VALUE,iProx)
      MsgBox("Proxy Disabled ("& iProx & ")" & vbCrLf & "Current Proxy: "& readFromRegistry(PROXY))
    End If
  Case 0:
    If MsgBox("Proxy is DISABLED. Do you want to enable it?", vbQuestion+vbYesNo, TITLE) = vbYes Then
      Call wmi.SetDwordValue(HKCU,KEY,VALUE,1)
      Call wmi.GetDWordValue(HKCU,KEY,VALUE,iProx)
      MsgBox("Proxy Enabled ("& iProx & ")" & vbCrLf & "Current Proxy: "& readFromRegistry(PROXY))
     End If
End Select

Set wmi = Nothing
WScript.Quit

 function readFromRegistry (strRegistryKey)
    Dim WSHShell, value

    On Error Resume Next
    Set WSHShell = CreateObject("WScript.Shell")
    value = WSHShell.RegRead( strRegistryKey )

    if err.number <> 0 then
        readFromRegistry= Err.Description
    else
        readFromRegistry=value
    end if

    set WSHShell = nothing
end function 

Comments

Post a Comment

Popular posts from this blog

c# console applicaton progress bar with spinner

-
Image
Name spaces to include: using System; using System.Text; using System.Threading; ---------------------------------------------- Progress bar class:     class progressBar     {         /// <summary>         /// An ASCII progress bar         /// </summary>         public class ProgressBar : IDisposable, IProgress<double>         {             private const int blockCount = 40;             private readonly TimeSpan animationInterval = TimeSpan.FromSeconds(1.0 / 8);            private const string animation = @"▀▀▀▀▄▄▄▄";//@"▀▀▀▀▄▄▄▄"  @"|/-\";        ...
Read more

Get the Differences between two Databases (Preferably Similar)

-
Run the following sql query for each database. SELECT   ST.NAME   'TABLE'             , SC.NAME   'COLUMN'            , T.NAME   'COLUMN TYPE'             ,SC.MAX_LENGTH 'LENGTH', SC.is_nullable ,object_definition(SC.default_ object_id) AS defaultVal               FROM SYS.TABLES ST INNER JOIN SYS.COLUMNS SC ON ST.OBJECT_ID = SC.OBJECT_ID INNER JOIN SYS.TYPES T ON SC.SYSTEM_TYPE_ID = T.SYSTEM_TYPE_ID             AND SC.SYSTEM_TYPE_ID = T.USER_TYPE_ID LEFT JOIN SYS.EXTENDED_PROPERTIES EX ON EX.MINOR_ID = SC.COLUMN_ID             AND EX.MAJOR_ID = ST.OBJECT_ID  order by   ST.NAME , SC.NAME Save the outputs as  .CSV files. Build an EXE file for the following code. Put the two CSV files and the exe file in a folder Run ...
Read more

Simple string encoding and decoding in c#

-
public string Decode(string sData)         {             System.Text.UTF8Encoding encoder = new System.Text.UTF8Encoding();             System.Text.Decoder utf8Decode = encoder.GetDecoder();             byte[] todecode_byte = Convert.FromBase64String(sData);             int charCount = utf8Decode.GetCharCount(todecode_byte, 0, todecode_byte.Length);             char[] decoded_char = new char[charCount];             utf8Decode.GetChars(todecode_byte, 0, todecode_byte.Length, decoded_char, 0);             string result = new String(decoded_char);     ...
Read more