User Tools

Site Tools


windows:elemlab_scripts

This is an old revision of the document!


Elem Lab Scripts

Auto Logout Script

donnaHS.cmd
@echo off
 
 
if not "%USERNAME%" == "donna" goto END
if "%USERNAME%" == "donna" goto LOGOFF
 
:LOGOFF
shutdown /l
 
:END

Clean Chrome Profile

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

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"
windows/elemlab_scripts.1397153981.txt.gz · Last modified: 2014/04/10 13:19 by tschulz