需要一个VB脚本，可将excel powerpoint Outlook单词放到用户桌面上并访问Office图标

Question

真的很新，所以请原谅。 我们有一台装有Office 2003 Professional的XP机器。 我们有一个登录脚本，该脚本将WORD EXCEL POWERPOINT OUTLOOK和ACCESS 2003图标放置在用户桌面上。 但是，有些机器现在安装了Office 2010而不是2003，并且我不确定如何修改现有脚本以将其考虑在内并提供正确的图标集。

仅2003 Office的现有脚本是

---

Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShortCut = objShell.CreateShortcut(strDesktopFolder & _ 
    "\Microsoft Word 2003.lnk")
objShortCut.TargetPath = "C:\Program Files\Microsoft Office\Office11\winword.exe"
objShortCut.Description = "Microsoft Word 2003"
objShortCut.Save

Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShortCut = objShell.CreateShortcut(strDesktopFolder & _
    "\Microsoft Excel 2003.lnk")
objShortCut.TargetPath = "C:\Program Files\Microsoft Office\Office11\excel.exe"
objShortCut.Description = "Microsoft Excel 2003"
objShortCut.Save

Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShortCut = objShell.CreateShortcut(strDesktopFolder & _
    "\Microsoft Powerpoint 2003.lnk")
objShortCut.TargetPath = "C:\Program Files\Microsoft Office\Office11\powerpnt.exe"
objShortCut.Description = "Microsoft Powerpoint 2003"
objShortCut.Save

Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShortCut = objShell.CreateShortcut(strDesktopFolder & _
    "\Microsoft Access 2003.lnk")
objShortCut.TargetPath = "C:\Program Files\Microsoft Office\Office11\msaccess.exe"
objShortCut.Description = "Microsoft Access 2003"
objShortCut.Save

Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShortCut = objShell.CreateShortcut(strDesktopFolder & _
    "\Microsoft Outlook 2003.lnk")
objShortCut.TargetPath = "C:\Program Files\Microsoft Office\Office11\outlook.exe"
objShortCut.Description = "Microsoft Outlook 2003"
objShortCut.Save        

---

我已经复制了上面的代码并修改了路径，以反映Office到2010年的版本更改，但这也为缺少的版本在用户桌面上放置了无效的快捷方式

我的代码是

---

' * ** * ** * ** * ** * ** * ** * ** '* Office 2003链接的起点*' * ** * ** * ** * ** * ** * ** * **

Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShortCut = objShell.CreateShortcut(strDesktopFolder & _ 
    "\Microsoft Word 2003.lnk")
objShortCut.TargetPath = "C:\Program Files\Microsoft Office\Office11\winword.exe"
objShortCut.Description = "Microsoft Word 2003"
objShortCut.Save

Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShortCut = objShell.CreateShortcut(strDesktopFolder & _
    "\Microsoft Excel 2003.lnk")
objShortCut.TargetPath = "C:\Program Files\Microsoft Office\Office11\excel.exe"
objShortCut.Description = "Microsoft Excel 2003"
objShortCut.Save

Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShortCut = objShell.CreateShortcut(strDesktopFolder & _
    "\Microsoft Powerpoint 2003.lnk")
objShortCut.TargetPath = "C:\Program Files\Microsoft Office\Office11\powerpnt.exe"
objShortCut.Description = "Microsoft Powerpoint 2003"
objShortCut.Save

Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShortCut = objShell.CreateShortcut(strDesktopFolder & _
    "\Microsoft Access 2003.lnk")
objShortCut.TargetPath = "C:\Program Files\Microsoft Office\Office11\msaccess.exe"
objShortCut.Description = "Microsoft Access 2003"
objShortCut.Save

Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShortCut = objShell.CreateShortcut(strDesktopFolder & _
    "\Microsoft Outlook 2003.lnk")
objShortCut.TargetPath = "C:\Program Files\Microsoft Office\Office11\outlook.exe"
objShortCut.Description = "Microsoft Outlook 2003"
objShortCut.Save    

' * ** * ** * ** * ** * ** * ** * ** '* Office 2010链接的起点*' * ** * ** * ** * ** * ** * ** * **

Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShortCut = objShell.CreateShortcut(strDesktopFolder & _ 
    "\Microsoft Word 2010.lnk")
objShortCut.TargetPath = "C:\Program Files\Microsoft Office\Office14\winword.exe"
objShortCut.Description = "Microsoft Word 2010"
objShortCut.Save

Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShortCut = objShell.CreateShortcut(strDesktopFolder & _
    "\Microsoft Excel 2010.lnk")
objShortCut.TargetPath = "C:\Program Files\Microsoft Office\Office14\excel.exe"
objShortCut.Description = "Microsoft Excel 2010"
objShortCut.Save

Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShortCut = objShell.CreateShortcut(strDesktopFolder & _
    "\Microsoft Powerpoint 2010.lnk")
objShortCut.TargetPath = "C:\Program Files\Microsoft Office\Office14\powerpnt.exe"
objShortCut.Description = "Microsoft Powerpoint 2010"
objShortCut.Save

Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShortCut = objShell.CreateShortcut(strDesktopFolder & _
    "\Microsoft Access 2010.lnk")
objShortCut.TargetPath = "C:\Program Files\Microsoft Office\Office14\msaccess.exe"
objShortCut.Description = "Microsoft Access 2010"
objShortCut.Save

Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShortCut = objShell.CreateShortcut(strDesktopFolder & _
    "\Microsoft Outlook 2010.lnk")
objShortCut.TargetPath = "C:\Program Files\Microsoft Office\Office14\outlook.exe"
objShortCut.Description = "Microsoft Outlook 2010"
objShortCut.Save

---

请帮忙

Answer 1

检查Office 2010文件夹是否存在，并根据检查结果创建图标。

Const Office2003 = "C:\Program Files\Microsoft Office\Office11"
Const Office2010 = "C:\Program Files\Microsoft Office\Office14"

Set fso = CreateObject("Scripting.FileSystemObject")
Set objShell = WScript.CreateObject("WScript.Shell")

If fso.FolderExists(Office2010) Then
  officePath = Office2010
Else
  officePath = Office2003
End If

strDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShortCut = objShell.CreateShortcut(strDesktopFolder & _ 
  "\Microsoft Word.lnk")
objShortCut.TargetPath = fso.BuildPath(officePath, "winword.exe")
objShortCut.Description = "Microsoft Word"
objShortCut.Save