Dim objSmartWIM

Set objSmartWIM = WScript.CreateObject("SmartWIM")

objSmartWIM.File = wscript.Arguments.Item(0)

objSmartWIM.Image = wscript.Arguments.Item(1)

CustomData = objSmartWIM.GetImageCustomData()

CustomData = Replace(CustomData, "<DISK NUMBER=" + CHR(34) + "0", "<DISK NUMBER=" + CHR(34) + "1")

ResultCode = objSmartWIM.SetImageCustomData(CustomData)

WScript.Echo objSmartWIM.GetErrorDescription(ResultCode)

Set objSmartWIM = Nothing