newlun.vbs

来自「SCSI 的虚拟磁盘驱动 需要 windows DDK 很易懂的 DDK 文件结」· VBS 代码 · 共 13 行

Set Args = WScript.Arguments
If Args.Count = 0 Then
    WScript.Echo "USAGE: NEWLUN FileName SizeMegs"
    WScript.Quit(1)
End If
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemService = objSWbemLocator.ConnectServer(, "root\wmi")
Set colAdapters = objSWbemService.Get("VDISKMP_Adapter").Instances_
For Each Adapter in colAdapters
    Adapter.CreateDisk Args(0), Args(1)
    Exit For
Next