' Create a Floppy Image
On Error Resume Next
Const vmFloppyDiskImage_HighDensity = 2
Set objVS = CreateObject("VirtualServer.Application")
errReturn = objVS.CreateFloppyDiskImage _
("C:\Virtual Machines\Images\\Test.vfd", vmFloppyDiskImage_HighDensity)