デフォルトのプリンタ設定を編集するVBScriptを使用するジョブタイプ

Question

マシンのデフォルトのプリンタ設定を編集しようとしています。具体的には、私はロック印刷に各印刷の種類を変更しようとしていますし、各個々のユーザにユーザ名とパスワードを割り当てます。

誰もがPCL6プリンタドライバであるが、私はどのように考えていますVBScriptからこれにアクセスします。ここまで私がこれまで持っていたことがあります。私はできる限り多く注釈をつけていますので、私が残しておけば誰でもそれを理解することができます。すべては正常です：

Option Explicit 

' Tell WSH to resume on errors, otherwise our error handling can't do it's job 
    On Error Resume Next 

' Define variables 
Dim objNetwork, objWMIService, objPrinter 
Dim colInstalledPrinters 
Dim strPrinterServer, strPrinterShare, strUserName, strPassword, strPrinterName 
Dim Return, LocalDefault 
Dim DynamicMessage 
Dim DefaultPrinter 

strPrinterServer = "\\GBDSCWSSC0125" 
strPrinterShare = "GBGBMIL1NPSC000" 
strPassword = "1234" 

msgbox("This tool will set up your default printer with a username and password. When changing default printers, please run this tool again") 
strUserName = CreateObject("WScript.Network").UserName 
DynamicMessage = msgbox("Your username is " & strUserName & vbNewLine & "Is this correct?", vbYesNo) 

If DynamicMessage = vbNo Then 
    strUserName = InputBox("Please enter your username") 
    DynamicMessage = msgbox("Your username is " & strUserName, vbOK) 
End If 

' Get WMIService so we can run WMI queries (windows management instrumentation). Basically a library for controlling windows 
Set objWMIService = GetObject(_ 
    "winmgmts:" & "{impersonationLevel=impersonate}!\\" _ 
    & strComputerName & "\root\cimv2") 

' Run a WMI query to get all the installed printers. This returns a collection so the variable uses the "col" prefix 
Set colInstalledPrinters = objWMIService.ExecQuery("Select * from Win32_Printer") 

' The WMI query returns a collection that we need to loop through and check to see if the current printer object is the default printer 
For Each objPrinter in colInstalledPrinters 
    If objPrinter.Default = "True" Then 
     If objPrinter.Name <> "Microsoft Office Document Image Writer" Then 
      LocalDefault = True 
      strPrinterName = objPrinter.Name 
      DynamicMessage = msgbox("Default printer is " & strPrinterName, vbOKOnly) 
     End If 
    End If 
Next 

msgbox("Done!") 

Set objWMIService = Nothing 
Set objNetwork = Nothing 

WScipt.Quit 

これはすべて可能ですか？

あなたは、Microsoft \ Windows NTの\ CurrentVersionの\印刷\プリンター\レジストリキーHKEY_LOCAL_MACHINE \ソフトウェアを設定してみること

Answer 1

\プリンタ名\のPrinterDriverデータの\ capsdb_scope :: U I_Customizeこの値を持つプリントサーバー上：

<?xml version="1.0" encoding="utf-8"?> 
<rcf version="1.0"> 
    <devicesettings drivername="RICOH MP 402SPF PCL 6" independent="yes"> 
    <item name="userid_type" value="windowsloginname"/> 
    <item name="jobtype" value="lockedprint"/> 
    </devicesettings> 
    <featurelock> 
    <item fixvalue="windowsloginname" name="userid_type"/> 
    <item fixvalue="lockedprint" name="jobtype"/> 
    </featurelock> 
    <popupbeforeprint type="jobtype"> 
    <item defaultstring="default" name="username"/> 
    <item defaultstring="blank" name="password"/> 
    <item defaultstring="default" name="userid"/> 
    </popupbeforeprint> 
</rcf>