help with StringRegExp()

[kgreer]

I am trying to get the default printer name from the below command line output.  I can capture the outpupt by using StdoutRead(), but I just want the value after "The default printer is ".  I can use stringsplit($sOutput,"default printer is",1) and get the data from the returned array which works fine, but I want to use StringRegExp(), and I'm having trouble figuring out the logic and I'm hoping to hear from someone with a better understanding on the logic to use with StringRegExp().

So, using StringRegExp(), how can I just get the value ServerPrinter?  I thought something like StringRegExp($sOutput,"(?:The default printer is)(*)",1) but this does not work and just returns 0

 

Microsoft ® Windows Script Host Version 5.8
Copyright © Microsoft Corporation. All rights reserved.

The default printer is ServerPrinter

[BrewManNH]

Show the VBScript used to generate that text and you can probably do it completely in AutoIt without having to get it from VBScript.

[iamtheky]

$sStr = "The default printer is \\Server\Printer"

msgbox(0 , '' , StringRegExp($sStr , "The default printer is (.*)" , 3)[0])

look at the flags again for stringregexp.

Edited April 14, 2015 by boththose

[Zedna]

This works fine:

#include <Array.au3>

$sInput = "The default printer is \\Server\Printer"
$aRet = StringRegExp($sInput,"The default printer is (.*)",3)
_ArrayDisplay($aRet)

[BrewManNH]

You can use this snippet to show you which printer is set as the default printer.

$strComputer = @ComputerName
Global $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")
Global $colItems = $objWMIService.ExecQuery("Select * from Win32_Printer")
For $objItem In $colItems
    If $objItem.Default = "True" Then
        ConsoleWrite("Default: " & $objItem.Name & " is the default printer" & @CRLF)
    EndIf
Next

No need for VBScripts and the StdOut to figure it out. $objItem.Default will return true for the default printer, and then $objItem.Name will tell you which printer it is.

[kgreer]

@ BrewManNH

I'm writing a printer management utility and I'm using the Windows included vbs scripts and command line switches to manage the printers.

https://technet.microsoft.com/en-us/library/cc725868.aspx

Thanks for the autoit example. I want to learn more about WMI and objget().  I am actually using many functions from the vbs print management scripts, but it would be nice to eventually only perform the tasks from within autoit.

@ boththose and Zedna,

those work perfectly!  Thank you for the help.

your one liner

msgbox(0 , '' , StringRegExp($sStr , "The default printer is (.*)" , 3)[0])

 

beats my attempt using

 $output = StringSplit($sOutput, "default printer is", 1)
 $output = StringSplit($output[2], "\", 1)
msgbox(0,"",$output[UBound($output) - 1])