[Petya V4sechkin]

Создание ярлыков при установке ОС

Пример vbs-скрипта, создает ярлыки для всех CD-приводов:

Код:

Dim WSh, FSO, Desktop, D, Lnk

Set WSh = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

Desktop = WSh.SpecialFolders("Desktop")
For Each D In FSO.Drives
  If D.DriveType = 4 Then
    Set Lnk = WSh.CreateShortcut(Desktop + "\CD-привод " + D.DriveLetter + ".lnk")
    Lnk.TargetPath = D.DriveLetter + ":\"
    Lnk.WindowStyle = 1
    Lnk.Description = "CD-привод (" + D.DriveLetter + ":)"
    Lnk.Save
  End If
Next