Bonjour et bonne fêtes à tous !!!!
Je me permets de vous consulter car je rencontre un problème au niveau de sélection d’imprimante.
Ma problématique se trouve chez un de mes clients qui vient de passer sous TSE 2008 Serveur.
J’ai un contrôleur de domaine avec prêt de 800 utilisateurs qui se trouvent tous dans une même OU
Ce n’est pas moi ai choisi !
Ces mêmes utilisateurs sont sur des sites différents avec chaque site plusieurs étages.
Chaque utilisateur se connecte à une session TSE.
Lors des connexions TSE, l’imprimante locale est remontée dans la session TSE
J’ai un serveur d’impression avec tous les copieurs et les pilotes d’impressions.
Ma problématique est simple :
Je cherche à utiliser l’imprimante locale pour identifier quel imprimante du serveur d’impression doit être défini comme impression par défaut. (Encore une fois pas le choix, le client n’a aucune autre manière d’identifier le lieu.)
Il y a encore quelques semaines, le serveur TSE était sous 2003 serveur. Et un script de ma composition fonctionnait très bien.
Depuis que le client a passé ce serveur TSE en 2008, le script VBS ne fonctionne plus.
Le script récupéré l’imprimante par défaut de la session TSE (qui est la redirection de l’imprimante de la session locale) puis allait chercher l’équivalent sur le serveur d’impression.
Maintenant, sur 2008, le script installe bien mon imprimante mais refuse de la passer par défaut.
La fonction VBS SetDefaultPrinter ne fonctionne pas.
J’ai testé autre chose :
Quand, lors de la connexion à TSE, l’imprimante local n’est pas récupéré, le SetDefaultPrinter fonctionne bien.
Est-ce normal ?
Pouvez-vous m’aider ?
Ci-dessous le script VBS :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54 'instance WNetwork Set wshNetwork = WScript.CreateObject("WScript.Network") NomMachine = WshNetwork.ComputerName If NomMachine = "PC-DMEXIS" then 'Recuperation des imprimantes strComputer = "." On Error Resume Next Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colInstalledPrinters = objWMIService.ExecQuery _ ("Select * from Win32_Printer") For Each objPrinter in colInstalledPrinters 'si imp est par defaut If objPrinter.Default = True Then NomImpDef=objprinter.Name 'expression reguliere set Modele = new RegExp 'modele de recherche Modele.pattern=".*\(" 'application du modele Set correspondances = Modele.execute(NomImpDef) If correspondances.count<>0 Then For i=0 To correspondances.count-1 'suppression des 2 dernier caractere NewNomImp = Left(correspondances(i),Len(correspondances(i))-2) Next End if 'ajout de l'imp wshNetwork.addWindowsPrinterConnection "\\SERVEUR-TESTIMP.DOMAINETEST.LOCAL\" & NewNomImp 'imp par defaut wshNetwork.setdefaultprinter "\\SERVEUR-TESTIMP.DOMAINETEST.LOCAL\" & NewNomImp Else End If Next Else wscript.echo "Pas sur TSE" End If
Partager