Sep 05

I never could find a good script to check to see if a Macromedia Contribute key had been installed for a user on a machine, and if not then to run the key. So I made one. This one is for Contribute 2, but I think it will work with 3 (if you change the Site folder to 3). And it assumes that the user will only be running one Site. I make the Contribute Icon/Shortcut point to this script.

You will need to change “h:\key.stc” to the location of your key. You will need to save the following script as a .vbs

Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objNetwork = WScript.CreateObject(“WScript.Network”)
strUserName = objNetwork.UserName
If objFSO.FileExists(“C:\Documents and Settings\” & strUserName & “\Local Settings\Application Data\Macromedia\Contribute 2\Sites\Site1\_mm\contribute.xml”) Then
Set wshShell = WScript.CreateObject (“WSCript.shell”)
wshshell.run “””C:\Program Files\Macromedia\Contribute 2\Contribute.exe”””, 6, True
set wshshell = nothing
Wscript.Quit
Else
Wscript.Echo “Your Contribute Key needs to be installed on this computer. Click OK to begin.”
Set wshShell = WScript.CreateObject (“WSCript.shell”)
wshshell.run “h:\key.stc”, 6, True
set wshshell = nothing
End If

References:
1) http://www.microsoft.com/technet/scriptcenter/resources/qanda/jun05/hey0620.mspx
2) http://weblogs.asp.net/steveschofield/archive/2004/03/14/89240.aspx
3) http://www.computerperformance.co.uk/Logon/Logon_HomeDirAdv.htm

Share

Leave a Reply