Iska, прошу Вашей помощи!
Возникла необходимость добавления ярлыков(тоже разных) в папку "Автозагрузка"в Ентот скрипт, условия теже
все проги из той же папки, далее код
My VBS Full(точнее Ваш)
[spoiler]' ----- ExeScript Options Begin -----
' ScriptType: window,invoker
' DestDirectory: temp
' Icon: D:\RSWP\_AUTORUN\mainicon.ico
' OutputFile: D:\RSWP\add_quick_launch.exe
' ----- ExeScript Options End -----
Option Explicit
Dim objDictionary
Dim elem
Dim strPath
Dim objDrive
Set objDictionary = WScript.CreateObject("Scripting.Dictionary")
' Добавление ярлыков в "Быстрый запуск"
With objDictionary
.Add "RSWP\FILE_FOLDERS\Beyond_Compare\BCompare.exe", "Beyond Compare 3.lnk"
.Add "RSWP\FILE_FOLDERS\Locate32\locate32.exe", "Locate32.lnk"
.Add "RSWP\HDD_UTILITES\BOOTICE\BOOTICEx86_ru.exe", "BootIce.lnk"
.Add "RSWP\MANAGER\NirSoft\NirSoft\shexview.exe", "ShellExView.lnk"
.Add "RSWP\MANAGER\PROWiSe\PROWiSe.exe", "PROWiSe.lnk"
.Add "RSWP\MANAGER\Pserv2\Pserv2.exe", "Pserv2.lnk"
.Add "RSWP\MANAGER\Starter\Starter.exe", "Starter.lnk"
.Add "RSWP\MANAGER\SysInternals\AutoRuns.exe", "AutoRuns.lnk"
.Add "RSWP\MANAGER\SysInternals\ProcExp.exe", "Process Explorer.lnk"
.Add "RSWP\MANAGER\SysTracer\SysTracer.exe", "SysTracer.lnk"
.Add "RSWP\MANAGER\SysTracer_Pro\SysTracer.exe", "SysTracer Pro.lnk"
.Add "RSWP\MANAGER\Total_Commander\Totalcmd.exe", "Total Commander.lnk"
.Add "RSWP\MULTIMEDIA\1by1\1by1.exe", "1by1.lnk"
.Add "RSWP\REGEDIT\Registry_Workshop\RegWorkshop.exe", "RegWorkshop.lnk"
.Add "RSWP\REGEDIT\Regshot\Regshot.exe", "RegShot.lnk"
.Add "RSWP\UNINSTALL\UNINSTALL_TOOL\UninstallTool.exe", "Uninstall Tool.lnk"
.Add "RSWP\HDD_UTILITES\QEMUBOOTTESTER\QemuBootTester.exe", "QemuBootTester.lnk"
For Each elem In .Keys
With WScript.CreateObject("Scripting.FileSystemObject")
For Each objDrive In .Drives
If objDrive.DriveType = 2 Then
strPath = .BuildPath(objDrive.RootFolder.Path, elem)
If .FileExists(strPath) Then
With WScript.CreateObject("WScript.Shell")
With .CreateShortcut(WScript.CreateObject("Shell.Application").NameSpace("shell:AppData").Self.Path & _
"\Microsoft\Internet Explorer\Quick Launch\" & objDictionary.Item(elem))
.TargetPath = strPath
.IconLocation = strPath & ", 0"
.WorkingDirectory = "%SystemRoot%\system32"
.Save
End With
End With
Exit For
End If
End If
Next
End With
Next
.RemoveAll
End With
' Добавление ярлыков на "Рабочий стол"
With objDictionary
' .Add "RSWP\CD-DVD\UltraISO\UltraISO.exe", "UltraISO.lnk"
' .Add "RSWP\FILE_FOLDERS\Directory_Monitor\DirectoryMonitor.exe", "Directory Monitor.lnk"
' .Add "RSWP\MANAGER\Total_Commander\Totalcmd.exe", "Total Commander.lnk"
For Each elem In .Keys
With WScript.CreateObject("Scripting.FileSystemObject")
For Each objDrive In .Drives
If objDrive.DriveType = 2 Then
strPath = .BuildPath(objDrive.RootFolder.Path, elem)
If .FileExists(strPath) Then
With WScript.CreateObject("WScript.Shell")
With .CreateShortcut(WScript.CreateObject("Shell.Application").NameSpace("shell:Desktop").Self.Path & "\" & objDictionary.Item(elem))
.TargetPath = strPath
.IconLocation = strPath & ", 0"
.WorkingDirectory = "%SystemRoot%\system32"
.Save
End With
End With
Exit For
End If
End If
Next
End With
Next
.RemoveAll
End With
Set objDictionary = Nothing
WScript.Quit 0[/spoiler]
Заранее спасибо!
С уважением
gen0m.rsw
