'----------------------------------------------------------------------
'    pubprn.vbs - publish printers from a non Windows 2000 server into Windows 2000 DS
'    
'
'     Arguments are:-
'        server - format server
'        DS container - format "LDAP:\\CN=...,DC=...."
'
'
'    Copyright (c) Microsoft Corporation 1997
'   All Rights Reserved
'----------------------------------------------------------------------

'--- Begin Error Strings ---

Dim L_PubprnUsage1_text
Dim L_PubprnUsage2_text
Dim L_PubprnUsage3_text      
Dim L_PubprnUsage4_text      
Dim L_PubprnUsage5_text      
Dim L_PubprnUsage6_text      

Dim L_GetObjectError1_text
Dim L_GetObjectError2_text

Dim L_PublishError1_text
Dim L_PublishError2_text     
Dim L_PublishError3_text
Dim L_PublishSuccess1_text


L_PubprnUsage1_text      =   "Utilisation : [cscript] pubprn.vbs Serveur ""LDAP://OU=..,DC=..."""
L_PubprnUsage2_text      =   "       Serveur est un nom de serveur Windows (par exemple : ServeurImp) ou nom UNC de l’imprimante (\\ServeurImp\Imprimante1)"
L_PubprnUsage3_text      =   "       ""LDAP://CN=...,DC=..."" est le chemin d’accès du service d’annuaires du conteneur destination"
L_PubprnUsage4_text      =   ""
L_PubprnUsage5_text      =   "Exemple 1 : pubprn.vbs MonServeur ""LDAP://CN=MonConteneur,DC=MonDomaine,DC=Societe,DC=Com"""
L_PubprnUsage6_text      =   "Exemple 2 : pubprn.vbs \\MonServeur\Imprimante1 ""LDAP://CN=MonConteneur,DC=MonDomaine,DC=Societe,DC=Com"""

L_GetObjectError1_text   =   "Erreur : chemin d’accès "
L_GetObjectError2_text   =   " introuvable."
L_GetObjectError3_text   =   "Erreur : impossible d’accéder à "

L_PublishError1_text     =   "Erreur : pubprn ne peut pas publier les imprimantes à partir de "
L_PublishError2_text     =   " car il exécute Windows 2000, ou une version ultérieure."
L_PublishError3_text     =   "Impossible de publier l’imprimante "
L_PublishError4_text     =   "Erreur : "
L_PublishSuccess1_text   =   "Imprimante publiée : "

'--- End Error Strings ---


set Args = Wscript.Arguments
if args.count < 2 then
    wscript.echo L_PubprnUsage1_text
    wscript.echo L_PubprnUsage2_text
    wscript.echo L_PubprnUsage3_text
    wscript.echo L_PubprnUsage4_text
    wscript.echo L_PubprnUsage5_text
    wscript.echo L_PubprnUsage6_text
    wscript.quit(1)
end if

ServerName= args(0)
Container = args(1)


on error resume next
Set PQContainer = GetObject(Container)

if err then
    wscript.echo L_GetObjectError1_text & Container & L_GetObjectError2_text
    wscript.quit(1)
end if
on error goto 0



if left(ServerName,1) = "\" then

    PublishPrinter ServerName, ServerName, Container

else

    on error resume next

    Set PrintServer = GetObject("WinNT://" & ServerName & ",computer")

    if err then
        wscript.echo L_GetObjectError3_text & ServerName & ": " & err.Description
        wscript.quit(1)
    end if

    on error goto 0


    For Each Printer In PrintServer
        if Printer.class = "PrintQueue" then PublishPrinter Printer.PrinterPath, ServerName, Container
    Next


end if




sub PublishPrinter(UNC, ServerName, Container)

    
    Set PQ = WScript.CreateObject("OlePrn.DSPrintQueue.1")

    PQ.UNCName = UNC
    PQ.Container = Container

    on error resume next

    PQ.Publish(2)

    if err then
        if err.number = -2147024772 then
            wscript.echo L_PublishError1_text & Chr(34) & ServerName & Chr(34) & L_PublishError2_text
            wscript.quit(1)
        else
            wscript.echo L_PublishError3_text & Chr(34) & UNC & Chr(34) & "."
            wscript.echo L_PublishError4_text & err.Description
        end if
    else
        wscript.echo L_PublishSuccess1_text & PQ.Path
    end if

    Set PQ = nothing

end sub