Wilson WindowWare Tech Support

WinBatch WinBatch+Compiler WebBatch
Home | Tech Database | Tech BBS | White Papers | Purchase

Remote CD-ROM Detection

Keywords:   Remote CD-ROM Detection

Machine=RegConnect(ServerName, @REGMACHINE)
MountedDevicesKey = RegOpenKey(Machine,"SYSTEM\MountedDevices")
MountedDevicesList = RegQueryItem(Machine,"SYSTEM\MountedDevices")
RegCloseKey(MountedDevicesKey)
MountedDevicesList = ItemSort(MountedDevicesList, @TAB) ;Devices are not always in order so sort them.
MountedDevicesCount = ItemCount(MountedDevicesList, @TAB)

This assumes of course that you have admin rights to the target machine. Not pretty but it works.