Hola
A ver kien controla y me ayuda en el tema para list de impresoras.

Código :

var vbScript = 'Function getPrinter(delim,a2,a3,a4,a5)\n';
vbScript += 'strDrives = "."\n';
vbScript += 'Set objWMIService = CreateObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")\n';
vbScript += 'Set colInstalledPrinters  = objWMIService.ExecQuery("Select * from Win32_Printer")\n';
vbScript += 'For Each objPrinter in colInstalledPrinters\n';
vbScript += 'strDrives  = strDrives & objPrinter.Name & delim\n';
vbScript += 'Next\n';
vbScript += 'If Len(strDrives) > 1 Then\n';
vbScript += 'strDrives = Left(strDrives,Len(strDrives)-Len(delim))\n';
vbScript += 'End If\n';
vbScript += 'Set objPrinter    = Nothing\n';
vbScript += 'Set objWMIService = Nothing\n';
vbScript += 'getPrinter     = strDrives\n';
vbScript += 'End Function\n';
vbScript += '\n';
//
getPrinter.onRelease = function() {
    var results = mdm.System.VBScript.execute(vbScript, 'getPrinter', ' , ', '', '', '', '', '');
    result.text = results;
};


Quiero enviar en array la lista a result.text
Codigo original

Código :

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer")

For Each objPrinter in colInstalledPrinters
    Wscript.Echo "Name: " & objPrinter.Name
    Wscript.Echo "Location: " & objPrinter.Location
    Wscript.Echo "Default: " & objPrinter.Default
Next

Saludos