Determining what default printer is in VBS/WSH
I'm trying to map each user's printers to a new print server with their login script in WSH.

I have the code (below) to successfully do this. However, the ONLY thing missing is setting the default printer. I know that there is a method that DOES set the default printer, but I first need to know what their old default printer was. I haven't been able to find this. I found (in other wrox forums) code in VB that will use API calls to do this--but AFAIK these won't work from WSH.

The code I have (slightly sloppy, I know, but it works) is this:

I do this for each printer we have on our network. I don't worry about specifying drivers, as I made a point to use the same driver version on both servers (for anyone copying, this may create an issue if the new print server has a different driver and the user it is being added from does not have local administrative rights). Each user has 5-10 printers that are actually remapped.

Any help on this? Thanks
-Dane

I posted this on another site and got an answer... The completed/working script (for those who care!) is as follows:


Function GetDefaultPrinter()
Set oShell = CreateObject("WScript.Shell")
sRegVal = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device"
sDefault = ""
On Error Resume Next
 sDefault = oShell.RegRead(sRegVal)
 sDefault = Left(sDefault ,InStr(sDefault, ",") - 1)
 On Error Goto 0
GetDefaultPrinter = sDefault
End Function

oldDefault = GetDefaultPrinter
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oPrinters = WshNetwork.EnumPrinterConnections

                           'loop through each printer, searching for printer to replace. 'do this whole iteration one time for EACH printer to replace '################################################# ###########################

    oldPrinter="\\BANNER\Color1100"
       newPrinter="\\CHISALPRSRV\Color1100"

       For i = 0 to oPrinters.Count - 1 Step 2

            if Trim(oPrinters.Item(i+1)) = oldPrinter then
            'Printer found. Lets add the replacement, if successful delete the old.

                WshNetwork.AddWindowsPrinterConnection newPrinter

            if Trim(oldDefault)=Trim(oldPrinter) then
            'set new as default printer
            WshNetwork.SetDefaultPrinter newPrinter
            end if

                If Err <> 0 OR blnError = True Then
                'Printer was NOT added
                    WScript.Echo "UTOH! " & Err
                Else

                    WshNetwork.RemovePrinterConnection oldPrinter, true, true
            End If 'end if err<>0

            End If 'end if printer matches current


         Next

        'END ITERATION SEARCHING FOR PRINTER



                     'END ITERATION SEARCHING FOR PRINTER 'REPEAT THE FOR I=0 THROUGH NEXT FOR EACH PRINTER