[решено] Ярлык CD-привода на рабочий стол

[МИШАНЧИК]

Подскажите пожалуйста как вывести на рабочий стол(при автоматической установке) ярлык от CD-дисковода? Где в реестре параметр отвечающий за это?
Заранее спасибо!

[Petya V4sechkin]

Создание ярлыков при установке ОС (http://oszone.net/6161)

Пример 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