PRB: Visual Basic 5.0 Installation on Windows 2000 Ignores Start Menu (297677)

RESOLUTION

• Method 1 (manual method): Add a subfolder under <system drive letter>:\Documents and Settings\All Users\Start Menu\Programs named "Microsoft Visual Basic 5.0". After this folder has been created, shortcuts can be manually added.
• Method 2 (code method): Use the following Microsoft Visual Basic Script to add the icons and program subfolders to the menus:
  
  Start Microsoft Notepad, and then copy and paste the code into your Notepad document. Save the file with a .vbs extension. Double-click the file under My Computer or in Windows Explorer to run the code.
  
  NOTES: If the Windows 2000 operating system is installed on a drive other than C:, change all references in the code to the appropriate drive letter.
  
  This script will create all icons for the full Enterprise installation. If you have not installed all the items the extra icons can be deleted.

  Dim fso, f
  'creating folder on \start programs'
     Set fso = CreateObject("Scripting.FileSystemObject")
     Set f = fso.CreateFolder("c:\Documents and Settings\All Users\Start Menu\Programs\Microsoft Visual Basic 5.0")
     CreateFolderDemo = f.Path
  
  set wshshell=createobject("wscript.shell")
  
  'creating first shortcut'
           set oUrlLink = WshShell.CreateShortcut(f.Path & "\API Text Viewer.lnk")
           oUrlLink.TargetPath = "c:\devstudio\vb\winapi\apiload.exe"
           oUrlLink.Save
        
  
  'creating second shortcut' 
           set oUrlLink = WshShell.CreateShortcut(f.Path & "\Application Performance Explorer.lnk")
           oUrlLink.TargetPath = "c:\devstudio\vb\clisvr\aemanagr.exe"
           oUrlLink.Save
  
  
  'creating third shortcut'
           set oUrlLink = WshShell.CreateShortcut(f.Path & "\Application Setup Wizard.lnk")
           oUrlLink.TargetPath = "c:\devstudio\vb\setupkit\kitfil32\setupwiz.exe"
           oUrlLink.Save
  
  'creating fourth shortcut'
           set oUrlLink = WshShell.CreateShortcut(f.Path & "\Automation Manager.lnk")
           oUrlLink.TargetPath = "c:\winnt\system32\autmgr32.exe"
           oUrlLink.Save
  
  'creating fifth shortcut'
           set oUrlLink = WshShell.CreateShortcut(f.Path & "\Books Online.lnk")
           oUrlLink.TargetPath = "c:\devstudio\VB\vbonline\VBONLINE.EXE"
           oUrlLink.Save
  
  'creating sixth shortcut'
           set oUrlLink = WshShell.CreateShortcut(f.Path & "\Crystal Reports.lnk")
           oUrlLink.TargetPath = "c:\devstudio\VB\report\CRW32.EXE"
           oUrlLink.Save
  
  'creating seventh shortcut'
           set oUrlLink = WshShell.CreateShortcut(f.Path & "\Readme.lnk")
           oUrlLink.TargetPath = "c:\devstudio\VB\README.HLP"
           oUrlLink.Save
  
  'creating eighth shortcut'
           set oUrlLink = WshShell.CreateShortcut(f.Path & "\RemAuto Connection Manager.lnk")
           oUrlLink.TargetPath = "c:\devstudio\VB\Clisvr\RACMGR32.EXE"
           oUrlLink.Save
  
  'creating ninth shortcut' 
           set oUrlLink = WshShell.CreateShortcut(f.Path & "\Visual Basic 5.0.lnk")
           oUrlLink.TargetPath = "c:\devstudio\VB\VB5.EXE"
           oUrlLink.Save
  
  MsgBox "Done. Thank you for choosing Microsoft Technical Support"