[gen0m.rsw]

Iska

Всем респект!!!
Спасибо за код(добавление ярлыков в быстры запуск), намного облегчил проблему.

читать дальше »

Код:

Option Explicit

Dim objDictionary
Dim elem

Dim strPath
Dim objDrive


Set objDictionary = WScript.CreateObject("Scripting.Dictionary")

With objDictionary
    .Add "RSWP\FILE_FOLDERS\BCompare\BCompare.exe",           "Beyond Compare 3.lnk"
    .Add "RSWP\MANAGER\NirSoft\NirSoft\shexview.exe",         "ShellExView.lnk"
    .Add "RSWP\MANAGER\NirSoft\NirSoft\shmnview.exe",         "ShellMenuView.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\Total_Commander\Totalcmd.exe",         "Total Commander.lnk"
    .Add "RSWP\REGEDIT\Regshot\Regshot.exe",                  "Regshot.lnk"
    .Add "RSWP\REGEDIT\RegWorkshop\RegWorkshop.exe",          "RegWorkshop.lnk"
    .Add "RSWP\REGEDIT\SysTracer_Pro\SysTracer.exe",          "SysTracer.lnk"
    .Add "RSWP\UNINSTALL\UninstallTool\UninstallTool.exe",    "UninstallTool.lnk"
    .Add "RSWP\UPROVLENIE\RestartExplorer.exe",               "Restart Explorer.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

Нельзя ли енто чуть чуть усовершенствовать, что-бы на рабочий стол ярлыки можно было выводить!!
Сам данный скрипт всегда находиться в папке RSWP, а сама папка(RSWP), всегда в корне диска, не обязательно на одном(у меня и на харде и на флэше)!!!!
Заранее спасибо