' Windows Script Host Sample Script, adjusted by Repco Limited.
'
' ------------------------------------------------------------------------
'               Copyright (C) 1996-1997 Microsoft Corporation
'
' You have a royalty-free right to use, modify, reproduce and distribute
' the Sample Application Files (and/or any modified version) in any way
' you find useful, provided that you agree that Microsoft has no warranty,
' obligations or liability for any Sample Application Files.
' ------------------------------------------------------------------------


' This sample demonstrates how to use the WSHShell object to create a shortcut
' on the desktop.

L_Welcome_MsgBox_Message_Text   = "This script will create a shortcut to the Repco Online website on your desktop."
L_Welcome_MsgBox_Title_Text     = "Team Repco"
Call Welcome()

' ********************************************************************************
' *
' * Shortcut related methods.
' *

Dim WSHShell
Dim oUrlLink, strDesktop

Set WSHShell = WScript.CreateObject("WScript.Shell")

' Read desktop path using WshSpecialFolders object
strDesktop = WshShell.SpecialFolders("Desktop")

' Create a shortcut object on the desktop
set oUrlLink = WshShell.CreateShortcut(strDesktop & "\Repco Online Website.url")

' Set shortcut object properties and save it
oUrlLink.TargetPath = "https://repw2h.repco.com.au/acegui.html"
oUrlLink.Save




WScript.Echo "A shortcut to Repco Online now exists on your Desktop."

' ********************************************************************************
' *
' * Welcome
' *
Sub Welcome()
    Dim intDoIt

    intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text,    _
                      vbOKCancel + vbInformation,       _
                      L_Welcome_MsgBox_Title_Text )
    If intDoIt = vbCancel Then
        WScript.Quit
    End If
End Sub