Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Nilrac

#101
Scripting / Re: Eliminar carpta
5 Diciembre 2009, 21:25 PM
Me dice que:

error de entrada: no existe C:\Windows\System32\elscript.vbs

jeje

Pero el vbs sirve para Xp cierto?
#102
Scripting / Re: Eliminar carpta
5 Diciembre 2009, 20:36 PM
Soy administrador del sistema...

Se que hay aplicaciones que requieren de "ejecutar como administrador" pero el problema es que cuando le doy doble clic al vbs sale



Cuando le doy click derecho, no sale la opcion de "ejecutar como administrador"
ya que no es necesario para ejecutar scripts
#103
Scripting / Re: Eliminar carpta
5 Diciembre 2009, 18:29 PM
Cita de: Novlucker en  5 Diciembre 2009, 03:04 AM
Código (vb) [Seleccionar]
Set objWMI = GetObject("winmgmts:\\.\root\default")

Set objItem = objWMI.Get("SystemRestore")
objItem.disable("")


Hola !

Te cuento que no me funciona el vbs  :(
Sera por que tengo Win 7 ?
Ese codigo esta echo bajo Xp ?

Espero tu ayuda amigo...
#104
Scripting / Re: Eliminar carpta
5 Diciembre 2009, 04:05 AM
pitoloko :

Si deseas saber con certeza

realiza un sacn con http://www.forospyware.com/t75446.html ese es el manua

CitarPanda no elimina, genera el reporte; si deseas me lo pegas y te ayudo a desinfectar

Novlucker :

tratare de colocar un mensaje pidiendole al usuario si desea activar o desactivar el servicio.

aaaaaaaaaa

una cosa...

en batch %HomeDrive% hace referencia al directorio donde esta instalado el Sistema Operativo (c od o cualquiera)

cual es el reemplazo de este en vbs?

Gracias !!!
#105
Scripting / Re: Eliminar carpta
5 Diciembre 2009, 01:49 AM
Claro !

Pero hay veces que la pestaña de activar y desactivar restaurar sistema Desaparece, y si modificas el registro tampoco aparece

Aunque seria fantastico en un .vbs tener las 2 funciones

1. Activar o desactivar restaurar sistema
2. Borar la carpeta y volver a crearla

Espero un poco de tu ayuda, amigo

Gracias !
#106
Scripting / Eliminar carpta
5 Diciembre 2009, 00:22 AM
hola !

Bueno quisiera que me ayudaran un poco por favor !

Quiero crear un archivo .vbs con la siguiente funcion:

Eliminar la carpeta System Volumen Information (en ella se encuentra toda la informacion de los puntos de restauracion)
y posteriormente volverla a crear

Explicacion:

Hay Malware que se esconden en dicha carpeta a la cual no tenemos acceso, tambien desabilitan por completa la utilidad restaurar sistema, pues bien reemplazando la carpeta esto se puede arreglar.

Gracias !!!
#107
Increible !!!

Ustedes son fantasticos...

Novlucker --> Grandioso

Muchas Gracias

-------------------------------------

Tengo otra duda

Tengo un .bat ligado a varios .vbs

Me gustaria crear un .exe que ejecute el .bat y se descompriman todos lo .vbs en la ruta

c:\

Eso es posible ?

Si es posible como lo hago?

Gracias !!!
#108
Hola !

En el foro me encontrado este codigo

set objfso = createobject("scripting.filesystemobject")
set discos = objfso.drives
nu=0

for each d in discos
if d.driveletter <> "A" and d.drivetype = 1 then
u = u & d.driveletter & ":" & chr(13)
nu = nu+1
end if
next

if nu = 0 then
msgbox "No se han deteactado unidades removibles"
else
msgbox "Las unidades removibles son: " & chr(13) & u
end if


Me gustaria que ademas de detectar las unidades extraibles detectara todas las particiones en cualquier maquina que sea utilizado el script

(C:\ y D:\ en mi caso)

Me pueden ayudar a modificarlo por fa  ;D
Apenas estoy empezando en esto y no entiendo mucho !

Gracias !
#109
Scripting / Re: Detector unidades Pendrive 0.5
3 Diciembre 2009, 04:33 AM
Cita de: Novlucker en  1 Julio 2008, 00:32 AM
Lamento informar que a mi me detecta G:, pero G ni siquiera existe en este momento.....  :-\

Es por eso que siempre me decanto por *.vbs  ;D

Código (vb) [Seleccionar]
set objfso = createobject("scripting.filesystemobject")
set discos = objfso.drives
nu=0

for each d in discos
if d.driveletter <> "A" and d.drivetype = 1 then
u = u & d.driveletter & ":" & chr(13)
nu = nu+1
end if
next

if nu = 0 then
msgbox "No se han deteactado unidades removibles"
else
msgbox "Las unidades removibles son: " & chr(13) & u
end if


Saludos  ;D

Hola !
Soy nuevo en el foro

Esta perfecto ese script, pero serias tan amable de agregarle el comando para que detecte las particiones como :
C:
D:

Gracias !!!