VBS/WSH/JS - [решено] Помогите изменить скрипт

[Deep2007]

Есть такой скрипт:

Код:

Код: Выделить всё

Key = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"
set wshshell=createobject("wscript.shell")
Value=wshshell.regread("HKLM\" & Key)
msgbox GetKey(Value)
Function GetKey(byval p)
pc="BCDFGHJKMPQRTVWXY2346789"
for i=0 to 28
a=0
for j=0 to 14
a=p(66-j)+a*256
p(66-j)=(a\24) and 255
a=a Mod 24
next
ProductKey=mid(pc,a+1,1) & ProductKey
if (((i+2) Mod 6)=0) and (i

При запуске под Windows XP отображает его серийный номер. Однако, из окна не удается его скопировать - приходиться переписывать самому. Как должен выглядеть скрипт, из окна которого можно скопировать SN?

[Iska]

«Ctrl-C» пробовали нажимать, находясь в этом окне? Будет кое-что лишнего, но и искомое попадёт в буфер обмена.



Второй вариант — использовать InputBox() с третьим параметром «default», равным «GetKey(Value)»:

InputBox Function

.



Третий вариант, не самый лучший, — добавить непосредственно в скрипт код помещения результата в буфер обмена.

[Deep2007]

«Ctrl-C» - работает. Не проверил сам. Спасибо.