User Tools

Site Tools


windows:elemlab_scripts

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Next revision
Previous revision
windows:elemlab_scripts [2014/04/10 13:14]
tschulz created
windows:elemlab_scripts [2014/04/11 11:17] (current)
tschulz [Desktop Shortcuts]
Line 1: Line 1:
 ====== Elem Lab Scripts ====== ====== Elem Lab Scripts ======
 +
 +===== Auto Logout Script =====
  
 <file dos donnaHS.cmd>​ <file dos donnaHS.cmd>​
Line 13: Line 15:
 :END :END
 </​file>​ </​file>​
 +
 +===== Clean Chrome Profile =====
  
 <file dos cleanchromeprofile.cmd>​ <file dos cleanchromeprofile.cmd>​
Line 31: Line 35:
  
 </​file>​ </​file>​
 +
 +===== Set Desktop Wallpaper =====
  
 <file dos elemlab.cmd>​ <file dos elemlab.cmd>​
Line 38: Line 44:
 \\cfs\public\Data\elemlab_desktops\Wallpaper.exe "​\\cfs\public\Data\elemlab_desktops\%USERNAME%.jpg"​ \\cfs\public\Data\elemlab_desktops\Wallpaper.exe "​\\cfs\public\Data\elemlab_desktops\%USERNAME%.jpg"​
  
 +</​file>​
 +
 +<file dos default_printer.cmd>​
 +rundll32 printui.dll,​PrintUIEntry /n "Elem Lab Printer"​ /y
 +</​file>​
 +
 +===== Pin Icons to Taskbar =====
 +
 +<file vb 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
 +
 +</​file>​
 +
 +===== Copy Shortcuts to Taskbar Icon location =====
 +
 +<file dos 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"​
 +</​file>​
 +
 +===== Desktop Shortcuts =====
 +<file dos 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=
 +</​file>​
 +
 +<file dos Accelerated Reader>
 +"​C:​\Program Files\Mozilla Firefox\firefox.exe"​ https://​hosted138.renlearn.com/​372112/​
 +</​file>​
 +
 +<file dos 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"​
 +</​file>​
 +
 +<file dos 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"​
 </​file>​ </​file>​
windows/elemlab_scripts.1397153691.txt.gz · Last modified: 2014/04/10 13:14 by tschulz