En VBScript, placez la sortie dans un champ de texte

Question

Question assez basique. J'ai un VBScript qui demande un ID d'ordinateur et renvoie ensuite son numéro de série. Mon problème est que le retour est dans une boîte à message plutôt que dans un champ de texte, donc vous ne pouvez pas copier + coller le numéro de série retourné.

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

Je ne sais pas beaucoup sur VBscript - mais j'imagine qu'il ya un moyen de placer ce nombre dans un champ de texte pour que chacun puisse copier + coller.

Merci

Answer 1

il suffit de placer une zone de texte sur la page et lui donner une carte d'identité, puis utilisez VBScript pour définir les propriétés de ce champ, comme suit:

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

Answer 2

Si vous le souhaitez dans un popup comme un MsgBox, utilisez InputBox:

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

Answer 3

en fait, vous pouvez copier le texte affiché par MsgBox (à le ast, sur Windows Vista). Il suffit de cliquer Ctrl +C et vous obtiendrez ce qui suit dans votre presse-papiers:

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

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

Answer 4

Ajouter ce sur et il copiera la sortie du numéro de série au presse-papiers:

'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