VB modificacion de registro
Publicado por Pavel (1 intervención) el 17/05/2016 16:49:31
Hola,soy principiante en scripting, y como formateo equipos diariamente ,para tener las cosas organizadas y automatizadas,decidí hacer pequeños scripts para facilitar las cosas. Este se supone que es un script para mover la carpeta de usuarios locales a otra partición.
me da un error diciendo que la raiz de registro no es valido,pero he comprobado con un RegRead devolviendo el resultado en un MsgBox,y la ruta es correcta,por lo cual no se cual es el error de mi script. Me podéis ayudar por favor?
1
2
3
4
5
6
7
8
9
10
11
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "cmd.exe", "/k xcopy C:\Users E:\Users /k/r/i/s/e/c/h/o/b", "", "runas", 1
strDefault = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\Default"
strProfilesDirectory = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\ProfilesDirectory"
strPublic = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\Public"
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegWrite strDefault,"D:\Users\Default","REG_EXPAND_SZ"
WshShell.RegWrite strProfilesDirectory,"D:\Users","REG_EXPAND_SZ"
WshShell.RegWrite strPublic,"D:\Users\Public","REG_EXPAND_SZ"
me da un error diciendo que la raiz de registro no es valido,pero he comprobado con un RegRead devolviendo el resultado en un MsgBox,y la ruta es correcta,por lo cual no se cual es el error de mi script. Me podéis ayudar por favor?
Valora esta pregunta
0