om@2: Option Explicit
om@2: 
om@2: ' ------------------------------------------------------------
om@2: ' start the VMs in the background and mount "network" shares
om@2: '
om@2: ' Autor: Oliver Maurhart, <oliver.maurhart@ait.ac.at>
om@2: '
om@2: ' Copyright (C) 2013 AIT Austrian Institute of Technology
om@2: ' AIT Austrian Institute of Technology GmbH
om@2: ' Donau-City-Strasse 1 | 1220 Vienna | Austria
om@2: ' http://www.ait.ac.at
om@2: ' ------------------------------------------------------------
om@2: 
om@2: Dim cShell
om@2: Dim nError
om@2: 
om@2: ' get the Windows Scripting Host Shell
om@2: Set cShell = CreateObject("WScript.Shell")
om@2:  
om@2: ' Start the VM
om@2: cShell.Run """C:\\Program Files\\Oracle\\VirtualBox\\VBoxManage.exe"" startvm ""Debian 7"" --type headless", 0, True
om@2: 
om@2: ' Mount the VM Internal "Downloads" folder
om@2: Do 
om@2: 	nError = cShell.Run("net view \\192.168.56.15", 0, True)
om@2: 	If nError <> 0 Then
om@2: 		WScript.Sleep 100
om@2: 	End If
om@2: Loop While nError <> 0
om@2: nError = cShell.Run("net use Z: \\192.168.56.15\Downloads", 0, True)