Software Center to the Windows 7 Start Menu

[sothpaw]

Okay Scripting Masters,

 

I'm not very good at doing scripts, but I know that a cscript or just a VBS script would work to "PIN" the "Software Center; C:\Windows\CCM\SCClient.exe" to the Start Menu. What would the code look like at getting that done?

 

 

Thanks again

[Peter van der Woude]

AFAIK, Software Center is added to the Start Menu by default, under Microsoft System Center 2012 (I can't verify, as I've only got Windows 8/ Server 2012 systems right now).

[brink668]

I don't know about the Start Menu but it definitely gets add to All Programs on Windows XP, 7, 8 and servers.

[Rocket Man]

How about this, save it as a vbs script. Run it locally first to see if it is what you want before creating a package..

 

set WshShell = WScript.CreateObject("WScript.Shell" )
strStartMenu = WshShell.SpecialFolders("AllUsersStartmenu" )
set oShellLink = WshShell.CreateShortcut(strStartMenu & "\Software Center.lnk" )
oShellLink.TargetPath = "%SYSTEMROOT%\CCM\SCClient.exe"
oShellLink.WindowStyle = 1
oShellLink.IconLocation = "%SYSTEMROOT%\CCM\SCClient.exe"
oShellLink.Description = "SCCM"
oShellLink.WorkingDirectory = "%HOMEPATH%"
oShellLink.Save

 

 

Rocket Man

[Peter33]

Here is vbscript to pin the Software Center to the start menu.

Const CSIDL_COMMON_PROGRAMS = &H17
Const CSIDL_PROGRAMS = &H2
Set objShell = CreateObject("Shell.Application")
Set objAllUsersProgramsFolder = objShell.NameSpace(CSIDL_COMMON_PROGRAMS)
strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.Path
Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Microsoft System Center 2012\Configuration Manager")
Set objFolderItem = objFolder.ParseName("Software Center.lnk")
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
    If Replace(objVerb.name, "&", "") = "Pin to Start Menu" Then objVerb.DoIt
Next