Hello SouthWind and Welcome to the board.
Just an FYI that this board has a GREAT FAQ section as well as a ton of UDF (User Defined Function) to help assist you in accomplishing just about any scripting task.
Here is an example of a script to peform such modifications, but Jochen is correct in that a Policy would be a better approach.
DO NOT run this code as is, but rather review what it does and modify it to your needs.
Code:
Break On
Dim $SO
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
UpdateIESettings()
Dim $SetURL,$FavKey
$FavKey=ReadValue('HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders','Favorites')
$SetURL=wshShortcut($FavKey+'\Links\MSN',"http://www.msn.com")
$SetURL=wshShortcut($FavKey+'\Links\Google',"http://www.google.com")
$SetURL=wshShortcut($FavKey+'\Links\Yahoo',"http://www.yahoo.com")
Function UpdateIESettings()
Dim $AutoConfigURL,$SetAutoConfigURL,$ProxyServer,$ProxyOverride,$SetIECache,$IEKey,$SetProxyEnable,
$SetMaxConnectionsPerServer,$SetMaxConnectionsPer1_0Server,$SetProxyServer,$SetProxyOverride,$IEUser,
$DisableDebug,$DisableDlg,$DisableSugFrmPass,$DisableAskSugFrmPass,$EnableFormSuggest,$AutoComp,
$EnableAutoSuggest,$SetStartPage,$URL
$URL='http://www.google.com'
$IEKey='HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings'
$IEUser='HKCU\Software\Microsoft\Internet Explorer\Main'
$AutoComp='HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\AutoComplete'
$AutoConfigURL = Iif(@DOMAIN='Domain1','http://server1.com/proxy.pac','http://server2.com/proxy.pac')
$ProxyOverride='mycompany.com;*.some.other.site.com;<local>'
$ProxyServer='my.proxy.server.name.com:8080'
$SetIECache=WriteValue($IEKey,'SyncMode5', 3, REG_DWORD)
$SetMaxConnectionsPerServer=WriteValue($IEKey,'MaxConnectionsPerServer',15,REG_DWORD)
$SetMaxConnectionsPer1_0Server=WriteValue($IEKey,'MaxConnectionsPer1_0Server',15,REG_DWORD)
$SetProxyEnable=WriteValue($IEKey, 'ProxyEnable', 1, REG_DWORD)
$SetAutoConfigURL=WriteValue($IEKey,'AutoConfigURL',$AutoConfigURL,REG_SZ)
$SetProxyServer=WriteValue($IEKey,'ProxyServer',$ProxyServer,REG_SZ)
$SetProxyOverride=WriteValue($IEKey,'ProxyOverride',$ProxyOverride,REG_SZ)
$SetStartPage=WriteValue($IEUser,'Start Page',$URL,REG_SZ)
$DisableDebug=WriteValue($IEUser,'Disable Script Debugger','yes',REG_SZ)
$DisableDlg=WriteValue($IEUser,'Error Dlg Displayed On Every Error','no',REG_SZ)
$DisableSugFrmPass=WriteValue($IEUser,'FormSuggest Passwords','no',REG_SZ)
$DisableAskSugFrmPass=WriteValue($IEUser,'FormSuggest PW Ask','no',REG_SZ)
$EnableFormSuggest=WriteValue($IEUser,'Use FormSuggest','yes',REG_SZ)
$EnableAutoSuggest=WriteValue($AutoComp,'AutoSuggest','yes',REG_SZ)
EndFunction
Function wshShortCut($shortcutname,$targetpath,optional $arguments, optional $startdir, optional $iconpath, optional $style,optional $description)
Dim $shell, $desktop, $shortcut, $index, $iconinfo, $iconindex
$shell = CreateObject("wscript.shell")
If $shell
If UCase(Right($shortcutname,4))=".URL" or UCase(Right($shortcutname,4))=".LNK"
;do nothing
Else
If UCase(Left($targetpath,5))="HTTP:" or UCase(Left($targetpath,6))="HTTPS:" or UCase(Left($targetpath,4))="FTP:"
$shortcutname=$shortcutname + ".url"
Else
$shortcutname=$shortcutname + ".lnk"
EndIf
EndIf
If InStr($shortcutname,".lnk") and not Exist($targetpath)
Exit 2
EndIf
If InStr($shortcutname,"\")=0
$Desktop = $shell.SpecialFolders("Desktop")
$shortcutname=$desktop + "\" + $shortcutname
EndIf
$shortcut = $shell.createshortcut($shortcutname)
If $shortcut
$shortcut.targetpath = $targetpath
If $iconpath
$shortcut.iconlocation = $iconpath
EndIf
If $arguments
$shortcut.arguments = $arguments
EndIf
If $startdir
$shortcut.workingdirectory = $startdir
EndIf
If $style
$shortcut.windowstyle = $style
EndIf
If $description
$shortcut.description = $description
EndIf
$shortcut.save
If InStrRev($shortcutname,".url") and $iconpath
$index=InStrRev($iconpath,",")
If $index=0
$iconindex=0
Else
$iconindex=Split($iconpath,",")[1]
$iconpath=Split($iconpath,",")[0]
EndIf
$=WriteProfileString($shortcutname,"InternetShortcut","IconFile",$iconpath)
$=WriteProfileString($shortcutname,"InternetShortcut","IconIndex",$iconindex)
EndIf
$shortcut = 0
$wshshortcut=0
Else
Exit @ERROR
EndIf
Else
Exit @ERROR
EndIf
EndFunction
