在VBscript中，将输出放在文本字段中

相当基本的问题。我有一个VBScript，它要求输入计算机ID，然后返回其序列号。我的问题是，返回的是messagebox，而不是文本字段，因此您无法复制并粘贴返回的序列号

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

我对VBscript了解不多，但我想有一种方法可以将该数字放在文本字段中，这样任何人都可以复制并粘贴它

---

谢谢

只需在页面上放置一个文本框并给它一个ID，然后使用VBScript设置该字段的属性，如下所示：

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

---

只需在页面上放置一个文本框并为其指定ID，然后使用VBScript设置该字段的属性，如下所示：

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

---

如果您希望它像MsgBox一样出现在弹出窗口中，请使用：

---

如果您希望它像MsgBox一样出现在弹出窗口中，请使用：

---

实际上，您可以复制由

MsgBox

显示的文本（至少在Windows Vista上）。只需单击Ctrl+C，您将在剪贴板中看到以下内容：

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

'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

--------------------------- --------------------------- 指定计算机的序列号为：foobar --------------------------- 好啊

---

--------------------------- 实际上，您可以复制由

MsgBox

显示的文本（至少在Windows Vista上）。只需单击Ctrl+C，您将在剪贴板中看到以下内容：

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

'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

--------------------------- --------------------------- 指定计算机的序列号为：foobar --------------------------- 好啊

---

--------------------------- 添加此选项，它会将序列号的输出复制到剪贴板：

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

'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

---

添加此选项，它会将序列号的输出复制到剪贴板：

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

'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