[решено] Помогите изменить скрипт - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] Помогите изменить скрипт (http://forum.oszone.net/showthread.php?t=188267)

Помогите изменить скрипт

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

Код:

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<28) then

i=i+1

ProductKey="-" & ProductKey

End If

next

GetKey=ProductKey

End Function

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

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

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

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

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