From f215e02bf85f68d3a6106c2a1f4f7f063f819064 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Thu, 11 Apr 2024 10:17:27 +0200 Subject: Adding upstream version 7.0.14-dfsg. Signed-off-by: Daniel Baumann --- src/VBox/Frontends/VBoxShell/vboxinfo.vbs | 72 +++++++++++++++++++++++++++++++ 1 file changed, 72 insertions(+) create mode 100644 src/VBox/Frontends/VBoxShell/vboxinfo.vbs (limited to 'src/VBox/Frontends/VBoxShell/vboxinfo.vbs') diff --git a/src/VBox/Frontends/VBoxShell/vboxinfo.vbs b/src/VBox/Frontends/VBoxShell/vboxinfo.vbs new file mode 100644 index 00000000..c0b1d5eb --- /dev/null +++ b/src/VBox/Frontends/VBoxShell/vboxinfo.vbs @@ -0,0 +1,72 @@ +' $Id: vboxinfo.vbs $ +'' @file +' ??? +' + +' +' Copyright (C) 2009-2023 Oracle and/or its affiliates. +' +' This file is part of VirtualBox base platform packages, as +' available from https://www.virtualbox.org. +' +' This program is free software; you can redistribute it and/or +' modify it under the terms of the GNU General Public License +' as published by the Free Software Foundation, in version 3 of the +' License. +' +' This program is distributed in the hope that it will be useful, but +' WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +' General Public License for more details. +' +' You should have received a copy of the GNU General Public License +' along with this program; if not, see . +' +' SPDX-License-Identifier: GPL-3.0-only +' + +Sub Print(str) + Wscript.Echo str +End Sub + +Sub StartVm(vb, mach) + Dim session, progress + + Set session = CreateObject("VirtualBox.Session") + Set progress = vb.openRemoteSession(session, mach.id, "gui", "") + progress.waitForCompletion(-1) + session.close() +End Sub + + +Sub StopVm(vb, mach) + Dim session, progress + + Set session = CreateObject("VirtualBox.Session") + vb.openExistingSession session, mach.id + session.console.powerDown().waitForCompletion(-1) + session.close() +End Sub + + +Sub Main + Dim vb, mach + + set vb = CreateObject("VirtualBox.VirtualBox") + Print "VirtualBox version " & vb.version + + ' Safe arrays not fully functional from Visual Basic Script, as we + ' return real safe arrays, not ones wrapped to VARIANT and VBS engine + ' gets confused. Until then, explicitly find VM by name. + ' May wish to use hack like one described in + ' http://www.tech-archive.net/Archive/Excel/microsoft.public.excel.programming/2006-05/msg02796.html to handle safearrays + ' if desperate + + Set mach = vb.findMachine("Win") + Print "Machine: " & mach.name & " ID: " & mach.id + + StartVm vb, mach +End Sub + +Main + -- cgit v1.2.3