Создание Пуск иконки меню с подпапками

Question

Я пытаюсь создать VB скрипт для создания иконок для Microsoft Kodu как значки не получают созданы при развертывании с помощью Microsoft SCCM при использовании системной учетной записи (реальную боли.)

У меня были некоторые советы от некоторых друзей о разделении задач создания папок на два этапа: один для «Microsoft Research», а другой для «Kodu Game Lab», но я застрял в строке 19, символ 2 - я предполагаю, что я я делаю clasic ошибку n00b, поскольку я довольно новичок в создании скриптов!

Любые предложения? Вот мой сценарий:

Dim shell, Objfso, allStartMenu, myShortcut, allProgramMenuMR, allProgramMenuKodu 
Set Objfso = CreateObject("Scripting.FileSystemObject") 
Set shell = WScript.CreateObject("WScript.Shell") 

'Tells script how to get to All Users Start Menu 
allProgramMenu = shell.SpecialFolders("AllUsersPrograms") 

'Tells script to check if Microsoft Research start menu folder exists and creates it if necessary. 
allProgramMenuMR = allProgramMenu + "\\Microsoft Research" 

if not Objfso.FolderExists (allProgramMenuMR) Then 
    Objfso.CreateFolder (allProgramMenuMR) 
End If 

'Tells script to check if Kodu Game Lab start menu folder exists and creates it if necessary. 
allProgramMenuKodu = allProgramMenu + allProgramMenuMR + "\\Kodu Game Lab" 

if not Objfso.FolderExists (allProgramMenuKodu) Then 
    Objfso.CreateFolder (allProgramMenuKodu) 
End If 

' Create Kodu Game Lab shortcut 

Set myShortcut = shell.CreateShortcut(allProgramMenuKodu + allProgramMenuMR + "\\Kodu Game Lab.lnk") 

myShortcut.TargetPath = "C:\Program Files (x86)\Microsoft Research\Kodu Game Lab\Boku.exe" 
myShortcut.Arguments = "/NoUpdate /NoInstrumentation" 
myShortcut.WorkingDirectory = "" 
myShortcut.WindowStyle = 4 
myShortcut.Description = "Launch Kodu Game Lab." 
myShortcut.Save() 


' Create Configure Kodu Game Lab shortcut 

Set myShortcut = shell.CreateShortcut(allProgramMenuKodu + allProgramMenuMR + "\\Configure Kodu Game Lab.lnk") 

myShortcut.TargetPath = "C:\Program Files (x86)\Microsoft Research\Kodu Game Lab\BokuPreBoot.exe" 
myShortcut.WorkingDirectory = "C:\Program Files (x86)\RSA Security\RSA Authentication Manager\prog\" 
myShortcut.WindowStyle = 4 
myShortcut.Description = "Launch Kodu Game Lab Configuration Utility" 
myShortcut.Save() 

Answer 1

Проблема с скобками на этой линии. У вас есть два варианта:

1. В этой строке удалите(), потому что вы не устанавливаете переменную на этой строке.() Не требуется или

2. Изменение линии читать newFolder = Objfso.CreateFolder(AllProgramMenuKodu)