{Resuelto} [Another Duda VBS] Agregando cosas al registro

[xassiz_]

Código [Seleccionar] Expandir

Set objshell = createobject("wscript.shell")
objshell.regwrite(llave de registro, valor, tipo de dato)

Como podría por ejemplo, agregar un script al Run?

Existe algo como el %0 en Batch?

[Novlucker]

El equivalente de batch %0 es ...

Código (vb) [Seleccionar] Expandir

wscript.scriptfullname
'Y tambien te puede ser util el
wscript.scriptname

Saludos

[xassiz_]

ok
entonces como se haría algo asi:

Código [Seleccionar] Expandir

Set objshell = createobject("wscript.shell")
objshell.regwrite("HKLM\Software\Microsoft\Windows\CurrentVersion\Run",wscript.scriptfullname,"REG_SZ") 

tu ya me entiendes, para que el propio VBS se ejecute al iniciar wiin..

[Novlucker]

Voy a dejar que lo pienses ... ¿no le falta nada a esa clave?
Mira en el tuto de vbs el ejemplo que había dejado 

Saludos

[xassiz_]

De ahi aprendi xD

Dices el valor? entonces donde pongo la ruta? u.u

[Novlucker]

La "llave de registro" necesita un NOMBRE, en el ejemplo que había dejado en el tuto es disabletaskmgr, el resto estaría bien

Saludos

[xassiz_]

El ejemplo:

Código [Seleccionar] Expandir


Set objshell = createobject("wscript.shell")
objshell.regwrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD")
'va todo en una misma linea, la llave es muy larga


En el mio es Run

Código [Seleccionar] Expandir


Set objshell = createobject("wscript.shell")
objshell.regwrite("HKLM\Software\Microsoft\Windows\CurrentVersion\Run",wscript.scriptfullname,"REG_SZ") 


no?? =S

[Novlucker]

No XD

El Run es la rama donde estará la llave, ese Run es equivalente a mi System
Abre el registro (regedit.exe) sino, muevete hasta esa rama y te darás cuenta lo que digo

[xassiz_]

Ah entiendo.. entonces sería así:

Código [Seleccionar] Expandir

Set objshell = createobject("wscript.shell")
objshell.regwrite("HKLM\Software\Microsoft\Windows\CurrentVersion\Run\nombredelaentradaxD",wscript.scriptfullname,"REG_SZ")

[xassiz_]

=S

me da error..

si pongo:

Código [Seleccionar] Expandir

Set objshell = createobject("wscript.shell")
objshell.regwrite("HKLM\Software\Microsoft\Windows\CurrentVersion\Run\miscriptdevbs",wscript.scriptfullname,"REG_SZ")

y si pongo

Código [Seleccionar] Expandir

Set objshell = createobject("wscript.shell")
objshell.regwrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\miscriptdevbs",wscript.scriptfullname,"REG_SZ"
me dice Acceso Denegado.. aunque ya sera cosa del vista.. =S