こんにちは。
試しにVBSを作成してみました。
以下をコピーし、拡張子をvbsにして実行してみて下さい。一時間ぐらいで作成したので、エラー処理などは最小限です。予期しない動作をするかもしれませんが、そこまでは確認できていません。
構文は cscript <vbsファイル> <VM> です。
例: Guest OS のコンピュータ名がVM-1 の場合は以下のコマンド
cscript <vbsファイル> VM-1
--------vbsサンプル-------------
option explicit
dim objWMIService
dim managementService
dim fileSystem
dim strVM
Main()
Sub Main()
dim computer, vm , objArgs
set objArgs = WScript.Arguments
if WScript.Arguments.Count = 1 then
strVM = objArgs.Unnamed.Item(0)
else
WScript.Echo "usage: cscript vbs vmName"
WScript.Quit(1)
end if
set fileSystem = Wscript.CreateObject("Scripting.FileSystemObject")
computer = "."
set objWMIService = GetObject("winmgmts:\\" & computer & "\root\virtualization")
set managementService = objWMIService.ExecQuery("select * from Msvm_VirtualSystemManagementService").ItemIndex(0)
set vm = GetComputerSystem(strVM)
RemoveVirtualSystemResources(vm)
End Sub
Function GetComputerSystem(vmElementName)
On Error Resume Next
dim query
query = Format1("select * from Msvm_ComputerSystem where ElementName = '{0}'", vmElementName)
set GetComputerSystem = objWMIService.ExecQuery(query).ItemIndex(0)
if (Err.Number <> 0) then
WScript.Quit(1)
end if
End Function
Function GetDvDSetting(vmSetting)
dim query, DvDsettingsData, DvdData
set GetDvDSetting = Nothing
query = Format1("ASSOCIATORS OF {{0}} WHERE " &_
"resultClass = Msvm_ResourceAllocationSettingData " &_
"AssocClass = Msvm_VirtualSystemSettingDataComponent " &_
"ResultRole = PartComponent " &_
"Role = GroupComponent", vmSetting.Path_.Path)
set DvDsettingsData = objWMIService.ExecQuery(query)
for each DvdData in DvDsettingsData
If DvdData.ResourceSubType = "Microsoft Virtual CD/DVD Disk" Then
set GetDvDSetting = DvdData
exit function
end if
next
End Function
Function RemoveVirtualSystemResources(computerSystem)
dim query, virtualSystemSetting, DvDsettingData
dim resourcesettings, objInParam, objOutParams
RemoveVirtualSystemResources = false
query = Format1("ASSOCIATORS OF {{0}} WHERE resultClass = Msvm_VirtualSystemsettingData", computerSystem.Path_.Path)
set virtualSystemSetting = objWMIService.ExecQuery(query).ItemIndex(0)
WScript.Echo "ElementName: " & virtualSystemSetting.ElementName
set DvDsettingData = GetDVDSetting(virtualSystemSetting)
if (DvDsettingData Is Nothing) then
WScript.Echo "DVD is not mounted "
exit function
end if
resourcesettings = Array(1)
resourcesettings(0) = DvDsettingData.Path_.Path
set objInParam = managementService.Methods_("RemoveVirtualSystemResources").InParameters.SpawnInstance_()'
objInParam.TargetSystem = computerSystem.Path_.Path
objInParam.ResourcesettingData = resourcesettings
set objOutParams = managementService.ExecMethod_("RemoveVirtualSystemResources", objInParam)
WScript.Echo "Unmount Success "
End Function
Function Format1(myString, arg0)
Format1 = Replace(myString, "{0}", arg0)
End Function
