Foro de elhacker.net

Buenas gente,

Veamos si alguien me puede ayudar. Tengo q hacer un programa que me quite el proxy (eso ya lo conseguí), que me quite el icono de Internet Explorer del escritorio, que me anule la pestaña "Conexiones" de las opciones de internet en propiedades del iexplorer. También quitar el icono en panel de control de Opciones de internet....

Todo esto para capar a los usuarios de un centro. La cosa esta que ya lo se hacer todo esto, pero tengo q hacerlo por el MMC.exe y uno por uno. Por eso quiero hacer un programa q me simplifique el trabajo ya que lo tengo q hacer en mas de 1.000 ordenadores.

¿¿¿Alguna idea??? e mirado por internet muchas cosas... unas que salia que puedo modificar el policy.pol pero para win2000. Pero para XP no xuta.

Espero que me podais exar una mano... es un reto pero tb es para mi trabajo.

Gracias a todos! Un saludo.

   para borrar el icono del internet explorer del escritorio, unicamente tienes qe copiar el programa en el escritorio, y ejecutarlo al inicio:
y luego ponle qe borre el icono del ie de la ruta actual:

De pestañas y lo demas no tengo ni idea pero seguramente la respuesta estara en las api´s, espero aberte ayudado algo...

Gracias Snort, eso que me dijiste de momento me vale.

Me falta el resto, ya diré algo si lo encuentro.

Un saludo.

Veamos de momento tengo esto:

Para quitar el proxy:

Private Sub Command1_Click()
Dim strRegPath

' ubicacion en la registry
strRegPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
Set oWshShell = CreateObject("WScript.Shell")

' modifica las entradas en el registro
Call oWshShell.RegWrite(strRegPath & "AutoConfigURL", "00000000", "REG_DWORD")

' notificacion
MsgBox "Ssin Proxy"

' destroy
Set oWshShell = Nothing

End
End Sub

_______________________________________________

Para poner el proxy de nuevo:

Private Sub Command2_Click()
Dim strProxyServer

' define el proxy y el puerto si es necesario
strProxyServer = "http://www.siclontec.es/proxy.pac" '(un proxy falso como podeis entender)

' ubicacion en la registry
Dim strRegPath
strRegPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
Set oWshShell = CreateObject("WScript.Shell")
 
' modifica las entradas en el registro
'Call oWshShell.RegWrite(strRegPath & "ProxyEnable", "00000001", "REG_DWORD")
'Call oWshShell.RegWrite(strRegPath & "ProxyOverride", "<local>", "REG_SZ")
Call oWshShell.RegWrite(strRegPath & "AutoConfigURL", strProxyServer, "REG_SZ")

' notificacion

MsgBox "Proxy introducido" & vbCrLf & "Servidor - " & strProxyServer

' destroy

Set oWshShell = Nothing
End
End Sub

___________________________________________________

Ahora lo siguiente q me faltaria, seria quitar la pestaña conexiones y sus accesos a dicha pestaña.

Bueno ya veis voy pillando cosas, pero... aun me falta! Uffff.