WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

OLE COM ADO CDO ADSI LDAP
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Get Information for IOMega Zip Drive

 IOMega ZIP JAZ Driveinfo WMI 

Getting Information on IOMega ZIP/JAZ Drives

Here is some sample code that Jay hacked out.

;   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