virtualbox 0.7.9 → 0.8.0

data/lib/virtualbox/com/interface/4.0.x/machine.rb

@@ -0,0 +1,132 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class Machine < AbstractInterface
+          IID_STR = "99404f50-dd10-40d3-889b-dd2f79f1e95e"
+
+          property :parent, :VirtualBox, :readonly => true
+          property :accessible, T_BOOL, :readonly => true
+          property :access_error, :VirtualBoxErrorInfo, :readonly => true
+          property :name, WSTRING
+          property :description, WSTRING
+          property :id, WSTRING, :readonly => true
+          property :os_type_id, WSTRING
+          property :hardware_version, WSTRING
+          property :hardware_uuid, WSTRING
+          property :cpu_count, T_UINT32
+          property :cpu_hot_plug_enabled, T_BOOL
+          property :cpu_execution_cap, T_UINT64
+          property :memory_size, T_UINT64
+          property :memory_balloon_size, T_UINT64
+          property :page_fusion_enabled, T_BOOL
+          property :vram_size, T_UINT32
+          property :accelerate_3d_enabled, T_BOOL
+          property :accelerate_2d_video_enabled, T_BOOL
+          property :monitor_count, T_UINT64
+          property :bios_settings, :BIOSSettings, :readonly => true
+          property :firmware_type, :FirmwareType
+          property :pointing_hid_type, T_UINT32
+          property :keyboard_hid_type, T_UINT32
+          property :hpet_enabled, T_BOOL
+          property :chipset_type, :ChipsetType
+          property :snapshot_folder, WSTRING
+          property :vrde_server, :VRDEServer, :readonly => true
+          property :medium_attachments, [:MediumAttachment], :readonly => true
+          property :usb_controller, :USBController, :readonly => true
+          property :audio_adapter, :AudioAdapter, :readonly => true
+          property :storage_controllers, [:StorageController], :readonly => true
+          property :settings_file_path, WSTRING, :readonly => true
+          property :settings_modified, T_BOOL, :readonly => true
+          property :session_state, :SessionState, :readonly => true
+          property :session_type, WSTRING, :readonly => true
+          property :session_pid, T_UINT64, :readonly => true
+          property :state, :MachineState, :readonly => true
+          property :last_state_change, T_INT64, :readonly => true
+          property :state_file_path, WSTRING, :readonly => true
+          property :log_folder, WSTRING, :readonly => true
+          property :current_snapshot, :Snapshot, :readonly => true
+          property :snapshot_count, T_UINT32, :readonly => true
+          property :current_state_modified, T_BOOL, :readonly => true
+          property :shared_folders, [:SharedFolder], :readonly => true
+          property :clipboard_mode, :ClipboardMode
+          property :guest_property_notification_patterns, WSTRING
+          property :teleporter_enabled, T_BOOL
+          property :teleporter_port, T_UINT32
+          property :teleporter_address, WSTRING
+          property :teleporter_password, WSTRING
+          property :fault_tolerance_state, :FaultToleranceState
+          property :fault_tolerance_port, T_UINT64
+          property :fault_tolerance_address, WSTRING
+          property :fault_tolerance_password, WSTRING
+          property :fault_tolerance_sync_interval, T_UINT64
+          property :rtc_use_utc, T_BOOL
+          property :io_cache_enabled, T_BOOL
+          property :io_cache_size, T_UINT32
+          property :bandwidth_control, :BandwidthControl, :readonly => true
+          property :pci_device_assignments, [:PciDeviceAttachment], :readonly => true
+
+          function :lock_machine, nil, [:Session, :LockType]
+          function :launch_vm_process, :Progress, [:Session, WSTRING, WSTRING]
+          function :set_boot_order, nil, [T_UINT32, :DeviceType]
+          function :get_boot_order, :DeviceType, [T_UINT64]
+          function :attach_device, nil, [WSTRING, T_INT32, T_INT32, :DeviceType, :Medium]
+          function :detach_device, nil, [WSTRING, T_INT32, T_INT32]
+          function :passthrough_device, nil, [WSTRING, T_INT32, T_INT32, T_BOOL]
+          function :set_bandwidth_group_for_device, nil, [WSTRING, T_INT64, T_INT64, :BandwidthGroup]
+          function :mount_medium, nil, [WSTRING, T_INT32, T_INT32, :Medium, T_BOOL]
+          function :get_medium, :Medium, [WSTRING, T_INT32, T_INT32]
+          function :get_medium_attachments_of_controller, [:MediumAttachments], [WSTRING]
+          function :get_medium_attachment, :MediumAttachment, [WSTRING, T_INT32, T_INT32]
+          function :attach_host_pci_device, nil, [T_INT32, T_INT32, :EventContext, T_BOOL]
+          function :detach_host_pci_device, nil, [T_INT32]
+          function :get_network_adapter, :NetworkAdapter, [T_UINT32]
+          function :add_storage_controller, :StorageController, [WSTRING, :StorageBus]
+          function :get_storage_controller_by_name, :StorageController, [WSTRING]
+          function :get_storage_controller_by_instance, :StorageController, [T_UINT32]
+          function :remove_storage_controller, nil, [WSTRING]
+          function :set_storage_controller_bootable, nil, [WSTRING, T_BOOL]
+          function :get_serial_port, :SerialPort, [T_UINT32]
+          function :get_parallel_port, :ParallelPort, [T_UINT32]
+          function :get_extra_data_keys, [WSTRING], []
+          function :get_extra_data, WSTRING, [WSTRING]
+          function :set_extra_data, nil, [WSTRING, WSTRING]
+          function :get_cpu_property, T_BOOL, [:CpuPropertyType]
+          function :set_cpu_property, nil, [:CpuPropertyType, T_BOOL]
+          function :get_cpu_id_leaf, nil, [T_UINT32, [:out, T_UINT32], [:out, T_UINT32], [:out, T_UINT32], [:out, T_UINT32]]
+          function :set_cpu_id_leaf, nil, [T_UINT32, T_UINT32, T_UINT32, T_UINT32, T_UINT32]
+          function :remove_cpu_id_leaf, nil, [T_UINT32]
+          function :remove_all_cpu_id_leafs, nil, []
+          function :get_hw_virt_ex_property, T_BOOL, [:HWVirtExPropertyType]
+          function :set_hw_virt_ex_property, nil, [:HWVirtExPropertyType, T_BOOL]
+          function :save_settings, nil, []
+          function :discard_settings, nil, []
+          function :unregister, [:Medium], [:CleanupMode]
+          function :delete, :Progress, [[:Medium]]
+          function :export, :VirtualSystemDescription, [:Appliance, WSTRING]
+          function :find_snapshot, :Snapshot, [WSTRING]
+          function :create_shared_folder, nil, [WSTRING, WSTRING, T_BOOL, T_BOOL]
+          function :remove_shared_folder, nil, [WSTRING]
+          function :can_show_console_window, T_BOOL, []
+          function :show_console_window, T_UINT64, []
+          function :get_guest_property, nil, [WSTRING, [:out, WSTRING], [:out, T_UINT64], [:out, WSTRING]]
+          function :get_guest_property_value, WSTRING, [WSTRING]
+          function :get_guest_property_timestamp, T_UINT64, [WSTRING]
+          function :set_guest_property, nil, [WSTRING, WSTRING, WSTRING]
+          function :set_guest_propetty_value, nil, [WSTRING, WSTRING]
+          function :enumerate_guest_properties, nil, [WSTRING, [:out, [WSTRING]], [:out, [WSTRING]], [:out, [T_UINT64]], [:out, [WSTRING]]]
+          function :query_saved_guest_size, nil, [T_UINT64, [:out, T_UINT64], [:out, T_UINT64]]
+          function :query_saved_thumbnail_size, nil, [T_UINT32, [:out, T_UINT32], [:out, T_UINT32], [:out, T_UINT32]]
+          function :read_saved_thumbnail_to_array, [T_UINT8], [T_UINT32, T_BOOL, [:out, T_UINT32], [:out, T_UINT32]]
+          function :query_saved_screenshot_png_size, nil, [T_UINT32, [:out, T_UINT32], [:out, T_UINT32], [:out, T_UINT32]]
+          function :read_saved_png_screenshot_to_array, [T_UINT8], [T_UINT32, [:out, T_UINT32], [:out, T_UINT32]]
+          function :hot_plug_cpu, nil, [T_UINT32]
+          function :hot_unplug_cpu, nil, [T_UINT32]
+          function :get_cpu_status, T_BOOL, [T_UINT32]
+          function :query_log_filename, WSTRING, [T_UINT32]
+          function :read_log, [T_UINT8], [T_UINT32, T_UINT64, T_UINT64]
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/machine_state.rb

@@ -0,0 +1,14 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class MachineState < AbstractEnum
+          map [:null, :powered_off, :saved, :teleported, :aborted, :running, :paused, :stuck,
+                :teleporting, :live_snapshotting, :starting, :stopping, :saving, :restoring,
+                :teleporting_paused_vm, :teleporting_in, :restoring_snapshot, :deleting_snapshot,
+                :setting_up]
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/medium.rb

@@ -0,0 +1,53 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class Medium < AbstractInterface
+          IID = "aa8167ba-df72-4738-b740-9b84377ba9f1"
+
+          property :id, WSTRING, :readonly => true
+          property :description, WSTRING
+          property :state, :MediumState, :readonly => true
+          property :variant, T_UINT64, :readonly => true
+          property :location, WSTRING
+          property :name, WSTRING, :readonly => true
+          property :device_type, :DeviceType, :readonly => true
+          property :host_drive, T_BOOL, :readonly => true
+          property :size, T_UINT64, :readonly => true
+          property :format, WSTRING, :readonly => true
+          property :medium_format, :MediumFormat, :readonly => true
+          property :type, :MediumType
+          property :parent, :Medium, :readonly => true
+          property :children, [:Medium], :readonly => true
+          property :base, :Medium, :readonly => true
+          property :read_only, T_BOOL, :readonly => true
+          property :logical_size, T_UINT64, :readonly => true
+          property :auto_reset, T_BOOL
+          property :last_access_error, WSTRING, :readonly => true
+          property :machine_ids, [WSTRING], :readonly => true
+
+          function :set_ids, nil, [T_BOOL, WSTRING, T_BOOL, WSTRING]
+          function :refresh_state, :MediumState, []
+          function :get_snapshot_ids, [WSTRING], [WSTRING]
+          function :lock_read, :MediumState, []
+          function :unlock_read, :MediumState, []
+          function :lock_write, :MediumState, []
+          function :unlock_write, :MediumState, []
+          function :close, nil, []
+          function :get_property, WSTRING, [WSTRING]
+          function :set_property, nil, [WSTRING, WSTRING]
+          function :get_properties, [WSTRING], [WSTRING, [:out, [WSTRING]]]
+          function :set_properties, nil, [[WSTRING], [WSTRING]]
+          function :create_base_storage, :Progress, [T_UINT64, :MediumVariant]
+          function :delete_storage, :Progress, []
+          function :create_diff_storage, :Progress, [:Medium, :MediumVariant]
+          function :merge_to, :Progress, [:Medium]
+          function :clone_to, :Progress, [:Medium, :MediumVariant, :Medium]
+          function :compact, :Progress, []
+          function :resize, :Progress, [T_UINT64]
+          function :reset, :Progress, []
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/medium_attachment.rb

@@ -0,0 +1,18 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class MediumAttachment < AbstractInterface
+          IID = "e58eb3eb-8627-428b-bdf8-34487c848de5"
+
+          property :medium, :Medium, :readonly => true
+          property :controller, WSTRING, :readonly => true
+          property :port, T_INT32, :readonly => true
+          property :device, T_INT32, :readonly => true
+          property :type, :DeviceType, :readonly => true
+          property :passthrough, T_BOOL, :readonly => true
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/medium_format.rb

@@ -0,0 +1,18 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class MediumFormat < AbstractInterface
+          IID = "89f52554-d469-4799-9fad-1705e86a08b1"
+
+          property :id, WSTRING, :readonly => true
+          property :name, WSTRING, :readonly => true
+          property :file_extensions, [WSTRING], :readonly => true
+          property :capabilities, T_UINT32, :readonly => true
+
+          function :describe_properties, nil, [[:out, [WSTRING]], [:out, [WSTRING]], [:out, [:DataType]], [:out, [T_UINT32]], [:out, [WSTRING]]]
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/medium_state.rb

@@ -0,0 +1,11 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class MediumState < AbstractEnum
+          map [:not_created, :created, :locked_read, :locked_write, :inaccessible, :creating, :deleting]
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/medium_type.rb

@@ -0,0 +1,11 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class MediumType < AbstractEnum
+          map [:normal, :immutable, :write_through, :shareable]
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/medium_variant.rb

@@ -0,0 +1,11 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class MediumVariant < AbstractEnum
+          map [:standard, :vmdk_split_2g, :vmdk_stream_optimized, :vmdk_esx, :fixed, :diff]
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/nat_alias_mode.rb

@@ -0,0 +1,11 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class NATAliasMode < AbstractEnum
+          map [:null, :alias_log, :alias_proxy_only, :null, :alias_use_same_ports]
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/nat_engine.rb

@@ -0,0 +1,27 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class NATEngine < AbstractInterface
+          IID = "4b286616-eb03-11de-b0fb-1701eca42246"
+
+          property :network, WSTRING
+          property :host_ip, WSTRING
+          property :tftp_prefix, WSTRING
+          property :tftp_boot_file, WSTRING
+          property :tftp_next_server, WSTRING
+          property :alias_mode, T_UINT32
+          property :dns_pass_domain, T_BOOL
+          property :dns_proxy, T_BOOL
+          property :dns_use_host_resolver, T_BOOL
+          property :redirects, [WSTRING], :readonly => true
+
+          function :set_network_settings, nil, [T_UINT32, T_UINT32, T_UINT32, T_UINT32, T_UINT32]
+          function :get_network_settings, nil, [[:out, T_UINT32], [:out, T_UINT32], [:out, T_UINT32], [:out, T_UINT32], [:out, T_UINT32]]
+          function :add_redirect, nil, [WSTRING, :NATProtocol, WSTRING, T_UINT16, WSTRING, T_UINT16]
+          function :remove_redirect, nil, [WSTRING]
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/nat_protocol.rb

@@ -0,0 +1,11 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class NATProtocol < AbstractEnum
+          map [:udp, :tcp]
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/network_adapter.rb

@@ -0,0 +1,35 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class NetworkAdapter < AbstractInterface
+          IID = "65607a27-2b73-4d43-b4cc-0ba2c817fbde"
+
+          property :adapter_type, :NetworkAdapterType
+          property :slot, T_UINT32, :readonly => true
+          property :enabled, T_BOOL
+          property :mac_address, WSTRING
+          property :attachment_type, :NetworkAttachmentType, :readonly => true
+          property :host_interface, WSTRING
+          property :internal_network, WSTRING
+          property :nat_network, WSTRING
+          property :vde_network, WSTRING
+          property :cable_connected, T_BOOL
+          property :line_speed, T_UINT32
+          property :trace_enabled, T_BOOL
+          property :trace_file, WSTRING
+          property :nat_driver, :NATEngine, :readonly => true
+          property :boot_priority, T_UINT32
+          property :bandwidth_limit, T_UINT32
+
+          function :attach_to_nat, nil, []
+          function :attach_to_bridged_interface, nil, []
+          function :attach_to_internal_network, nil, []
+          function :attach_to_host_only_interface, nil, []
+          function :attach_to_vde, nil, []
+          function :detach, nil, []
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/network_adapter_type.rb

@@ -0,0 +1,11 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class NetworkAdapterType < AbstractEnum
+          map [:null, :Am79C970A, :Am79C973, :I82540EM, :I82543GC, :I82545EM, :Virtio]
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/network_attachment_type.rb

@@ -0,0 +1,11 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class NetworkAttachmentType < AbstractEnum
+          map [:null, :nat, :bridged, :internal, :host_only, :vde]
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/nsiexception.rb

@@ -0,0 +1,23 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class NSIException < AbstractInterface
+          IID = "f3a8d3b4-c424-4edc-8bf6-8974c983ba78"
+
+          property :message, WSTRING, :readonly => true
+          property :result, T_UINT32, :readonly => true
+          property :name, WSTRING, :readonly => true
+          property :filename, WSTRING, :readonly => true
+          property :line_number, T_UINT32, :readonly => true
+          property :column_number, T_UINT32, :readonly => true
+          property :location, :NSIStackFrame, :readonly => true
+          property :inner, :NSIException, :readonly => true
+          property :data, :NSISupports, :readonly => true
+
+          function :to_string, WSTRING, []
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/nsisupports.rb

@@ -0,0 +1,15 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        # This interface is actually only used with the FFI implementer but
+        # is created here to allow easier usage with the FFI abstractions.
+        class NSISupports < AbstractInterface
+          function :QueryInterface, :pointer, [:pointer]
+          function :AddRef, nil, []
+          function :Release, nil, []
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/parallel_port.rb

@@ -0,0 +1,17 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class ParallelPort < AbstractInterface
+          IID = "0c925f06-dd10-4b77-8de8-294d738c3214"
+
+          property :slot, T_UINT32, :readonly => true
+          property :enabled, T_BOOL
+          property :io_base, T_UINT32
+          property :irq, T_UINT32
+          property :path, WSTRING
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/pointing_hid_type.rb

@@ -0,0 +1,11 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class PointingHidType < AbstractEnum
+          map [:null, :none, :ps2_mouse, :usb_mouse, :usb_tablet, :combo_mouse]
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/port_mode.rb

@@ -0,0 +1,11 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class PortMode < AbstractEnum
+          map [:disconnected, :host_pipe, :host_device, :raw_file]
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/progress.rb

@@ -0,0 +1,64 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class Progress < AbstractInterface
+          IID = "856aa038-853f-42e2-acf7-6e7b02dbe294"
+
+          property :id, WSTRING, :readonly => true
+          property :description, WSTRING, :readonly => true
+          property :initiator, :NSISupports, :readonly => true
+          property :cancelable, T_BOOL, :readonly => true
+          property :percent, T_UINT32, :readonly => true
+          property :time_remaining, T_INT32, :readonly => true
+          property :completed, T_BOOL, :readonly => true
+          property :canceled, T_BOOL, :readonly => true
+          property :result_code, T_INT32, :readonly => true
+          property :error_info, :VirtualBoxErrorInfo, :readonly => true
+          property :operation_count, T_UINT32, :readonly => true
+          property :operation, T_UINT32, :readonly => true
+          property :operation_description, WSTRING, :readonly => true
+          property :operation_percent, T_UINT32, :readonly => true
+          property :operation_weight, T_UINT32, :readonly => true
+          property :timeout, T_UINT32
+
+          function :set_current_operation_progress, nil, [T_UINT32]
+          function :set_next_operation, nil, [WSTRING, T_UINT32]
+          function :wait_for_completion, nil, [T_INT32]
+          function :wait_for_operation_completion, nil, [T_UINT32, T_INT32]
+          function :cancel, nil, []
+
+          # This method blocks the execution while the operations represented
+          # by this {Progress} object execute, but yields a block every `x`
+          # percent (interval given in parameters).
+          def wait(interval_percent=1)
+            # If no block is given we just wait until completion, not worrying
+            # about tracking percentages.
+            if !block_given?
+              wait_for_completion(-1)
+              return
+            end
+
+            # Initial value forces the 0% yield
+            last_reported = -100
+
+            while true
+              delta = percent - last_reported
+              last_reported += delta
+              yield self if delta >= interval_percent
+
+              # This either sleeps for half a second or returns on
+              # completion
+              wait_for_completion(500)
+
+              break if completed || canceled
+
+              # Pass off execution so other threads can run
+              Thread.pass
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/serial_port.rb

@@ -0,0 +1,19 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class SerialPort < AbstractInterface
+          IID = "937f6970-5103-4745-b78e-d28dcf1479a8"
+
+          property :slot, T_UINT32, :readonly => true
+          property :enabled, T_BOOL
+          property :io_base, T_UINT32
+          property :irq, T_UINT32
+          property :host_mode, :PortMode
+          property :server, T_BOOL
+          property :path, WSTRING
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/session.rb

@@ -0,0 +1,18 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class Session < AbstractInterface
+          IID_STR = "12F4DCDB-12B2-4EC1-B7CD-DDD9F6C5BF4D"
+
+          property :state, :SessionState, :readonly => true
+          property :type, :SessionType, :readonly => true
+          property :machine, :Machine, :readonly => true
+          property :console, :Console, :readonly => true
+
+          function :unlock_machine, nil, []
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/session_state.rb

@@ -0,0 +1,11 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class SessionState < AbstractEnum
+          map [:null, :closed, :open, :spawning, :closing]
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/session_type.rb

@@ -0,0 +1,11 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class SessionType < AbstractEnum
+          map [:null, :write_lock, :remote, :shared]
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/shared_folder.rb

@@ -0,0 +1,17 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class SharedFolder < AbstractInterface
+          IID = "64637bb2-9e17-471c-b8f3-f8968dd9884e"
+
+          property :name, WSTRING, :readonly => true
+          property :host_path, WSTRING, :readonly => true
+          property :accessible, T_BOOL, :readonly => true
+          property :writable, T_BOOL, :readonly => true
+          property :last_access_error, WSTRING, :readonly => true
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/snapshot.rb

@@ -0,0 +1,20 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class Snapshot < AbstractInterface
+          IID = "1a2d0551-58a4-4107-857e-ef414fc42ffc"
+
+          property :id, WSTRING, :readonly => true
+          property :name, WSTRING
+          property :description, WSTRING
+          property :time_stamp, T_INT64, :readonly => true
+          property :online, T_BOOL, :readonly => true
+          property :machine, :Machine, :readonly => true
+          property :parent, :Snapshot, :readonly => true
+          property :children, [:Snapshot], :readonly => true
+        end
+      end
+    end
+  end
+end

data/lib/virtualbox/com/interface/4.0.x/storage_bus.rb

@@ -0,0 +1,11 @@
+module VirtualBox
+  module COM
+    module Interface
+      module Version_4_0_X
+        class StorageBus < AbstractEnum
+          map [:null, :ide, :sata, :scsi, :floppy, :sas]
+        end
+      end
+    end
+  end
+end