Войти

Показать полную графическую версию : Из vbs результат в реестр

x4ekuctx
20-04-2013, 17:10
Здравствуйте есть вот такой скрипт
Set TypeLib = CreateObject("Scriptlet.TypeLib")
Wscript.Echo TypeLib.Guid

Он генерирует GUID, как сделать так чтобы он не показывал GUID , а записывал его в реестр?
Iska
20-04-2013, 18:29
а записывал его в реестр? »
SetStringValue method of the StdRegProv class (Windows) (http://msdn.microsoft.com/en-us/library/windows/desktop/aa393600(v=vs.85).aspx)
x4ekuctx
20-04-2013, 23:17
Не могу понять как именно сгенерированный GUID внести в какой то параметр

сгенерировался например случайный guid {aecfd88b-7975-4b1f-860e-0b3eb3a2d6eb} скрипт который выше, показывает мне его.А мне нужно что бы он мне его не показывал а в нес в какой то параметр.Помогите пожалуйста.
Iska
20-04-2013, 23:49
x4ekuctx, приведите наименование раздела и параметра реестра.
x4ekuctx
20-04-2013, 23:55
В любую ветку пока не имеет значение нужно внести GUID как строковой параметр
Iska
21-04-2013, 00:15
Option Explicit

Const HKEY_LOCAL_MACHINE = &H80000002

With WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\default").Get("StdRegProv")
If .SetStringValue(HKEY_LOCAL_MACHINE, "SOFTWARE", "My Parameter", WScript.CreateObject("Scriptlet.TypeLib").Guid) = 0 Then
WScript.Echo "Success"
Else
WScript.Echo "Failed"
End If
End With

WScript.Quit 0
x4ekuctx
22-04-2013, 10:29
Спасибо огромное за помощь! Возможно ли добавить guid в строковый параметр в таком виде: http://сайт.ru/id= (здесь GUID)?=stranichka.php ?
Iska
23-04-2013, 13:27
Понятно. Значение GUID возвращается с паразитными (?) двумя символами в конце.
Option Explicit

Const HKEY_LOCAL_MACHINE = &H80000002

Dim strGUID


strGUID = Left(WScript.CreateObject("Scriptlet.TypeLib").Guid, 38)

With WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\default").Get("StdRegProv")
If .SetStringValue(HKEY_LOCAL_MACHINE, "SOFTWARE", "My Parameter", "http://сайт.ru/id= (" & strGUID & ")?=stranichka.php") = 0 Then
WScript.Echo "Success"
Else
WScript.Echo "Failed"
End If
End With

WScript.Quit 0
x4ekuctx
24-04-2013, 16:54
Спасибо огромное!!!
Andy_BooM
25-05-2013, 19:27
помогите с кодом. после нажатия кнопки не выводит окна.
<html>
<head><title>Цикл в VBScript</title>
<script language="VBScript">
Sub but_onclick
dim x,n,sl,s
x=inputbox("Введите x",3)
n=window.prompt("Введите n",1)
sl=x:s=sl
for i=1 to n
sl=exp((i+1)*ln(x))/sqr(2*i-1):s=s+sl
NEXT
MsgBox "sum of row=" & s
End Sub
</script>
</head>
<body><h2>Л.р. №19: Цикл For в JavaScript</h2>
<hr>
Найти сумму <b><i>n</i></b> элеиентов ряда <b><i>x^(i+1)/(2i-1)^2</i></b> при произвольном
<b><i>x</i></b> и начальном значении <b><i>i=0</i></b>.<br>
Для ввода <b><i>x</i></b> и <b><i>n</i></b> использовать диалоговое окно ввода.<br>
Результат представить в окне сообщения.
<form>
<input type="button"NAME="butt" VALUE="Start"onclick="but()">
</form></body></html>
Iska
25-05-2013, 20:25
Andy_BooM, какое отношение Ваш вопрос имеет к данной теме? Заведите для него новую тему, если не найдёте подходящей.

И ознакомьтесь с использованием тэга [code] (http://forum.oszone.net/misc.php?do=bbcode#code).
mrcnn
26-05-2013, 03:22
onclick="but_onclick();">



© OSzone.net 2001-2012