0

システムアカウントを使用しているときにMicrosoft SCCM経由で展開するとアイコンが作成されないため、Microsoft Koduのアイコンを作成するVBスクリプトを作成しようとしています(本当に面倒です)。

フォルダー作成タスクを「Microsoft Research」用と「Kodu Game Lab」用の 2 つのステップに分割することについて、何人かの友人からアドバイスを受けましたが、19 行目の文字 2 で行き詰まっています。私はスクリプト作成にかなり慣れていないため、古典的な間違いを犯しています。

助言がありますか？これが私のスクリプトです：

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()
4

1 に答える 1

0

問題は、その行の括弧にあります。次の 2 つのオプションがあります。

  1. その行に変数を設定していないため、その行の ( ) を削除します。( ) は不要または

  2. 行を変更して読むnewFolder = Objfso.CreateFolder(AllProgramMenuKodu)

于 2014-07-07T02:05:42.447 に答える