В VBscript поместите вывод в текстовое поле

Question

Довольно простой вопрос. У меня есть VBScript, который запрашивает идентификатор компьютера, а затем возвращает его серийный номер. Моя проблема заключается в том, что возврат находится в окне сообщения, а не в текстовом поле, поэтому вы не можете скопировать + вставить возвращенный серийный номер.

MsgBox "The serial number for the specified computer is: " & SN.SerialNumber

Не знаю много о VBscript - но я думаю, что есть способ поместить это число в текстовое поле, чтобы каждый мог скопировать + вставить его.

Спасибо

Answer 1

На самом деле, вы можете скопировать текст, отображаемый как MsgBox (по крайней мере, в Windows Vista). Просто нажмите Ctrl + C , и вы получите в буфер обмена следующее:

---------------------------

---------------------------
The serial number for the specified computer is: foobar
---------------------------
OK   
---------------------------

Answer 2

Если вы хотите его во всплывающем окне, например MsgBox, используйте InputBox :

Dim tmp
tmp = InputBox("The serial number for the specified computer is:",,SN.SerialNumber)

Answer 3

Добавьте это, и он скопирует вывод серийного номера в буфер обмена:

'Copy output to clipboard
sText = SN.Serialnumber
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "about:blank"
Do Until objIE.ReadyState=4: WScript.Sleep 1: Loop
objIE.Document.ParentWindow.ClipboardData.SetData "Text", sText
objIE.Quit

Answer 4

Просто поместите текстовое поле на странице и присвойте ему идентификатор, а затем используйте VBScript для установки свойств этого поля, например:

Set myTextBox = Item.UserProperties.Find("myTextBoxFieldID")
myTextBox.Value = "The serial number for the specified computer is: " & SN.SerialNumber