Script function that creates a GUID

[Zweitze]

My build creates Windows Installer (MSI) packages. These packages should upgrade each other, therefore I have to change the PackageCode and ProductCode properties at every build. Both properties are GUIDs. An example script is (InstallShield for Windows Installer 1.52):

Dim Iswi
Set Iswi = CreateObject("ISWiAutomation.ISWiProject")
Iswi.OpenProject "%ISMFILE%"
Iswi.ProductCode = CreateGuid
Iswi.PackageCode = CreateGuid
Iswi.ProductVersion = "%NEWMSIVERSION%"
Iswi.CloseProject

The CreateGuid function should create a new GUID. I got it working in the end, by running UUIDGEN.EXE, but in my opinion this could have much been easier.

[kinook]

Replace CreateGuid with

CreateObject("Scriptlet.Typelib").Guid

From:
http://groups.google.com/groups?hl=e...3DN%26tab%3Dwg

Found via this search:
http://groups.google.com/groups?q=vb...-8&sa=N&tab=wg

[Zweitze]

I didn't know that object... Thanks a lot!