Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - ASP и VBScript

Страница: 1 |

 

  Вопрос: Результат vbs в реестр Добавлено: 20.04.13 17:10  

Автор вопроса:  4eKuCT
Здравствуйте есть вот такой скрипт
Set TypeLib = CreateObject("Scriptlet.TypeLib")
Wscript.Echo TypeLib.Guid

Он генерирует GUID, как сделать так чтобы он не показывал GUID , а записывал его в реестр?

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 AxeL



ICQ: 264730390 

Вопросов: 2
Ответов: 106
  Профиль | | #1 Добавлено: 22.04.13 06:51
Как-нибудь так...
  1. Option Explicit
  2. Sub main()
  3. Dim sh, test, value, parameter
  4. Const hklm = "HKLM\SOFTWARE"
  5. test = "\!MyTest!" ' раздел
  6. parameter = "\parameter" ' параметр
  7. value = "тестовое значение"
  8.  
  9. Set sh = CreateObject("WScript.Shell")
  10. ' создание раздела, параметра и запись значения параметра
  11. sh.RegWrite hklm & test & parameter, value, "REG_SZ"
  12.  
  13. On Error Resume Next
  14. ' чтение параметра
  15. value = sh.RegRead(hklm & test & parameter)
  16. If Err.Number Then
  17. MsgBox "Запись в разделе " & hklm & test & parameter & " не существует!"
  18. Err.Clear
  19. Exit Sub
  20. Else
  21. MsgBox value
  22. sh.RegDelete hklm & test & parameter ' удаление параметра "parametr"
  23. sh.RegDelete hklm & test & "\" ' удаление раздела "!MyTest!"
  24. End If
  25.  
  26. Set sh = Nothing
  27.  
  28. End Sub
  29. Call main

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам