Много слабо познавам Windows, тепърва проглеждам някои особености. Странно, че като направя пряк път на VBS файл и системата не отразява прекия път въобще. Държи се пасивно с прекия път и той не изпълнява абсолютно никаква функция. 

Какво имаш предвид под това, че не го отразява? Работната директория ли те интересува? 

Ако имаш под ръка някакъв File.vbs и създадеш на този файл пряк път - прекия път е напълно пасивен и не функционира.

Току-що опитах - папка на десктопа "vbtest", в нея файл на име "File.vbs"; създавам на десктопа пряк път към "File.vbs" и оригиналният файл се вика успешно.

Според мен при теб има нещо объркано.

Редактирано 18 февруари 20188 г. от killchain (преглед на промените)

https://superuser.com/questions/92869/how-to-reset-shortcuts-lnk-file-in-windows-7

https://windowsreport.com/windows-8-1-shortcuts-working/

преди 22 минути, killchain написа:

Току-що опитах - папка на десктопа "vbtest", в нея файл на име "File.vbs"; създавам на десктопа пряк път към "File.vbs" и оригиналният файл се вика успешно.

Според мен при теб има нещо объркано.

Странно, много странно! Опитвам и на виртуална система - там също не се получава. Единственото което се случва е, че при двоен клик върху прекия път премигват всички икони. Премигват при всеки един опит за стартиране. Но команда не се изпълнява, а тя тази команда не изисква админски права. При директен старт функциите се изпълняват. Скрипта е свързан със запис на стойности в секция HKEY CURRENT USSER за настройка на Windows.

А пътят до файла правилно ли е описан в свойствата на прекия път?
Пробвай в конзола (cmd) да изпълниш прекия път до vbs файла. След изпълнение какво връща в конзолата?

Редактирано 18 февруари 20188 г. от DarkEdge (преглед на промените)

на ‎18‎.‎2‎.‎2018‎ г. в 16:33, DarkEdge написа:

А пътят до файла правилно ли е описан в свойствата на прекия път?
Пробвай в конзола (cmd) да изпълниш прекия път до vbs файла. След изпълнение какво връща в конзолата?

Цел: води точно до файла с разширение .vbs пътя е правилен и сверен
Стартирай в: посочен е пътя на папката, където се намира VBS файла

Изпълнението от CMD не изпълнява задачата на скрипта.

Пуснете ми на мен някакъв файл, който при вас работи да се пробвам на него?

vbs  с кой инструмент е асоцииран?
А като поставиш целият път до файла в cmd стартира ли го коректно?

А другите .lnk работят ли коректно?
Пробвай да възстановиш асоциирането по подразбиране - от тук

Редактирано 18 февруари 20188 г. от DarkEdge (преглед на промените)

преди 48 минути, DarkEdge написа:

А като поставиш целият път до файла в cmd стартира ли го коректно?

А другите .lnk работят ли коректно?

Олееее, аз съм в шок! Оказах на CMD директно пътя до файла .vbs и не го изпълнява с админско.

Другите катo например линк на .bat работят при повикване от CMD.

За 2 години се нагледах на доста аномалии и ограничения поради виртуализация от тип "нова система след рестарт", но аз я бях изключил. Подозрението ми пада върху нея, до сега май събрах 6.

Да си пипал нещо по рестрикциите на системата?

Нов тест направих върху друг компютър. Ситуацията е същата. Но... След това направих по-различен тест, като на същия скрипт е оказано да стартира звуков сигнал чрез wmplayer.exe

Резултат: При кликане на прекия път, премигват всички икони, звуковия сигнал се просвирва, а основната настройка не се получава.
Основната настройка е включване/изключване на настройки в HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced 

Що не листнеш съдържанието на скрипта тук?

FileExtension = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt"
Set Command1 = WScript.CreateObject("WScript.Shell")
Check = Command1.RegRead(FileExtension)
If Check = 1 Then
Command1.RegWrite FileExtension, 0, "REG_DWORD"
Else
Command1.RegWrite FileExtension, 1, "REG_DWORD"
End If
Command1.SendKeys "{F5}"

 

Направи си папка ShellExt в C:\Windows\system32 и в папка C:\windoows\system32\ShellExt копирай скрипта(примерно Toggle_Known_Files_Extensions.vbs)
В cmd изьпълни:
reg add "HKLM\SOFTWARE\Classes\Directory\Background\shell\Show/Hide Flie Extensions\command" /f /ve /t REG_SZ /d "WScript C:\Windows\System32\ShellExt\Toggle_Known_Files_Extensions.vbs"

това е един ред
Вече в контекста на всяка папка ще имаш достъп до превключвателя
Нагласи си името на скрипта по-горе или ползвай писаните тук.

В папка C:\Windows\System32\ShellExt можеш да си сложиш и скриптове за превключване: 

rem Show_Hidden_Files_Switch-add_context-menu
reg add "HKLM\SOFTWARE\Classes\Directory\Background\shell\Show/Hide Hidden Flies\command" /f /ve /t REG_SZ /d "WScript C:\Windows\System32\ShellExt\Toggle_Hidden_Files_Show.vbs"
Toggle_Hidden_Files_Show.vbs

Spoiler

Hidden = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
SHidden = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden"
Set Sh = WScript.CreateObject("WScript.Shell")
St = Sh.RegRead(Hidden)
If St = 2 Then
Sh.RegWrite Hidden, 1, "REG_DWORD"
Sh.RegWrite SHidden, 1, "REG_DWORD"
Else
Sh.RegWrite Hidden, 2, "REG_DWORD"
Sh.RegWrite SHidden, 0, "REG_DWORD"
End If
Sh.SendKeys("{F5}")

rem Thumbnails_View_Toggle-add_context-menu
reg add "HKLM\SOFTWARE\Classes\Directory\Background\shell\Thumbnails View Toggle" /f /v "Icon" /t REG_SZ /d "imageres.dll,-72"
reg add "HKLM\SOFTWARE\Classes\Directory\Background\shell\Thumbnails View Toggle\command" /f /ve /t REG_SZ /d "WScript C:\Windows\System32\ShellExt\Toggle-Thumbnails-View.vbs"
Toggle-Thumbnails-View.vbs

Spoiler

Registry = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\IconsOnly"
Set Command = CreateObject("WScript.Shell")
Thumbnails = Command.RegRead(Registry)
If Thumbnails = 0 Then
Command.RegWrite Registry, 1, "REG_DWORD"
Else
Command.RegWrite Registry, 0, "REG_DWORD"
End If
Command.SendKeys "{F5}"

rem Restart Explorer
reg add "HKLM\SOFTWARE\Classes\Directory\background\shell\Restart Explorer" /f /v "icon" /t REG_SZ /d "C:\Windows\explorer.exe"
reg add "HKLM\SOFTWARE\Classes\Directory\background\shell\Restart Explorer\command" /f /ve /t REG_SZ /d "WScript C:\Windows\System32\ShellExt\RstExplorer.vbs"

RstExplorer.vbs

Spoiler

On Error Resume Next

' Kill Explorer.exe

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'explorer.exe'")

For Each objProcess in colProcessList
    objProcess.Terminate(1)
Next

' Launch Explorer.exe

Set objShell = CreateObject("Wscript.Shell") 

objShell.Run "explorer.exe" 

Set objShell = Nothing

Wscript.exit

 

Редактирано 18 февруари 20188 г. от DarkEdge (преглед на промените)

Още преди да споделя скрипта, бях вече наясно, че шанса за пряк път е 99% да не се случи. Много глезотийки ми минаха през главата, но ти доста се задълбочи и кога толкова бързо съчини кода.... Имам в запас едни готови модели прекопирани от тук там, ще видим какво ще се получи като се компилират за инсталация...

Скоро.

Това го ползвам от години и просто го копнах от скрипта за инсталиране при инсталация на Windows.
Към тях ползвам и clipname
Това е бач файлът за тиха инсталация:
 

Цитат

%~dp0ClipnameSetup.exe /VERYSILENT /SUPPRESSMSGBOXES /NORESTART /SP-

Тия скриптове са в папка $OEM$\$$\system32\ShellExt и по този начин автоматично се копират късето трябва при инсталиране на ВиндолЗ

Редактирано 18 февруари 20188 г. от DarkEdge (преглед на промените)

преди 19 часа, Mlechko написа:

Имам в запас едни готови модели прекопирани от тук там, ще видим какво ще се получи като се компилират за инсталация...

Имай предвид, че някои инструменти не тръгват от ShellExt, но от %windir% тръгват.

До къде я докара?