{NeoBook Function}
Version=5,60
Language=VBScript
Param=[%1]|Mixed|Disco a comprobar
Param=[%2]|Variable|Variable a guardar resultado
{End}
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colDisks = objWMIService.ExecQuery _
    ("Select * from Win32_LogicalDisk")

strReturn = 0
For Each objDisk in colDisks
    If objDisk.DeviceID = "[%1]" then
       If objDisk.DriveType = 2 then
            strReturn = 1
            Exit For
       end if
    end if
Next

publication.nbSetVar "[%2]", strReturn
