ohhhh..Stupid. Thanks for pointing that out Jens. I should have seen that myself...Works great now.

Code:
If GetDefault() = 0
   ? "Default Printer - "+$DefaultPrinter
Else
   ? "Could Not Obtain Default Printer"
Endif
Get $

FUNCTION GetDefault()
   $oLocator = CreateObject ("WbemScripting.SWbemLocator")
   If Not $oLocator
      Exit 1
   Endif
   $oService = $oLocator.ConnectServer(@WkSta, "root\cimv2")
   If Not $oService
      Exit 1
   Endif
   $oService.Security_.impersonationlevel = 3
   $oEnum = $oService.ExecQuery("select DeviceID from Win32_Printer where default=true") 
   For Each $oPrinter in $oEnum
      $DefaultPrinter = $oPrinter.DeviceID
   Next
ENDFUNCTION