Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Код: Выделить весь код
Option Explicit

Const HKEY_LOCAL_MACHINE = &H80000002


Dim objSWbemObjectEx
Dim strValue


Set objSWbemObjectEx = WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\default").Get("StdRegProv")

If objSWbemObjectEx.GetStringValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Wow6432Node\Mozilla\Firefox\TaskBarIDs", "C:\Program Files (x86)\Mozilla Firefox", strValue) = 0 Then
	WScript.Echo strValue
Else
	WScript.Echo "Can't find subkey or parameter in registry"
End If

Set objSWbemObjectEx = Nothing

WScript.Quit 0
Определитесь, у Вас:
Цитата JooDoo:
"C:\\Program Files (x86)\\Mozilla Firefox" »
или же:
Цитата JooDoo:
WSHShell.regread ("HKLM\SOFTWARE\Mozilla\Firefox\TaskBarIDs\C:\Program Files\Mozilla Firefox") »
Это сообщение посчитали полезным следующие участники:

Отправлено: 07:14, 20-09-2018 | #2