elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Security Series.XSS. [Cross Site Scripting]


  Mostrar Mensajes
Páginas: [1] 2
1  Programación / Scripting / Re: [VBS] [POWERSHELL] Intentando crear Script para cambiar IPs y DNS en: 9 Septiembre 2020, 17:55
Muuuchas gracias. Si señor, está muy bien el batch que has puesto.
Al final modifiqué algunos detalles del script que puse y me funciona sin problemas, aunque efectivamente hay que tener cuidado si no se tienen privilegios.
Gracias de nuevo :)

2  Programación / Scripting / Re: [VBS] [POWERSHELL] Intentando crear Script para cambiar IPs y DNS en: 28 Junio 2020, 18:14
Buenas tardes:
He modificado alguna cosa pero no me funciona.
Alguien me puede dar alguna idea¿?
Muuuchas gracias.
3  Programación / Scripting / Re: [VBS] [POWERSHELL] Intentando crear Script para cambiar IPs y DNS en: 27 Junio 2020, 21:10
Estoy probando alguna cosa:

Código
  1. Dim strIPAddress
  2. Dim strSubnetMask
  3. Dim strGateway
  4. Dim intGatewayMetric
  5. Dim strDns1
  6. Dim strDns2
  7. Dim strRed
  8.  
  9. strIPAddress = "1.2.3.4"
  10. strSubnetMask = "255.255.255.0"
  11. strGateway = "1.1.1.1"
  12. intGatewayMetric = 1
  13. strDns1 = "10.10.10.10"
  14. strDns2 = "20.20.20.20"
  15. strRed = "Ethernet"
  16.  
  17. Set objShell = WScript.CreateObject("Wscript.Shell")
  18. objShell.Run "netsh interface ip set address name=""strRed"" static " & strIPAddress & " " & strSubnetMask & " " & strGateway & " " & intGatewayMetric, 0, True
  19. objShell.Run "netsh interface ip set dns name=""strRed"" static "& strDns1, 0, True
  20. objShell.Run "netsh interface ip add dns name=""strRed"" addr="& strDns2, 0, True
  21. Set objShell = Nothing
  22. WScript.Quit

En ello estoy ...  :-\
4  Programación / Scripting / [VBS] [POWERSHELL] Intentando crear Script para cambiar IPs y DNS en: 27 Junio 2020, 20:33
Buenas tardes a todos.
Estoy intentando crear un SCRIPT mediante VBS o POWERSHELL.

Lo he conseguido mediante un archivo BAT, pero tengo problemas con la elevación de privilegios (cosas del cmd.exe).

Por lo tanto lo que estoy intentado crear es un SCRIPT que se ejecute en un USUARIO SIN privilegios de ADMINISTRADOR para cambiar varios valores en IE11 (esto no es problema) y tras esto que modifique la IP, Puerta de enlace y las DNS.
Y otro SCRIPT para que lo deje todo en DHCP.

Todo ello sin que pida la contraseña del admin... en el archivo bat estaba realizándolo con "runas.exe"

Alguna idea¿?

Muchísimas gracias por adelantado.... estoy dándome por vencido... jajajaja

5  Programación / Programación Visual Basic / Re: [AYUDA] [VBS SCRIPT] Script para registro windows q no m funciona en: 2 Marzo 2020, 09:26
Buenos días:

Muchisimas gracias por tus consejos :) ya los estoy aplicando ;) .

Finalmente ya me funciona solamente tenía mal la llamada a una variable en el último IF ya q llamaba a CADENA cuando tendría que llamar a CADENA2, un fallo tonto.

Muchas gracias nuevamente, poco a poco gracias a todos vosotros estoy aprendiendo un poco de este mundo xD .
6  Programación / Programación Visual Basic / Re: [AYUDA] [VBS SCRIPT] Script para registro windows q no m funciona en: 1 Marzo 2020, 21:34
Buenas tardes:

Si señor!!! Cuanta razón... ya funciona, fallo mio xD
Muchas gracias :) .
Pero ahora quiero después de ese IF montar otro pero no se en que fallo ahora :( ...

Código
  1. strComputer = "."
  2. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  3.  
  4. Dim USUARIO
  5. Dim DOMINIO
  6. Dim SID
  7.  
  8. Set objshell = createobject("wscript.shell")
  9. USUARIO = objshell.expandenvironmentstrings("%USERNAME%")
  10. DOMINIO = objshell.expandenvironmentstrings("%USERDOMAIN%")
  11.  
  12. Set objAccount = objWMIService.Get _
  13. ("Win32_UserAccount.Name='" & USUARIO & "',Domain='" & DOMINIO & "'")
  14.  
  15. SID = objAccount.SID
  16.  
  17. Msgbox objshell.expandenvironmentstrings(SID)
  18.  
  19. DIM CADENA
  20. CADENA = objshell.expandenvironmentstrings("HKEY_USERS\"&SID&"\Software\Microsoft\Windows\CurrentVersion\BackgroundAccessApplications\GlobalUserDisabled")
  21.  
  22. Msgbox objshell.expandenvironmentstrings(CADENA)
  23.  
  24. DIM CADENA2
  25. CADENA2 = objshell.expandenvironmentstrings("HKEY_USERS\"&SID&"\Control Panel\International\User Profile\HttpAcceptLanguageOptOut")
  26.  
  27. Msgbox objshell.expandenvironmentstrings(CADENA2)
  28.  
  29. On Error Resume Next
  30.  
  31. Set oShell = WScript.CreateObject("WScript.Shell")
  32. dato = oShell.RegRead(CADENA)
  33.  
  34. Msgbox objshell.expandenvironmentstrings(dato)
  35.  
  36. DIM WshShell
  37. Set WshShell = WScript.CreateObject("WScript.Shell")
  38.  
  39. IF Err.Number <> 0 THEN  'Ha ocurrido un error
  40.  IF Err.Number = -2147024894 THEN
  41.    WshShell.RegWrite CADENA, 1, "REG_DWORD"
  42. MsgBox ("Opcion 1")
  43.  END IF
  44. WScript.Quit
  45. ELSE                     'Valor encontrado
  46.  IF dato = 0 THEN  
  47.  WshShell.RegWrite CADENA, 1, "REG_DWORD"
  48.  Msgbox("Opcion2")
  49.  END IF
  50. END IF
  51.  
  52. DIM WshShell2
  53. Set oShell = WScript.CreateObject("WScript.Shell")
  54. dato2 = oShell.RegRead(CADENA)
  55.  
  56. Msgbox objshell.expandenvironmentstrings(dato2)
  57.  
  58. Set WshShell2 = WScript.CreateObject("WScript.Shell")
  59.  
  60. IF Err.Number <> 0 THEN  'Ha ocurrido un error
  61.  IF Err.Number = -2147024894 THEN
  62.    WshShell2.RegWrite CADENA2, 1, "REG_DWORD"
  63. MsgBox ("Opcion 1_2")
  64.  END IF
  65. WScript.Quit
  66. ELSE                     'Valor encontrado
  67.  IF dato2 = 0 THEN  
  68.  WshShell2.RegWrite CADENA2, 1, "REG_DWORD"
  69.  Msgbox("Opcion2_2")
  70.  END IF
  71. END IF
  72.  
  73.  
  74. Msgbox("FIN")

Derspues de este comando:
Msgbox objshell.expandenvironmentstrings(dato2)
Me muestra el valor correspondiente pero no se ejecuta nada más... pasa directamente al mensaje:
Msgbox("FIN")

Alguien sabe que se me está pasando¿?

Gracias de nuevo. ;)
7  Programación / Programación Visual Basic / [AYUDA] [VBS SCRIPT] Script para registro windows q no m funciona en: 1 Marzo 2020, 20:20
Buenas tardes a todos:
He realizado un Script para modificar un valor del registro de Windows, se me hizo complicado por que la CADENA DEL REGISTRO donde se almacena el valor a modificar depende del usuario activo, asiq el Script no puede ser genérico, depende del SID del Usuario Actual.

Código
  1. strComputer = "."
  2. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  3.  
  4. Dim USUARIO
  5. Dim DOMINIO
  6. Dim SID
  7.  
  8. Set objshell = createobject("wscript.shell")
  9. USUARIO = objshell.expandenvironmentstrings("%USERNAME%")
  10. DOMINIO = objshell.expandenvironmentstrings("%USERDOMAIN%")
  11.  
  12. Set objAccount = objWMIService.Get _
  13. ("Win32_UserAccount.Name='" & USUARIO & "',Domain='" & DOMINIO & "'")
  14.  
  15. SID = objAccount.SID
  16.  
  17. Msgbox objshell.expandenvironmentstrings(SID)
  18.  
  19. DIM CADENA
  20. CADENA = objshell.expandenvironmentstrings("HKEY_USERS\"&SID&"\Software\Microsoft\Windows\CurrentVersion\BackgroundAccessApplications\GlobalUserDisabled")
  21.  
  22. Msgbox objshell.expandenvironmentstrings(CADENA)
  23.  
  24. On Error Resume Next
  25.  
  26. Set oShell = WScript.CreateObject("WScript.Shell")
  27. dato = oShell.RegRead(CADENA)
  28.  
  29. Msgbox objshell.expandenvironmentstrings(dato)
  30.  
  31. Dim WshShell, bKey
  32. Set WshShell = WScript.CreateObject("WScript.Shell")
  33.  
  34. IF Err.Number <> 0 THEN  'Ha ocurrido un error
  35.  IF Err.Number = -2147024894 THEN
  36.    WshShell.RegWrite "CADENA", 1, "REG_DWORD"
  37. MsgBox ("Opcion 1")
  38.  END IF
  39. WScript.Quit
  40. ELSE                     'Valor encontrado
  41.  IF dato = 0 THEN  
  42.  WshShell.RegWrite "CADENA", 1, "REG_DWORD"
  43.  Msgbox("Opcion2")
  44.  END IF
  45. END IF
  46.  
  47. Msgbox("FIN")

En el código he puesto varios mensajes para ir viendo que todas las variables almacenan los datos correctos... pero las funciones de escribir en el Registro de Windows no me funcionan :( :(

Alguien sabría en que estoy fallando¿?

Muchas gracias por adelantado.
8  Programación / Scripting / Re: [AYUDA] [BATCH] Batch sencillo para comparar un valor del registro de windows en: 27 Febrero 2020, 20:40
Buenas tardes:

Muchiiiisimas gracias.

A parte de funcionar perfectamente, ya lo he adaptado  a lo que necesito...

Perfectamente explicado y entendido.

Muchas gracias de nuevo. Un crack si señor. :)
9  Programación / Scripting / Re: [AYUDA] [BATCH] Batch sencillo para comparar un valor del registro de windows en: 26 Febrero 2020, 17:34
Buenas tardes:

Muchísimas gracias. Sois unos cracks.

Tmb estuve con vbs y conseguí lo siguiente:

Dim WshShell, bKey
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim valor
Set objshell = createobject("wscript.shell")
Valor = objshell.regread("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1004")
If  valor <> 0 then
   WshShell. RegWrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1004", 0, "REG_DWORD"
End if

Pero ahora si la clave a comparar no existe me da un error y yo querría que si el VALOR es Distinto de CERO o NO EXISTE... se ejecute... Alguna idea¿?¿?

Gracias de nuevooooo
10  Programación / Scripting / Re: [AYUDA] [BATCH] Batch sencillo para comparar un valor del registro de windows en: 25 Febrero 2020, 21:02
Buenas tardes de nuevo:

Estoy mirando con vbscript... a ver que tal se me dá, jajaja

Creo que con el comando "RegRead"...
Páginas: [1] 2
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines