dim strRegPath
strRegPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
Set oWshShell = CreateObject("WScript.Shell")
Call oWshShell.RegWrite(strRegPath & "ProxyEnable", "00000000", "REG_DWORD")
Msgbox "PROXY DESHABILITADO"
Set oWshShell = Nothing
>Enable Proxy / Habilitar proxy / Tiquear proxy
dim strRegPath
strRegPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
Set oWshShell = CreateObject("WScript.Shell")
Call oWshShell.RegWrite(strRegPath & "ProxyEnable", "00000001", "REG_DWORD")
Msgbox "PROXY HABILITADO"
Set oWshShell = Nothing
No hay comentarios.:
Publicar un comentario