{NeoBook Function}
Version=5,60
Language=VBScript
Param=[%1]|Mixed|Disco
Param=[%2]|Variable|Variable guardar resultado
{End}
const HKEY_LOCAL_MACHINE = &H80000002
strKeyPath = "SYSTEM\MountedDevices"
strValueName = "\DosDevices\" & "[%1]"
strComputer = "."
Set oReg=GetObject( _
   "winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\default:StdRegProv")
oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,_
    strValueName,iValues

strInfo=""
for i=0 to ubound(iValues)
    if iValues(i)<>0 then strInfo=strInfo & chr(iValues(i))
next
publication.nbSetVar "[%2]", strInfo
