| МИШАНЧИК |
09-02-2008 02:46 736350 |
Подскажите пожалуйста как вывести на рабочий стол(при автоматической установке) ярлык от CD-дисковода? Где в реестре параметр отвечающий за это?
Заранее спасибо!
|
| Petya V4sechkin |
09-02-2008 11:53 736460 |
Создание ярлыков при установке ОС
Пример 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
|
Время: 19:14.
© OSzone.net 2001-
