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