newlun.vbs

SCSI 的虚拟磁盘驱动 需要 windows DDK 很易懂的 DDK 文件结构

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