Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
IOMega ZIP JAZ Driveinfo WMI
; ok, thanks to Stan who has a cornucopia of Zip drive inventory, ; this script should bring back info on what you have attached to your ; pc. let me know if there's any problems. ; drive numbers correspond to drive letters and are zero-based, ; a: = 0, b: = 1, c: = 2, e: = 4 etc... DriveLetters = StrUpper("a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z") iom = ObjectOpen("IomATLDrv.IomDrive.1") ; get a list of IOmega drives on the PC list = iom.IDIomegaDrives() Terminate(StrLen(list)==0, "IOMega Drive Info", "Exiting...no drives found...") drivelist = "" For j = 1 To StrLen(list) ; extract the drive letter... thisletter = StrSub(list, j, 1) ; find its location in the list and subtract 1 from it... drivelist = ItemInsert(ItemLocate(thisletter, DriveLetters, "|")-1, -1, drivelist, @TAB) Next ; build a list of info on each drive... drivetypes = "" For i = 1 To ItemCount(drivelist, @TAB) DRIVE = ItemExtract(i, drivelist, @TAB) ; get the drive's label text... drivetypes = ItemInsert(iom.DriveGetLabelText(DRIVE), -1, drivetypes, @TAB) ; if the drive has a disk in it, eject it... If iom.DriveHasDisk(DRIVE) Then iom.DriveEjectDisk(DRIVE) Next ; set the data string... iostr = "" ; get the Common Files Path... iodata = iom.UtilGetIomCommonPath() GoSub AddData ; get the Registry Key... iodata = iom.UtilGetIomCommonRegKey() GoSub AddData ; get the IO Ready Path... iodata = iom.UtilGetIoreadyPath() GoSub AddData Message("IOmega Drive Info", StrCat(StrReplace(drivetypes, @TAB, @CRLF), @CRLF, StrReplace(iostr, @TAB, @CRLF))) ObjectClose(iom) Exit :AddData iostr = ItemInsert(iodata, -1, iostr, @TAB) Return ;-------------------------------------------------------------------------------- ;Thanks, Jay
Article ID: W16067
File Created: 2004:03:30:15:42:42
Last Updated: 2004:03:30:15:42:42