En VBscript, lieu de sortie dans un champ de texte

Assez basique question. J'ai un script VBScript qui demande un IDENTIFIANT de l'ordinateur, puis retourne à son numéro de série. Mon problème est que le retour est dans un messagebox plutôt qu'un champ de texte de sorte que vous ne pouvez pas copier+coller l'retourné numéro de série.

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

Ne sais pas beaucoup au sujet de VBscript - mais j'imagine qu'il y a un moyen pour que ce nombre dans un champ de texte de sorte que n'importe qui peut copier+coller.

Grâce

InformationsquelleAutor Sam | 2010-12-21
  1. 4

    En fait, vous peut copier le texte affiché par MsgBox (tout au moins sur Windows Vista). Cliquez simplement sur Ctrl+C et vous aurez la suite dans votre presse-papiers:

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

--------------------------- 
Le numéro de série de l'ordinateur spécifié est: foobar 
--------------------------- 
OK 
---------------------------
    InformationsquelleAutor Helen
  2. 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)
    InformationsquelleAutor JohnK813
  3. 0

    Il suffit de placer une zone de texte sur la page et de donner un ID, puis utiliser 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
    InformationsquelleAutor Chris Cashwell
  4. 0

    Ajouter ce sur et il copie la sortie du numéro de série dans le 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
    InformationsquelleAutor IT Helper