29 lines
811 B
Plaintext
29 lines
811 B
Plaintext
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 |