ChipHead
(Just in Town)
2012-08-08 05:49 PM
Set Home Page and Other tabs

I am trying to set a Home Page for all my users and other secondary tabs as well, but it's not working.... I get the home page, but no secondaries. Would appreciate it if anyone can help.....

This is the script fragment:
 Code:
;Begin SharePoint News Page Settings
;If InGroup("LPNT\RMHO_SHP_HOMEPAGE")
If InGroup("RMHOInetAccess")
	$IEMain = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main"
	$SHPPage = "http://sharepoint.lpnt.corpad.net"
	$HomePage = ReadValue($IEMain, "Start Page")
		If($HomePage <> $SHPPage)
		$SecondaryHP = "http://www.google.com" 
		$SecondaryHP = ReadValue($IEMain, "Secondary Start Pages")
			If(WriteValue($IEMain, "Start Page", $SHPPage, "REG_SZ") And WriteValue($IEMain, "Secondary Start Pages", $HomePage + "|" + $SecondaryHP, "REG_MULTI_SZ"))
			$WriteShpProcessed = WriteValue($IEMain, "SharePoint Deployed", "Deployed", "REG_SZ")
			EndIf
		EndIf
EndIf
;End SharePoint News Page Settings


ShaneEP
(MM club member)
2012-08-08 08:19 PM
Re: Set Home Page and Other tabs

This seems to work just fine for me...

 Code:
;Begin SharePoint News Page Settings
;If InGroup("LPNT\RMHO_SHP_HOMEPAGE")
If InGroup("RMHOInetAccess")
   $IEMain = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main"
   $SHPPage = "http://sharepoint.lpnt.corpad.net"
   $CurrentStartPage = ReadValue($IEMain,"Start Page")
   If $CurrentStartPage <> $SHPPage
      $SecondaryStartPages = $CurrentStartPage+"|"+ReadValue($IEMain, "Secondary Start Pages")
      If WriteValue($IEMain,"Start Page",$SHPPage,"REG_SZ") = 0 AND WriteValue($IEMain,"Secondary Start Pages",$SecondaryStartPages,"REG_MULTI_SZ") = 0
         $nul = WriteValue($IEMain,"SharePoint Deployed","Deployed","REG_SZ")
      EndIf
   EndIf
Endif
;Endif
;End SharePoint News Page Settings

Maybe those extra ()'s on all your IF statements were causing problems. Not sure I changed anything else really. Oh I removed the extra $SecondaryHP= line...No point in setting it to Google.com if you are going to immediately set it to the registry read on the next line. Also changed variable names to make it easier to follow...mostly for my own accord.

Glenn BarnasAdministrator
(KiX Supporter)
2012-08-08 10:21 PM
Re: Set Home Page and Other tabs

Welcome to KORG!

When you post your script, enclose it in "code tags" to make it easier to read. Similar to HTML, but using square brackets - "[" and "]" - instead. Like this:
[ code]my script goes here[ /code] (without the spaces)
will make your code look like Shane's. \:\)

Also, look for the Sanity UDF, or download the Kixtart Development Kit from our web site. KGEN - part of the dev kit - includes sanity, which will scan your script for many common errors.

Glenn