Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Определение ключа в реестре всегда возвращает false

Ответить
Настройки темы
VBS/WSH/JS - Определение ключа в реестре всегда возвращает false

Новый участник


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

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

Пробовал разные варианты, но дотнет все равно начинает устанавливаться несмотря на наличие ключа.

Код: Выделить весь код
Function RegKeyExists(Key)
  Dim oShell, entry
  On Error Resume Next
 
  Set oShell = CreateObject("WScript.Shell")
  entry = oShell.RegRead(Key)
  If Err.Number <> 0 Then
    Err.Clear
    RegKeyExists = False
  Else
    Err.Clear
    RegKeyExists = True
  End If
End Function

Sub nt51
    If RegKeyExists("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v4") Then
    else
        WScript.CreateObject("WScript.Shell").Run ("C:\distr\dotNetFx40_Full_x86_x64.exe /quiet /norestart")
    End if
End Sub

nt51

Отправлено: 23:16, 02-03-2016

 

Ветеран


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

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

Цитата dasgespenst:
Пробовал разные варианты, »
А такой:
Код: Выделить весь код
If RegKeyExists("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\") Then
?

Ну, а вообще-то правильный путь чуть длиннее:
Практическое руководство.Определение установленных версий платформы .NET Framework
В этой статье приведены сведения о том, как узнать, какие версии и пакеты обновления Microsoft .NET Framework установлены на компьютере
Это сообщение посчитали полезным следующие участники:

Отправлено: 08:34, 03-03-2016 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


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

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

Теперь работает, я как на reg query запрашивал написал ключ.

Отправлено: 11:02, 03-03-2016 | #3


Новый участник


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

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

А как правильно написать вот эту строчку?

Код: Выделить весь код
Return = WshShell.Run("schtasks /Create /RU " & ""NT AUTHORITY\SYSTEM"" & " /SC ONSTART /TN OpenHardwareMonitor /TR " & sSystemDrive & """\distr\openhardwaremonitor\OpenHardwareMonitor.exe""", 1, true)
Код: Выделить весь код
schtasks /Create /RU "NT AUTHORITY\SYSTEM" /SC ONSTART /TN OpenHardwareMonitor /TR %systemdrive%\distr\openhardwaremonitor\OpenHardwareMonitor.exe
sSystemDrive определен.

Отправлено: 14:21, 03-03-2016 | #4


Ветеран


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

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

Код: Выделить весь код
With WshShell
	Return = .Run("""schtasks.exe"" /Create /RU ""NT AUTHORITY\SYSTEM"" /SC ONSTART /TN OpenHardwareMonitor /TR """ & .ExpandEnvironmentStrings("%SystemDrive%") & "\distr\openhardwaremonitor\OpenHardwareMonitor.exe""", 1, True)
End With
Это сообщение посчитали полезным следующие участники:

Отправлено: 16:34, 03-03-2016 | #5


Новый участник


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

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

А что означают две двойные кавычки ""?

Отправлено: 16:59, 03-03-2016 | #6


Ветеран


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

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

Цитата dasgespenst:
А что означают две двойные кавычки ""? »
Внутри текстовой строки они означают одну результирующую кавычку.

Отправлено: 18:14, 03-03-2016 | #7



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Определение ключа в реестре всегда возвращает false

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Разное - [решено] Нет ключа в реестре ANDREI1 Microsoft Windows 7 6 16-04-2016 05:33
CMD/BAT - tasklist возвращает всегда ноль dasgespenst Скриптовые языки администрирования Windows 3 10-12-2015 10:56
после удаления Байду осталось два ключа в реестре которые ни как не могу удалить berligostr Лечение систем от вредоносных программ 14 23-04-2015 13:47
Разное - Возвращение оригинала ключа в реестре lentyaika Microsoft Windows 8 и 8.1 1 02-12-2013 22:57
бесконечный цикл. Функция не возвращает FALSE ? xamelion Вебмастеру 5 19-09-2005 14:21


« Предыдущая тема | Следующая тема »


 
Переход