;;;VLISPȡӲϵк
  ;;;(GET_DRIVE_SN "c")
  (defun get_drive_sn (drive / FILSYS driveobj)
    (vl-load-com)
    (setq FILSYS (vlax-create-object "scripting.FileSystemObject"))
    (if (/= (vlax-invoke-method FILSYS "DriveExists" drive) :vlax-false)
        (progn
           (setq driveobj (vlax-invoke-method FILSYS "GetDrive" drive))
           (vlax-get-property driveobj "SerialNumber")
        )
        nil
    )
  ) 