Msvm_ImageManagementService クラスの CreateVirtualFloppyDisk メソッド
仮想フロッピー ディスク ファイルを作成します。
構文
uint32 CreateVirtualFloppyDisk(
[in] string Path,
[out] CIM_ConcreteJob REF Job
);
パラメーター
-
パス [入力]
-
型: string
新しいファイルの場所を指定する完全修飾パス。
-
ジョブ [出力]
-
種類: CIM_ConcreteJob
ジョブへの参照 (タスクが完了した場合は Null を指定できます)。
戻り値
型: uint32
このメソッドは、次のいずれかの値を返すことができます。
-
エラーなしで完了 しました (0)
-
チェックされたメソッド パラメーター - ジョブの開始 (4096)
-
失敗 ( 32768)
-
アクセスが拒否されました (32769)
-
サポートされていません (32770)
-
状態が不明 (32771)
-
タイムアウト (32772)
-
無効なパラメーター (32773)
-
システムが使用中 (32774)
-
この操作の無効な状態 (32775)
-
正しくないデータ型 (32776)
-
システムを使用できません (32777)
-
メモリ不足 (32778)
-
ファイルが見つかりません (32779)
解説
MSVM_IMAGEMANAGEMENTSERVICE クラスへのアクセスは、UAC フィルター処理によって制限される場合があります。 詳細については、「 ユーザー アカウント制御と WMI」を参照してください。
例
次の C# の例では、仮想フロッピー ディスク ファイルを作成します。 参照されるユーティリティについては、「 仮想化サンプルの一般的なユーティリティ (V2)」を参照してください。
using System;
using System.Management;
namespace HyperVSamples
{
class CreateVFD
{
static void CreateVirtualFlopy(string vhdPath)
{
ManagementScope scope = new ManagementScope(@"root\virtualization\v2", null);
ManagementObject imageService = Utility.GetServiceObject(scope, "Msvm_ImageManagementService");
ManagementBaseObject inParams = imageService.GetMethodParameters("CreateVirtualFloppyDisk");
inParams["Path"] = vhdPath;
ManagementBaseObject outParams = imageService.InvokeMethod("CreateVirtualFloppyDisk", inParams, null);
if ((UInt32)outParams["ReturnValue"] == ReturnCode.Started)
{
if (Utility.JobCompleted(outParams, scope))
{
Console.WriteLine("{0} was created successfully.", inParams["Path"]);
}
else
{
Console.WriteLine("Unable to create {0}", inParams["Path"]);
}
}
inParams.Dispose();
outParams.Dispose();
imageService.Dispose();
}
static void Main(string[] args)
{
if (args != null && args.Length != 1)
{
Console.WriteLine("Usage: CreateVFD path");
return;
}
CreateVirtualFlopy(args[0]);
}
}
}
次の Visual Basic Scripting Edition (VBScript) の例では、仮想フロッピー ディスク ファイルを作成します。
option explicit
dim objWMIService
dim managementService
dim fileSystem
const JobStarting = 3
const JobRunning = 4
const JobCompleted = 7
const wmiStarted = 4096
const method = "CreateVirtualFloppyDisk"
Main()
'-----------------------------------------------------------------
' Main
'-----------------------------------------------------------------
Sub Main()
dim computer, objArgs, vfdPath
set fileSystem = Wscript.CreateObject("Scripting.FileSystemObject")
computer = "."
set objWMIService = GetObject("winmgmts:\\" & computer & "\root\virtualization\v2")
set managementService = objWMIService.ExecQuery("Select * from Msvm_ImageManagementService").ItemIndex(0)
set objArgs = WScript.Arguments
if WScript.Arguments.Count = 1 then
vfdPath = objArgs.Unnamed.Item(0)
else
WScript.Echo "usage: cscript CreateVFD.vbs VFDFilePath "
WScript.Quit(1)
end if
if CreateVirtualFloppyDisk(vfdPath) then
WriteLog "Done"
WScript.Quit(0)
else
WriteLog "CreateVFD failed"
WScript.Quit(1)
end if
End Sub
'-----------------------------------------------------------------
' Execute CreateVirtualFloppyDisk method
'-----------------------------------------------------------------
Function CreateVirtualFloppyDisk(vfdPath)
WriteLog Format1("Function CreateVirtualFloppyDisk({0})", vfdPath)
dim objInParam, objOutParams
CreateVirtualFloppyDisk = false
set objInParam = managementService.Methods_("CreateVirtualFloppyDisk").InParameters.SpawnInstance_()
objInParam.Path = vfdPath
set objOutParams = managementService.ExecMethod_("CreateVirtualFloppyDisk", objInParam)
if (WMIMethodStarted(objOutParams)) then
if (WMIJobCompleted(objOutParams)) then
WriteLog Format1("VHD {0} was created successfully", vfdPath)
CreateVirtualFloppyDisk = true
end if
end if
End Function
'-----------------------------------------------------------------
' Handle wmi return values
'-----------------------------------------------------------------
Function WMIMethodStarted(outParam)
WriteLog "Function WMIMethodStarted"
dim wmiStatus
WMIMethodStarted = false
if Not IsNull(outParam) then
wmiStatus = outParam.ReturnValue
if wmiStatus = wmiStarted then
WMIMethodStarted = true
else
WriteLog Format2("Failed to create VFD {0} ConcreteJob with error {1}", vfdPath, wmiStatus)
end if
end if
End Function
'-----------------------------------------------------------------
' Handle wmi Job object
'-----------------------------------------------------------------
Function WMIJobCompleted(outParam)
WriteLog "Function WMIJobCompleted"
dim WMIJob, jobState
set WMIJob = objWMIService.Get(outParam.Job)
WMIJobCompleted = true
jobState = WMIJob.JobState
while jobState = JobRunning or jobState = JobStarting
WriteLog Format1("In progress... {0}% completed.",WMIJob.PercentComplete)
WScript.Sleep(1000)
set WMIJob = objWMIService.Get(outParam.Job)
jobState = WMIJob.JobState
wend
if (jobState <> JobCompleted) then
WriteLog Format1("ErrorCode:{0}", WMIJob.ErrorCode)
WriteLog Format1("ErrorDescription:{0}", WMIJob.ErrorDescription)
WMIJobCompleted = false
end if
End Function
'-----------------------------------------------------------------
' Create the console log files.
'-----------------------------------------------------------------
Sub WriteLog(line)
dim fileStream
set fileStream = fileSystem.OpenTextFile(".\CreateVFD.log", 8, true)
WScript.Echo line
fileStream.WriteLine line
fileStream.Close
End Sub
'------------------------------------------------------------------------------
' The string formatting functions to avoid string concatenation.
'------------------------------------------------------------------------------
Function Format2(myString, arg0, arg1)
Format2 = Format1(myString, arg0)
Format2 = Replace(Format2, "{1}", arg1)
End Function
'------------------------------------------------------------------------------
' The string formatting functions to avoid string concatenation.
'------------------------------------------------------------------------------
Function Format1(myString, arg0)
Format1 = Replace(myString, "{0}", arg0)
End Function
必要条件
| 要件 | 値 |
|---|---|
| サポートされている最小のクライアント |
Windows 8 [デスクトップ アプリのみ] |
| サポートされている最小のサーバー |
Windows Server 2012 [デスクトップ アプリのみ] |
| 名前空間 |
Root\Virtualization\V2 |
| MOF |
|
| [DLL] |
|