DIM Ordinateur, Imprimante, ImprimanteWin
Dim fso, MyFile
Dim Input
dim arrInput
dim Debut, fin, AjoutImprimante, Defaut, User, Utilisateur
Const ForReading = 1
Dim X
set X = createobject("WSCRIPT.Network")
dim U
U=x.UserName
wscript.sleep(2000)
'Création des références d'objets
Set WshNet = WScript.CreateObject("WScript.Network")
Set net = WScript.CreateObject("WScript.Network")
Set WshNetwork = CreateObject("WScript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshSysObj = WshShell.Environment("PROCESS")
Set fso = CreateObject("Scripting.FileSystemObject")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colComputer
User= objComputer.UserName
Next
set net=nothing
Imprimante= ""
ImprimanteWin="aucune"
on error resume next
' Identification des imprimantes selon le POSTE de travail
Set tsInputFile = fso.OpenTextFile("\\UQAT.PRIV\SysVol\UQAT.PRIV\Policies\{2DB4072B-1FA1-4442-8365-B79B386F5DF2}\User\Scripts\Logon\ImprimanteDefinitionNomOrdi.txt", ForReading, False)
While Not tsInputFile.AtEndOfStream
strLine = tsInputFile.ReadLine
if not (strLine ="") and not (left(strLine,1)="'") then
arrInput = Split(strLine, ":")
Debut = arrInput(0)
fin=arrInput(1)
AjoutImprimante=arrInput(2)
Defaut=arrInput(3)
if ((ucase(Ordinateur) >= ucase(Debut) and ucase (ordinateur)<=ucase(fin)) and len(ordinateur)=len(fin)) or ((ucase(Ordinateur) >= ucase(Debut) and ucase (ordinateur)<=ucase(fin)) and len(ordinateur)=len(debut)) then
' A : ajouter l'imprimante
' D : définir l'imprimante par défaut
' AD : On ajoute l'imprimante et elle devient l'imprimante par défaut
if (ucase(Defaut) = "A") then
WshNetwork.AddWindowsPrinterConnection AjoutImprimante
end if
if (ucase(Defaut) = "D") then
WshNetwork.SetDefaultPrinter AjoutImprimante
end if
if (ucase(Defaut) = "AD") then
WshNetwork.AddWindowsPrinterConnection AjoutImprimante
WshNetwork.SetDefaultPrinter AjoutImprimante
end if
end if
end if
Wend
tsInputFile.Close
WScript.Quit
|