Question

我所拥有的是人们想要使用iPad来访问VDI图像。我之前创建了一个脚本，它将根据用户在AD中的位置来映射用户。这不适用于iPad，因为我无法将parm文件从iPad传递到VDI图像。我现在正在寻找一种方法，如果没有parm文件，将退出脚本。

继承我的剧本：你认为最好的方法是检查用户是否在iPad上？如果他们在iPad上如何关闭而不运行此脚本？

' *********************************************************************
'    Assign default printer for Citrix Server based on pulled PARM file
'
'    v100a    XXX     xx/xx/xxxx   - Original Version
'    v110a    MRH     03/24/2010   - Removed V: Drive reference and
'                                    changed it to UNC Path.
'                                  - Added Execute FastLaunch on 
'                                    change of Default Printer from
'                                    RightFax to something else.
'    v120a    MRH     03/25/2010   - Made reading of the Param file
'                                    more robust.  It must be at least
'                                    8 characters in length.
'    v130a    MRH     04/02/2010   - If pnagent.exe is already running
'                                    do not attempt to launch it again.
'    v140a    MRH     04/02/2010   - More error checking around reading
'                                    the C:\oasGold\oaaparm.ini file. 
'                                    Locate the = and read from there.
'    v150a    MRH     05/14/2010   - Fixed Determining if the printer is
'                                    moved from RightFax to other printer.
'
' *********************************************************************

Option Explicit 
Dim objFSO, objFile, objFileS, strLine, ParmID, net, WshNetwork, Counter
Dim eqLoc
Dim OShell, exestr
Dim oReg, strKeyPath, strValue

' Create Shell object for running command
set Oshell = CreateObject("Wscript.Shell")

'creates network object for printer setup later
Set net = CreateObject("WScript.Network")
Set WshNetwork = WScript.CreateObject("WScript.Network") 

'Open the fso
 Set objFSO = CreateObject("Scripting.FileSystemObject")

' Copy the Param file from thin client to C:\
' Map Printer Based on the Param File.
If objFSO.FileExists("\\Client\C$\oasgold\oaaparm.ini") then
'copy parm file from thin client to citrix virtual disk
Objfso.CopyFile "\\Client\C$\oasgold\oaaparm.ini", "C:\oasgold\",TRUE

Set objFileS = objFSO.GetFile("C:\oasGold\oaaparm.ini")

If (objFileS.Size >= 8) Then
    'creates file object and opens parm file
    Set objFile = objFSO.OpenTextFile("C:\oasGold\oaaparm.ini", 1)

    'reads first line of parm file into strLine
    strLine = LCase(objFile.ReadLine)

    'Locate the equal and read the ParmID, the next 4 characters
    'If no equals then set param to ????
    eqLoc = InStr(1, strLine, "=", 1)
    If (eqLoc > 0) then
        ParmID = Mid(strLine, eqLoc+1, 4)
    Else
        ParmID = "????"
    End If

    ' Close Param file.
    objFile.Close
Else
    ' Unable to Read Param File, set it to something unique to notify us that the files is bad.
    ParmID = "????"
End If

'based on Parm ID select which printer to setup
Select Case ParmID
    Case "????"
        Wscript.Echo "Invalid Parm ID: " & ParmID & ". No Windows printer selected!!!"
    Case "xxxx"
        Wscript.Echo "Invalid Parm ID: " & ParmID & ". No Windows printer selected!!!"
    Case "iej3"
        net.AddWindowsPrinterConnection "\\print1\e-it-hal4000-ps"
        WshNetwork.SetDefaultPrinter "\\print1\e-it-hal4000-ps"
    Case "c5in"
        net.AddWindowsPrinterConnection "\\print1\E-4E1-MFD-PS"
        WshNetwork.SetDefaultPrinter "\\print1\E-4E1-MFD-PS"
    Case "f8it"
        net.AddWindowsPrinterConnection "\\print1\E-4E1-MFD-PS"
        WshNetwork.SetDefaultPrinter "\\print1\E-4E1-MFD-PS"
    Case "f7it"
        net.AddWindowsPrinterConnection "\\print1\ep-spc2-mfd-ps"
        WshNetwork.SetDefaultPrinter "\\print1\ep-spc2-mfd-ps"
    Case "iel4"
        net.AddWindowsPrinterConnection "\\print1\e-2ne1-ps"
        WshNetwork.SetDefaultPrinter "\\print1\e-2ne1-ps"
    Case "iel9"
        net.AddWindowsPrinterConnection "\\print1\e-2nw1-ps"
        WshNetwork.SetDefaultPrinter "\\print1\e-2nw1-ps"
    Case "iei3"
        net.AddWindowsPrinterConnection "\\print1\e-4n1-ps"
        WshNetwork.SetDefaultPrinter "\\print1\e-4n1-ps"
    Case "ieh5"
        net.AddWindowsPrinterConnection "\\print1\e-5sfrt-ps"
        WshNetwork.SetDefaultPrinter "\\print1\e-5sfrt-ps"
    Case "iee8"
        net.AddWindowsPrinterConnection "\\print1\e-5n1-ps"
        WshNetwork.SetDefaultPrinter "\\print1\e-5n1-ps"
    Case "7jq6"
        net.AddWindowsPrinterConnection "\\print1\e-ns-5sinpat-ps"
        WshNetwork.SetDefaultPrinter "\\print1\e-ns-5sinpat-ps"
    Case "ieg5"
        net.AddWindowsPrinterConnection "\\print1\e-6e1-ps"
        WshNetwork.SetDefaultPrinter "\\print1\e-6e1-ps"
    Case "ieg7"
        net.AddWindowsPrinterConnection "\\print1\e-6n2-ps"
        WshNetwork.SetDefaultPrinter "\\print1\e-6n2-ps"
    Case "ieg1"
        net.AddWindowsPrinterConnection "\\print1\e-6s1-ps"
        WshNetwork.SetDefaultPrinter "\\print1\e-6s1-ps"
    Case "iem4"
        net.AddWindowsPrinterConnection "\\print1\E-CVS-HOLDING-PS"
        WshNetwork.SetDefaultPrinter "\\print1\E-CVS-HOLDING-PS"
    Case "98ic"
        net.AddWindowsPrinterConnection "\\print1\ec3-frtdsk-mfd-ps"
        WshNetwork.SetDefaultPrinter "\\print1\ec3-frtdsk-mfd-ps"
    Case "ido0"
        net.AddWindowsPrinterConnection "\\print1\ec4-frtdsk-ps"
        WshNetwork.SetDefaultPrinter "\\print1\ec4-frtdsk-ps"
    Case "i0ic"
        net.AddWindowsPrinterConnection "\\print1\ec5-frtdsk-ps"
        WshNetwork.SetDefaultPrinter "\\print1\ec5-frtdsk-ps"
    Case "k4ic"
        net.AddWindowsPrinterConnection "\\print1\ec6-frtdsk-ps"
        WshNetwork.SetDefaultPrinter "\\print1\ec6-frtdsk-ps"
    Case "k0ig"
        net.AddWindowsPrinterConnection "\\print1\ec6-nursery-ps"
        WshNetwork.SetDefaultPrinter "\\print1\ec6-nursery-ps"
    Case "i4ic"
        net.AddWindowsPrinterConnection "\\print1\ec5-nursery-ps"
        WshNetwork.SetDefaultPrinter "\\print1\ec5-nursery-ps"
    Case "94ic"
        net.AddWindowsPrinterConnection "\\print1\EC2-PEDS1-MFD-PS"
        WshNetwork.SetDefaultPrinter "\\print1\EC2-PEDS1-MFD-PS"    
    Case "96ic"
        net.AddWindowsPrinterConnection "\\print1\EC2-PEDS2-PS"
        WshNetwork.SetDefaultPrinter "\\print1\EC2-PEDS2-PS"    
    Case "70vl"
        net.AddWindowsPrinterConnection "\\print1\EC2-WMNSERV2-PS"
        WshNetwork.SetDefaultPrinter "\\print1\EC2-WMNSERV2-PS"
    Case "52it"
        net.AddWindowsPrinterConnection "\\print1\EC2-WMNSERV1-MFD-PS"
        WshNetwork.SetDefaultPrinter "\\print1\EC2-WMNSERV1-MFD-PS"
    Case "ied4"
        net.AddWindowsPrinterConnection "\\print1\7east1-ps"
            WshNetwork.SetDefaultPrinter "\\print1\7east1-ps"
    Case "ied7"
            net.AddWindowsPrinterConnection "\\print1\e-7n1-ps"
            WshNetwork.SetDefaultPrinter "\\print1\e-7n1-ps"
    Case "ief0"
            net.AddWindowsPrinterConnection "\\print1\e-7s1-ps"
            WshNetwork.SetDefaultPrinter "\\print1\e-7s1-ps"
    Case "a2ic"
            net.AddWindowsPrinterConnection "\\print1\e-7w1-ps"
            WshNetwork.SetDefaultPrinter "\\print1\e-7w1-ps"    
    Case "70tx"
            net.AddWindowsPrinterConnection "\\print1\w-cps-nurst1-ps"
            WshNetwork.SetDefaultPrinter "\\print1\w-cps-nurst1-ps" 
    Case "4m6n"
            net.AddWindowsPrinterConnection "\\print1\w-adup-nurst1-ps"
            WshNetwork.SetDefaultPrinter "\\print1\w-adup-nurst1-ps"
    Case "4m5h"
            net.AddWindowsPrinterConnection "\\print1\w-neuro-nurs1-ps"
            WshNetwork.SetDefaultPrinter "\\print1\w-neuro-nurs1-ps"
    Case "4m5i"
            net.AddWindowsPrinterConnection "\\print1\w-neuro-nurs2-ps"
            WshNetwork.SetDefaultPrinter "\\print1\w-neuro-nurs2-ps"
    Case "ei38"
            net.AddWindowsPrinterConnection "\\print1\w-suro-nurs1-ps"
            WshNetwork.SetDefaultPrinter "\\print1\w-suro-nurs1-ps"
    Case "ei39"
            net.AddWindowsPrinterConnection "\\print1\w-suro-nurs2-ps"
            WshNetwork.SetDefaultPrinter "\\print1\w-suro-nurs2-ps"
    Case "n1gj"
            net.AddWindowsPrinterConnection "\\print1\w-orth-nurs1-ps"
            WshNetwork.SetDefaultPrinter "\\print1\w-orth-nurs1-ps"
    Case "n2gj"
            net.AddWindowsPrinterConnection "\\print1\w-orth-nurs2-ps"
            WshNetwork.SetDefaultPrinter "\\print1\w-orth-nurs2-ps"
    Case "j6gj"
            net.AddWindowsPrinterConnection "\\print1\w-reha-nurs2-ps"
            WshNetwork.SetDefaultPrinter "\\print1\w-reha-nurs2-ps"
    Case "n0gj"
            net.AddWindowsPrinterConnection "\\print1\w-reha-nurs1-ps"
            WshNetwork.SetDefaultPrinter "\\print1\w-reha-nurs1-ps"
    Case "7jv4"
            net.AddWindowsPrinterConnection "\\print1\w-reha-nurs3-ps"
            WshNetwork.SetDefaultPrinter "\\print1\w-reha-nurs3-ps"
    Case "c8ic"
            net.AddWindowsPrinterConnection "\\print1\w-cc-nurs1-ps"
            WshNetwork.SetDefaultPrinter "\\print1\w-cc-nurs1-ps"
    Case "g0ic"
            net.AddWindowsPrinterConnection "\\print1\w-cc-nurs2-ps"
            WshNetwork.SetDefaultPrinter "\\print1\w-cc-nurs2-ps"
    Case "4m1g"
            net.AddWindowsPrinterConnection "\\print1\w-cc-nurs3-ps"
            WshNetwork.SetDefaultPrinter "\\print1\w-cc-nurs3-ps"
    Case "70tq"
            net.AddWindowsPrinterConnection "\\print1\w-adol-nurst1-ps"
            WshNetwork.SetDefaultPrinter "\\print1\w-adol-nurst1-ps"
    Case "4m6q"
            net.AddWindowsPrinterConnection "\\print1\w-afd-nurstn1-ps"
            WshNetwork.SetDefaultPrinter "\\print1\w-afd-nurstn1-ps"
    Case "14it"
            net.AddWindowsPrinterConnection "\\print1\w-smh-nurst1-ps"
            WshNetwork.SetDefaultPrinter "\\print1\w-smh-nurst1-ps"
    Case "4m5s"
            net.AddWindowsPrinterConnection "\\print1\ac_hp4050_ps"
            WshNetwork.SetDefaultPrinter "\\print1\ac_hp4050_ps"
    Case "4m1p"
            net.AddWindowsPrinterConnection "\\print1\w-actr-hp4kt-ps"
            WshNetwork.SetDefaultPrinter "\\print1\w-actr-hp4kt-ps"
    Case "d8gj"
            net.AddWindowsPrinterConnection "\\print1\W-INDC-HP4KT-PS"
            WshNetwork.SetDefaultPrinter "\\print1\W-INDC-HP4KT-PS" 
    Case "iei9"
            net.AddWindowsPrinterConnection "\\print1\e-5woutpt-ps"
            WshNetwork.SetDefaultPrinter "\\print1\e-5woutpt-ps"
    Case "e6ir"
            net.AddWindowsPrinterConnection "\\print1\w-mh-stafstn1-ps"
            WshNetwork.SetDefaultPrinter "\\print1\w-mh-stafstn1-ps"
    Case "l7ir"
            net.AddWindowsPrinterConnection "\\print1\w-ops-nursta1-ps"
            WshNetwork.SetDefaultPrinter "\\print1\w-ops-nursta1-ps"
    Case "iej5"
            net.AddWindowsPrinterConnection "\\print1\e-ops1-ps"
            WshNetwork.SetDefaultPrinter "\\print1\e-ops1-ps"
    Case "ij99"
            net.AddWindowsPrinterConnection "\\print1\E-SURG-AMADMT-PS"
            WshNetwork.SetDefaultPrinter "\\print1\E-SURG-AMADMT-PS"
    Case "ijc5"
            net.AddWindowsPrinterConnection "\\print1\ep-bhilab-mfd-ps"
            WshNetwork.SetDefaultPrinter "\\print1\ep-bhilab-mfd-ps"
    Case "70rq"
            net.AddWindowsPrinterConnection "\\print1\w-ns-fcu-ps"
            WshNetwork.SetDefaultPrinter "\\print1\w-ns-fcu-ps"
    Case "f6in"
            net.AddWindowsPrinterConnection "\\print1\e-3e-cath-ps"
            WshNetwork.SetDefaultPrinter "\\print1\e-3e-cath-ps"
    Case "f5in"
            net.AddWindowsPrinterConnection "\\print1\e-3w-ptr1-ps"
            WshNetwork.SetDefaultPrinter "\\print1\e-3w-ptr1-ps"
    Case "ijh4"
            net.AddWindowsPrinterConnection "\\print1\e-gi1-ps"
            WshNetwork.SetDefaultPrinter "\\print1\e-gi1-ps"
    Case "ijj1"
            net.AddWindowsPrinterConnection "\\print1\e-3e-teemfd-ps"
            WshNetwork.SetDefaultPrinter "\\print1\e-3e-teemfd-ps"
    Case "id17"
            net.AddWindowsPrinterConnection "\\print1\e-gi1-ps"
            WshNetwork.SetDefaultPrinter "\\print1\e-gi1-ps"
    Case "f9in"
            net.AddWindowsPrinterConnection "\\print1\e-4s-frtptr1-ps"
            WshNetwork.SetDefaultPrinter "\\print1\e-4s-frtptr1-ps"
    Case "k4ig"
            net.AddWindowsPrinterConnection "\\print1\E-4N-FRTDSK-PS"
            WshNetwork.SetDefaultPrinter "\\print1\E-4N-FRTDSK-PS"
    Case "if99"
            net.AddWindowsPrinterConnection "\\print1\E-SURG-AMADMT-PS"
            WshNetwork.SetDefaultPrinter "\\print1\E-SURG-AMADMT-PS"
End Select
 Else
Wscript.Echo "Error:  No Parm file available.  Unable to Add Printer!!!"
 End If


 ' ******************************************************************************
 ' Execute Citrix PNAGENT FastLaunch, but first wait until the printer is mapped
 ' or until we give up.
 ' ******************************************************************************
 const HKEY_CURRENT_USER = &H80000001
 Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!   \\.\root\default:StdRegProv")

 For Counter = 1 to 30
 strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\Windows"
oReg.GetStringValue HKEY_CURRENT_USER, strKeyPath, "Device", strValue

' if GT 0 then \\print1 Found in String and exit waiting for it.
If (InStr(1, strValue, "\\print1", 1) > 0) then
Exit For
 End If
wscript.sleep(1000)
Next  

exestr = chr(34) & "C:\Program Files\Citrix\ICA Client\pnagent.exe" & chr(34)   & " /CitrixShortcut: (3) /QLaunch " & chr(34) & "BryanLGH-VDI:FastLaunch" & chr(34)
'Oshell.Run exestr, 0, FALSE

Answer 1

我会看看HTA或Scripts使用Intranet门户安装打印机，因为它们允许您使用启发式方法来确定VB脚本是否可行。显然，在不支持它的操作系统上运行的VBScript将会断开连接。

您可以利用浏览器功能来确定操作系统和浏览器客户端......并在此基础上，利用适当的脚本为最终用户提供服务。例如，您可以将整个VBscript包装到HTA文档中，该文档将仅传递给Windows客户端，它将直接从Web服务器hta文档运行vb代码客户端，客户端不会关心差异，因为Intranet HTA文件被认为是安全的。

您需要为其他客户端查看一些AppleScript或一些常规PHP代码，以便最终用户可以使用该数据在Windows操作系统替代程序上执行脚本。

另一个选择是运行在每个客户端上运行的java编码小程序..我在其他公司看到过这种情况。他们在VDI中利用这些相同类型的功能。没有自动打印机安装...最终用户根据他们的位置选择打印机，通常他们的办公室的地理地图在浏览器中运行，用于选择脚本。 Web代码决定客户端哪个脚本适合在客户端系统上安装该特定打印机。

希望有所帮助！：）

用于在VDI中映射打印机的登录脚本

1 个答案: