Blueprint Enterprise: Force the Print Scout to require login for every print jobQuestion

GOAL:

Force Print Scout to require a login for every print job.

SUPPORTED ENVIRONMENTS:

Pharos Blueprint Enterprise v5.2 Service Pack 3 or newer
Pharos Blueprint Enterprise v5.2 Release 2 or newer.
Pharos Print Scout for Blueprint v7.7.0.2216 (Windows) or newer

NOTE: This procedure is only valid for Pharos Print Scout installed on a Microsoft Windows platform. The Pharos Print Tracker for MacOS does not offer this capability.

RESOLUTION:

This solution is only viable if the Print Scout has already been installed with the /authenticateusers installation option.

Run Microsoft Windows Registry Editor (regedit.exe) as an Administrator on the workstation.
Navigate to HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\PharosSystems\PrintAgent\PrintTracker\PrintProfiler
Add a new DWORD named AuthenticateEveryJob.
Change its value to 1.
Restart the Pharos Systems Print Scout service.

This can be readily incorporated into a Visual Basic file and appended to a Print Scout deployment through Microsoft SCCM or other software distribution platforms. The example script below can be used on both 32-bit and 64-bit Windows platforms.

'Make the Registry Entry
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "." 
Set objCtx = CreateObject("WbemScripting.SWbemNamedValueSet")
objCtx.Add "__ProviderArchitecture", 32
Set objLocator = CreateObject("Wbemscripting.SWbemLocator")
Set objServices = objLocator.ConnectServer("","root\default","","",,,,objCtx)
Set objStdRegProv = objServices.Get("StdRegProv")
strKeyPath = "SOFTWARE\PharosSystems\PrintAgent\PrintTracker\PrintProfiler"
strEntryName = "AuthenticateEveryJob"
dwValue = 1
objStdRegProv.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strEntryName, dwValue,,objCtx
'Stop Service
strServiceName = "Pharos Systems Print Scout Service"
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery("Select * from Win32_Service Where Name ='" & strServiceName & "'")
For Each objService in colListOfServices
objService.StopService()
Next
'Start Service
strServiceName = "Pharos Systems Print Scout Service"
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery ("Select * from Win32_Service Where Name ='" & strServiceName & "'")
For Each objService in colListOfServices
objService.StartService()
Next

NOTE: If the Print Scout is in "Secure Release" mode, the computer will require rebooting after the Registry change due to service load order dependencies.