Con questo script viene ripristinata la barra di Avvio Veloce, nel caso non sia presente o alcuni dei suoi elementi di default non siano pià presenti: gli elementi che vengono presi in esame sono il collegamento ad Internet Explorer, il collegamento ad Outllok Express, e Mostra Desktop

Dim fso, fldr, tf

Set oShell = CreateObject("WScript.Shell")

sCurrUsrPath = oShell.ExpandEnvironmentStrings("%APPDATA%")


Set fso = CreateObject("Scripting.FileSystemObject")


if not (fso.FolderExists(sCurrUsrPath & _
        "\Microsoft\Internet Explorer\Quick Launch")) then

  Set fldr = fso.CreateFolder(sCurrUsrPath & _
             "\Microsoft\Internet Explorer\Quick Launch")

end if


if not (fso.FileExists(sCurrUsrPath & _
        "\Microsoft\Internet Explorer\Quick Launch\Mostra Desktop.scf")) then

  Set tf = fso.CreateTextFile(sCurrUsrPath & _
           "\Microsoft\Internet Explorer\Quick Launch\Mostra Desktop.scf", True)
           
  tf.WriteLine("[Shell]") 
  tf.WriteLine("Command=2") 
  tf.WriteLine("IconFile=explorer.exe,3") 
  tf.WriteLine("[Taskbar]") 
  tf.WriteLine("Command=ToggleDesktop") 
  tf.Close

end if 

'/////////////////////

if not (fso.FileExists(sCurrUsrPath & _
        "\Microsoft\Internet Explorer\Quick Launch\Avvia il browser Internet Explorer.lnk")) then

Set oShortCut = oShell.CreateShortcut(sCurrUsrPath & _
                "\Microsoft\Internet Explorer\Quick Launch\Avvia il browser Internet Explorer.lnk")

oShortCut.TargetPath = "C:\Programmi\Internet Explorer\IEXPLORE.EXE"
oShortCut.IconLocation = "C:\Programmi\Internet Explorer\IEXPLORE.EXE,0"
oShortCut.Save

end if

Set oShortCut = Nothing

'///////////////////

if not (fso.FileExists(sCurrUsrPath & _
        "\Microsoft\Internet Explorer\Quick Launch\Avvia Outlook Express.lnk")) then

Set oShortCut = oShell.CreateShortcut(sCurrUsrPath & _
                "\Microsoft\Internet Explorer\Quick Launch\Avvia Outlook Express.lnk")

oShortCut.TargetPath = "C:\Programmi\Outlook Express\msimn.exe"
oShortCut.IconLocation = "C:\Programmi\Outlook Express\msimn.exe,0"
oShortCut.Save

end if

Set oShortCut = Nothing

Set fso = Nothing