ISD 820 Knowledge Base

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
====== Elem Lab Scripts ======

===== Auto Logout Script =====

<file dos donnaHS.cmd>
@echo off


if not "%USERNAME%" == "donna" goto END
if "%USERNAME%" == "donna" goto LOGOFF

:LOGOFF
shutdown /l

:END
</file>

===== Clean Chrome Profile =====

<file dos cleanchromeprofile.cmd>
@echo off


if "%USERNAME%" == "e1" goto clean
if "%USERNAME%" == "e2" goto clean
if "%USERNAME%" == "e3" goto clean
if "%USERNAME%" == "e4" goto clean
if "%USERNAME%" == "e5" goto clean

:exit
exit

:clean
rmdir /S /Q %USERPROFILE%\AppData\Local\Google

</file>

===== Set Desktop Wallpaper =====

<file dos elemlab.cmd>
@echo off


\\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>
ISD 820 Knowledge Base

User Tools

Site Tools

Page Tools
