[VBS] Text uit een query in clipboard plaatzen met enters

[Roman]

Weet niet of dit nu in dit topic goed staat of niet.

Ik ben bezig met een scriptje dat diverse computer informatie van een remote computer verzameld. Dit gaat allemaal prima. Krijg dan een leuke message box met wscript.echo. Nu dacht ik ik zet die informatie meteen in clipboard zodat ik deze direct ergens kan plakken. En hier gaat wat fout, het komt uiteraard wel in clipboard terecht, maar zonder de enters die er gegeven zijn. Dus het is ene lange zin.

Hoe kan ik ervoor zorgen dat er in clipboard de de opmaak meegenomen wordt. Bij deze het scriptje. Het gaat dus om het onderste gedeelte, rest gaat goed. Helaas kan ik via google en yahoo hierover geen informatie vinden aangezien het plaatsen via een VBS in clipboard sowieso niet gesupporterd wordt.

code:

strComputer = ""

strComputer = InputBox("Geef computer naam:", "Computer Info", strComputer)
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colComputer = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")
Set colSettings = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
Set colItem = objWMIService.ExecQuery("Select * from Win32_Processor")
Set colC = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk where DeviceID = 'C:'")
Set colD = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk where DeviceID = 'D:'")
Set colCase = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")

For Each objComputer in colComputer
  intRamMB = int((objComputer.TotalPhysicalMemory) /1048576)+1
  strComputer = objComputer.Name
Next

For Each objSystem in colSettings 
   FreeRam = int((objsystem.FreePhysicalMemory) /1024)+1
   OS = objsystem.Caption 
Next

For Each objItem in colItem
    CPU = objItem.Name
    Cores = objitem.NumberOfCores
Next

For Each objC in colC
    CFree = Round(objC.FreeSpace / 1074300000,1)
    CTot =  Round(objc.Size / 1074300000,1)
Next

For Each objD in colD
    DFree = Round(objD.FreeSpace / 1074300000,1)
    DTot =  Round(objD.Size / 1074300000,1)
Next

For Each objcase in Colcase
    Manufactor = objCase.Manufacturer
    Model = objCase.Model
    User = objcase.UserName
Next

msg = "Computer naam: " & strComputer & vbCr & vbcr _
 & "Fabrikant Machine: " & Manufactor & vbcr _
 & "Type Machine: "& model & vbcr & vbcr _
 & "OS: " & OS & vbCR _
 & "CPU: " & CPU & vbCr _
 & "Aantal Cores: "& Cores & vbCr & vbCr _
 & "Totaal geheugen: " & intRamMB & " Mb" & vbCr _
 & "Vrij geheugen: " & FreeRam & " Mb" & vbCr & vbCr _
 & "C-Schijf Totaal: " & CTot & " Gb" & vbCr _
 & "C-Schijf Vrij: " & CFree & " Gb" & vbcr _
 & "D-Schijf Totaal: " & DTot & " Gb" & vbCr _
 & "D-Schijf Vrij: " & DFree & " Gb" & vbcr & vbcr _
 & "Ingelogde Gebruiker: "  & User

WshShell.Run "cmd.exe /c echo . | set /p x=" & msg & " | clip", 0, TRUE
wscript.echo msg

WScript.Quit

[alt-92]

Visual Basic:

VBCrLf

Staat letterlijk in de documentatie.

[ Voor 52% gewijzigd door alt-92 op 10-01-2012 22:14 ]