windows:elemlab_scripts
Elem Lab Scripts
Auto Logout Script
Clean Chrome Profile
Set Desktop Wallpaper
- elemlab.cmd
@echo off
\\cfs\public\Data\elemlab_desktops\Wallpaper.exe "\\cfs\public\Data\elemlab_desktops\%USERNAME%.jpg"
- default_printer.cmd
rundll32 printui.dll,PrintUIEntry /n "Elem Lab Printer" /y
Pin Icons to Taskbar
- pin_to_taskbar.vbs
Dim arrOfficeArray (4)
Dim arrChromeArray (1)
Dim arrAccessoriesArray (1)
Dim i
'Declare constants
Const CSIDL_COMMON_PROGRAMS = &H17
Const CSIDL_PROGRAMS = &H2
'Initialize variables
arrOfficeArray(0) = "Microsoft Office Word 2007.lnk"
arrChromeArray (0) = "Google Chrome.lnk"
arrAccessoriesArray (0) = "Windows Explorer.lnk"
'Pin to taskbar - Outlook, Word, Excel, PowerPoint, OneNote, OCS
Set objShell = CreateObject("Shell.Application")
Set objAllUsersProgramsFolder = objShell.NameSpace(CSIDL_COMMON_PROGRAMS)
strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.Path
Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Microsoft Office")
For i = 0 To 0
Set objFolderItem = objFolder.ParseName(arrOfficeArray(i))
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
Next
Next
Set objShell = CreateObject("Shell.Application")
Set objAllUsersProgramsFolder = objShell.NameSpace(CSIDL_COMMON_PROGRAMS)
strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.Path
Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Google Chrome")
For i = 0 To 0
Set objFolderItem = objFolder.ParseName(arrChromeArray(i))
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
Next
Next
Copy Shortcuts to Taskbar Icon location
- taskbaricons.cmd
@echo off
P:
cd P:\Data\elemlab_desktops\taskbar
mkdir "%USERPROFILE%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar"
copy /y *.* "%USERPROFILE%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar"
Desktop Shortcuts
- educationcity.com
C:\Windows\System32\cmd.exe /q /c taskkill /f /IM chrome.exe & "C:\Program Files\Google\Chrome\Application\chrome.exe" https://us.educationcity.com/autologin/?t=MjA4MDg2fG1uMjV8YjQ2ZGYwYzJjMzhhNjQyZDM0NTczNzFjNzU2ZmNhMDg=
- Accelerated Reader
"C:\Program Files\Mozilla Firefox\firefox.exe" https://hosted138.renlearn.com/372112/
- Academy_of_Math
C:\Windows\System32\cmd.exe /q /c taskkill /f /IM chrome.exe & "C:\Program Files\Google\Chrome\Application\chrome.exe" "http://academyserver.sebeka.k12.mn.us/academy/academyofmath.do"
- Academy_of_Reading
C:\Windows\System32\cmd.exe /q /c taskkill /f /IM chrome.exe & "C:\Program Files\Google\Chrome\Application\chrome.exe" "http://academyserver.sebeka.k12.mn.us/academy/academyofreading.do"
windows/elemlab_scripts.txt · Last modified: 2014/04/11 11:17 by tschulz