On Error Resume Next
Set SH = CreateObject("WScript.Shell")
Set objNet = CreateObject("WScript.NetWork")
Set filesys = CreateObject("Scripting.FileSystemObject")
set user = string

usrName = objNet.UserName

user = left(usrName,8)

'Check to see if the desktop shortcut exists
DesktopPath = SH.SpecialFolders("Desktop")
Set f = filesys.GetFolder(DesktopPath & "\")
Set fc = f.Files
'scanchk = filesys.FileExists(f & "\OH&S.lnk")


'If Not scanchk Then
    filesys.DeleteFile 	DesktopPath & "\OH&S.lnk"
    Set link = SH.CreateShortcut(DesktopPath & "\OH&S.lnk")
    link.Arguments = ""
    link.Description = "SAFETY MANUAL"
    link.HotKey = ""
    link.TargetPath = "S:\Safety\Manuals\Sask OH&S.pdf"

    link.WindowStyle = 3
    link.WorkingDirectory = "S:\Safety\Manuals\Sask OH&S.pdf"
    link.Save
'End If