Option ExplicitDim objShell, objDesktop, objLink, WshShell, WshSysEnv
Dim strApp, strAppProfile, strWorkDir, strIconPath, strUserHome, strHomeDrive, strTorFolder
Dim filesys, torcf
'create firefox shortcut
set filesys = CreateObject ("Scripting.FileSystemObject")
strWorkDir = filesys.GetAbsolutePathName(".")
strApp = strWorkDir & "\firefox.exe"
strAppProfile = " -profile " & Chr(34) & strWorkDir & "\defaults\profile" & Chr(34)
strIconPath = strApp & ", 2"
Set objShell = CreateObject("WScript.Shell")
objDesktop = objShell.SpecialFolders("Desktop")
Set objLink = objShell.CreateShortcut(objDesktop & "\Mozilla Firefox.lnk")
objLink.TargetPath = strApp
objLink.Arguments = strAppProfile
objLink.IconLocation = strIconPath
objLink.WorkingDirectory = strWorkDir
objLink.Description = "Mozilla Firefox Customized"
objLink.HotKey = ""
objLink.WindowStyle = 1
objLink.Save
WScript.Quit