VBS/WSH/JS

Iska · Отправлено: **01:25, 09-09-2012** | #2

Цитата gen0m.rsw:

а папка RSWP всегда в корне диска, даже бывает на двух и более! »

Поясните.

gen0m.rsw · Отправлено: **10:02, 09-09-2012** | #3

Цитата Iska:

Поясните. »

Папка RSWP находиться на hdd , и на usb носителе, что бы периодически синхронизировать, но ярлыки нужны только для hdd!!!

Iska · Отправлено: **13:45, 09-09-2012** | #4

gen0m.rsw, пробуйте:

gen0m.rsw · Отправлено: **14:35, 09-09-2012** | #5

Цитата Iska:

gen0m.rsw, пробуйте: »

Дублировал ваш скрипт для второго ярлыка, вписал пути и значения, выдал ошибку, дело в том что ярлык не один , если можно то по подробней!?

Option Explicit

Dim objDrive
Dim strPath

With WScript.CreateObject("Scripting.FileSystemObject")
For Each objDrive In .Drives
If objDrive.DriveType = 2 Then
strPath = .BuildPath(objDrive.RootFolder.Path, "RSWP\REGEDIT\RegWorkshop\RegWorkshop.exe")

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\RegWorkshop.lnk")
.TargetPath = strPath
.IconLocation = strPath & ", 0"
.WorkingDirectory = "%SystemRoot%\system32"

.Save
End With
End With

Exit For
End If
End If
Next
End With

WScript.Quit 0

With WScript.CreateObject("Scripting.FileSystemObject")
For Each objDrive In .Drives
If objDrive.DriveType = 2 Then
strPath = .BuildPath(objDrive.RootFolder.Path, "RSWP\REGEDIT\Regshot\_Regshot.exe")

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\Regshot.lnk")
.TargetPath = strPath
.IconLocation = strPath & ", 0"
.WorkingDirectory = "%SystemRoot%\system32"

.Save
End With
End With

Exit For
End If
End If
Next
End With

WScript.Quit 0

Цитата Iska:

gen0m.rsw, пробуйте: »

Мне по проще, дублировать определённые секции, и редактировать пути!!!

Iska,

Цитата Iska:

gen0m.rsw, пробуйте: »

С одним ярлыком прошло!!!!

Iska · Отправлено: **16:35, 09-09-2012** | #6

Цитата gen0m.rsw:

Option Explicit
Dim objDrive
Dim strPath
… »

gen0m.rsw, код на форуме оформляется тэгом [code].

Цитата gen0m.rsw:

выдал ошибку, »

Принято выкладывать точное сообщение об ошибке. Обычно достаточно нажать «Ctrl-C» в окне с сообщением об ошибке.

Цитата gen0m.rsw:

Мне по проще, дублировать определённые секции, и редактировать пути!!! »

Пробуйте (не проверялось):

gen0m.rsw · Отправлено: **04:29, 10-09-2012** | #7

Цитата Iska:

gen0m.rsw, код на форуме оформляется тэгом [code]. »

Сам хотел спросить, как енто писать!!!

gen0m.rsw · Отправлено: **17:31, 14-08-2014** | #8

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), всегда в корне диска, не обязательно на одном(у меня и на харде и на флэше)!!!!
Заранее спасибо

Iska · Отправлено: **20:09, 16-08-2014** | #9

Цитата gen0m.rsw:

что-бы на рабочий стол ярлыки можно было выводить!! »

Замените:

Код:

With .CreateShortcut(WScript.CreateObject("Shell.Application").NameSpace("shell:AppData").Self.Path & _
	"\Microsoft\Internet Explorer\Quick Launch\" & objDictionary.Item(elem))

на:

Код:

With .CreateShortcut(WScript.CreateObject("Shell.Application").NameSpace("shell:Desktop").Self.Path & "\" & objDictionary.Item(elem))

gen0m.rsw · Отправлено: **12:02, 18-08-2014** | #10

Iska

Цитата Iska:

Замените:
Код: »

Ярлыки добавляются на десктоп, но хотелось бы реализовать одном скрипте!!!!