1 files changed, 13 insertions, 0 deletions
diff --git a/src/hvinfo.adb b/src/hvinfo.adb
new file mode 100644
index 0000000..e87507e
--- /dev/null
+++ b/src/hvinfo.adb
@@ -0,0 +1,13 @@
+with Interfaces; use Interfaces;
+with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
+with Ada.Text_IO; use Ada.Text_IO;
+
+with Hypervisor_Check; use Hypervisor_Check;
+
+procedure HVInfo is
+begin
+
+    Put_Line (To_String (Get_Vendor_String));
+
+end HVInfo;
+