Option Explicit

 ' ------------------------------------------------------------

 ' start the VMs in the background and mount "network" shares

 '

 ' Autor: Oliver Maurhart, <oliver.maurhart@ait.ac.at>

 '

 ' Copyright (C) 2013 AIT Austrian Institute of Technology

 ' AIT Austrian Institute of Technology GmbH

 ' Donau-City-Strasse 1 | 1220 Vienna | Austria

 ' http://www.ait.ac.at

 ' ------------------------------------------------------------

 Dim cShell

 Dim nError

 ' get the Windows Scripting Host Shell

 Set cShell = CreateObject("WScript.Shell")

 ' Start the VM

 cShell.Run """C:\\Program Files\\Oracle\\VirtualBox\\VBoxManage.exe"" startvm ""Debian 7"" --type headless", 0, True

 ' Mount the VM Internal "Downloads" folder

 Do 

 	nError = cShell.Run("net view \\192.168.56.15", 0, True)

 	If nError <> 0 Then

 		WScript.Sleep 100

 	End If

 Loop While nError <> 0

 nError = cShell.Run("net use Z: \\192.168.56.15\Downloads", 0, True)