Set m_ISWiProject = CreateObject("IswiAuto16.ISWiProject") 

 
tmpstr = Wscript.Arguments(0)
a=Split(tmpstr,".ism")
strFile = a(0) & ".ism"  

 

m_ISWiProject.OpenProject strFile 

 

MyNewGuid = m_ISWiProject.GenerateGUID

 

m_ISWiProject.PackageCode = MyNewGuid 

 

MyNewGuid = m_ISWiProject.GenerateGUID

 

 

 

m_ISWiProject.ProductCode = MyNewGuid 

 

m_ISWiProject.SaveProject

 

m_ISWiProject.CloseProject

