This is an old revision of the document!
@echo off if not "%USERNAME%" == "donna" goto END if "%USERNAME%" == "donna" goto LOGOFF :LOGOFF shutdown /l :END
@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
@echo off \\cfs\public\Data\elemlab_desktops\Wallpaper.exe "\\cfs\public\Data\elemlab_desktops\%USERNAME%.jpg"
rundll32 printui.dll,PrintUIEntry /n "Elem Lab Printer" /y
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