Option Explicit

On Error Resume Next



Dim WshShell

Dim Winfolder, ShortcutFolder

Dim FSO, f, oShellLink

Dim RegKey



Set fso = CreateObject("Scripting.FileSystemObject")

Set WshShell = WScript.CreateObject("WScript.Shell")



RegKey = "HKCR\CLSID\{7b5c104f-4cae-45ee-adb6-2c25c0e5c61a}\"



Winfolder = FSO.GetSpecialFolder(0)



ShortcutFolder = Winfolder & "\SysCpl"



Set f = fso.CreateFolder(ShortcutFolder)



On Error Goto 0



set oShellLink = WshShell.CreateShortcut(ShortcutFolder & "\General.lnk")

oShellLink.TargetPath = "CONTROL"

oShellLink.Arguments = "sysdm.cpl,,0"

oShellLink.WindowStyle = 1

oShellLink.IconLocation = "shell32.dll, 15"

oShellLink.Description = "General tab"

oShellLink.WorkingDirectory = Winfolder

oShellLink.Save



set oShellLink = WshShell.CreateShortcut(ShortcutFolder & "\Computer Name.lnk")

oShellLink.TargetPath = "CONTROL"

oShellLink.Arguments = "sysdm.cpl,,1"

oShellLink.WindowStyle = 1

oShellLink.IconLocation = "shell32.dll, 17"

oShellLink.Description = "Computer Name tab"

oShellLink.WorkingDirectory = Winfolder

oShellLink.Save



set oShellLink = WshShell.CreateShortcut(ShortcutFolder & "\Hardware.lnk")

oShellLink.TargetPath = "CONTROL"

oShellLink.Arguments = "sysdm.cpl,,2"

oShellLink.WindowStyle = 1

oShellLink.IconLocation = "utilman.exe"

oShellLink.Description = "Hardware Tab"

oShellLink.WorkingDirectory = Winfolder

oShellLink.Save



set oShellLink = WshShell.CreateShortcut(ShortcutFolder & "\Advanced.lnk")

oShellLink.TargetPath = "CONTROL"

oShellLink.Arguments = "sysdm.cpl,,3"

oShellLink.WindowStyle = 1

oShellLink.IconLocation = "shell32.dll, 57"

oShellLink.Description = "Advanced tab"

oShellLink.WorkingDirectory = Winfolder

oShellLink.Save



set oShellLink = WshShell.CreateShortcut(ShortcutFolder & "\System Restore.lnk")

oShellLink.TargetPath = "CONTROL"

oShellLink.Arguments = "sysdm.cpl,,4"

oShellLink.WindowStyle = 1

oShellLink.IconLocation = "shell32.dll, 68"

oShellLink.Description = "System Restore tab"

oShellLink.WorkingDirectory = Winfolder

oShellLink.Save



set oShellLink = WshShell.CreateShortcut(ShortcutFolder & "\Automatic Updates.lnk")

oShellLink.TargetPath = "CONTROL"

oShellLink.Arguments = "sysdm.cpl,,5"

oShellLink.WindowStyle = 1

oShellLink.IconLocation = "shell32.dll, 46"

oShellLink.Description = "Automatic Updates tab"

oShellLink.WorkingDirectory = Winfolder

oShellLink.Save



set oShellLink = WshShell.CreateShortcut(ShortcutFolder & "\Remote.lnk")

oShellLink.TargetPath = "CONTROL"

oShellLink.Arguments = "sysdm.cpl,,6"

oShellLink.WindowStyle = 1

oShellLink.IconLocation = "shell32.dll, 18"

oShellLink.Description = "Remote tab"

oShellLink.WorkingDirectory = Winfolder

oShellLink.Save



WshShell.RegWrite RegKey,"System Expanded"

WshShell.RegWrite RegKey & "InfoTip","See information about your computer system, " & _

	"and change settings for hardware, performance, and automatic updates."

WshShell.RegWrite RegKey & "SortOrderIndex",71,"REG_DWORD"

WshShell.RegWrite RegKey & "DefaultIcon\","%SystemRoot%\system32\sysdm.cpl,0","REG_EXPAND_SZ"

WshShell.RegWrite RegKey & "InProcServer32\","%SystemRoot%\system32\shdocvw.dll","REG_EXPAND_SZ"

WshShell.RegWrite RegKey & "InProcServer32\ThreadingModel","Apartment"

WshShell.RegWrite RegKey & "Instance\CLSID","{0AFACED1-E828-11D1-9187-B532F1E9575D}"

WshShell.RegWrite RegKey & "Instance\InitPropertyBag\Target",Winfolder & "\SysCpl"

WshShell.RegWrite RegKey & "ShellFolder\Attributes", &HF0000000,"REG_DWORD"

WshShell.RegWrite RegKey & "ShellFolder\WantsFORPARSING",""



WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\ControlPanel\NameSpace\" & _

	"{7b5c104f-4cae-45ee-adb6-2c25c0e5c61a}\","Cascading System menu"



Set oShellLink = Nothing

Set WshShell = Nothing

Set FSO = Nothing



Set WshShell = WScript.CreateObject("WScript.Shell")



WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\don't load\sysdm.cpl","No"



MsgBox "System Expanded has now been added to the Control Panel", 4096,"Create Cascading System Menu"