ZenMojo.com

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://www.microsoft.com/technet/scriptcenter/resources/qanda/jun05/hey0620.mspx
2) http://www.computerperformance.co.uk/Logon/Logon_HomeDirAdv.htm

Popularity: 37% [?]

http://www.google.com.my/intl/en/help/cheatsheet.html

Popularity: 10% [?]

http://home.snafu.de/tilman/xenulink.html

Popularity: 9% [?]

Credit reporting agencies:
• Equifax
P.O. Box 105069
Atlanta, Ga 30348
To report fraud: Call 800-525-6285 and write to address above
To order credit report: 800-685-1111
(free copies only obtained by mail)

• Experian (formerly TRW)
P. O. Box 9532, Allen, TX 75013
To report fraud: Call 888-397-3742 and write to address above.
Fax: 800-301-7196
To order credit report: 866-200-6020
(free copies only obtained by mail)

• Transunion
P.O. Box 6790
Fullerton, Ca. 92834
To report fraud: 800-680-7289 and write to address above.
To order credit report: 800-888-4213
(free copies only obtained by mail)

Popularity: 7% [?]