VBS挂载VHD文件脚本

Hyper-V的磁盘文件是VHD文件，如果我想直接浏览这文件中的内容怎么办，以前的做法是打开一台VPS的设置，添加硬盘，选择这块硬盘，再进入系统中设置个盘符就能看到。
其实没那么麻烦，直接用命令就可以在我的电脑中挂载VHD虚拟硬盘文件，以下脚本在win2008上通过：

将以下脚本另存为vhdmount.vbs，然后在DOS下运行：cscript d:\vhdmount.vbs d:\diske.vhd

1. Option Explicit
   
2. Dim objWMIService, objVHDService, strComputer, strVHDFile
   
3. strComputer ="."
   
4. ' Check all arguments required have been passed
   
5. If Wscript.Arguments.Count < 1 Then
   
6.   Wscript.Echo "Arguments <VHD File> required. For example:" & vbCrLf & "cscript vhdmount.vbs disk.vhd"
   
7.   Wscript.Quit(0)
   
8. End If
   
9. strVHDFile = Wscript.Arguments(0)
   
10. Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\virtualization")
    
11. Set objVHDService = objWMIService.ExecQuery("SELECT * FROM Msvm_ImageManagementService").ItemIndex(0)
    
12. objVHDService.Mount(strVHDFile)
    
13. 
    
14. 现在您打开我的电脑，还不能看到盘的，右击我的电脑，管理，磁盘管理，就能看到多了
    

复制代码

现在您打开我的电脑，还不能看到盘的，右击我的电脑，管理，磁盘管理，就能看到多了个磁盘1，然后右击区块设置盘符。用完了要删掉还得用脚本才行。
将以下脚本另存为vhdunmount.vbs，然后在DOS下运行：cscript d:\vhdunmount.vbs d:\diske.vhd 就能取消挂载

1. Option Explicit
   
2. Dim objWMIService, objVHDService, strComputer, strVHDFile
   
3. strComputer ="."
   
4. ' Check all arguments required have been passed
   
5. If Wscript.Arguments.Count < 1 Then
   
6.   Wscript.Echo "Arguments <VHD File> required. For example:" & vbCrLf & "cscript vhdmount.vbs disk.vhd"
   
7.   Wscript.Quit(0)
   
8. End If
   
9. strVHDFile = Wscript.Arguments(0)
   
10. Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\virtualization")
    
11. Set objVHDService = objWMIService.ExecQuery("SELECT * FROM Msvm_ImageManagementService").ItemIndex(0)
    
12. objVHDService.Unmount(strVHDFile)

复制代码