hola mira las lineas las encotre en internet pero yo los adapte a un archivo VBScript y funciona lo unico malo este se ven los cambios cuando cierras secion y reinicia la secion espero te sirva
crea un .vbScript con el nombre ocultar unidad y colocas las lineas siguientes
Dim WshShell
b=InputBox("Escriba el valor de la unidad "& Chr(13) & Chr(10) & "A:1 B:2 C:4 D:8 E:16 F:32 G:64 H:128")
Set WshShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
WshShell.RegWrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives",+b,"REG_DWORD"
para que se vea la unidad crea un .vbScript con el nombre desocultar unidad con estas lineas
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
WshShell.RegWrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives",0,"REG_DWORD"
y listo
espero te sea de ayuda , ah creo que si sabes que es un archivo .vbs verdad
att
[email protected]
