Startup script for configuring a workstation

 

@echo off

ping -n 100 127.0.0.1>nul

if not exist H: net use H: \\Shared_Driver /Persistent:Yes

del "C:\ie\Favorites\Links\Web Slice Gallery.url" /q /f /a

rd "C:\ie\Favorites\Microsoft Websites" /s /q

rd "C:\ie\Favorites\Windows Live" /s /q

rd "C:\ie\Favorites\MSN Websites" /s /q

wmic process where name="someprocess.exe" call terminate

ping -n 50 127.0.0.1>nul

wmic process where name="someprocess.exe" call terminate

reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3" /v 2500 /t REG_DWORD /d 0 /f

 

@rem reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v Wallpaper /d "C:\Documents and Settings\Kevin\Local Settings\Application Data\Microsoft\Wallpaper1.bmp" /f

reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v  ProxyServer /t reg_sz /d proxy_url /f

@rem reg add "HKEY_CURRENT_USER\Keyboard Layout\Toggle" /v HotKey /t reg_sz /d 2 /f

gpupdate /force

RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters

 

 

set ws = WScript.CreateObject("WScript.Shell")

ws.Run ".\config.bat /start",0

ws.run "unpin.vbs C:\Users\Kevin\AppData\Roaming\Microsoft\Intern~1\QUICKL~1\USERPI~1\TaskBar\Intern~1.lnk",0

 

VB Script to unpin icon from Taskbar (copy below and name to unpin.vbs):

 

Set objShell = CreateObject("Shell.Application")

 

set filesystem = CreateObject("scripting.Filesystemobject")

 

Set objFolder = objShell.Namespace(filesystem.GetParentFolderName(Wscript.Arguments(0)))

 

Set objFolderItem = objFolder.ParseName(filesystem.GetFileName(WScript.Arguments(0)))

 

Set colVerbs = objFolderItem.Verbs

 

For Each objVerb in colVerbs

 

If Replace(objVerb.name, "&", "") = "Unpin from Taskbar" Then objVerb.DoIt

Next