Bonjour à tous
Je cherche un moyen de mapper le port LPT1 sur une imprimante Réseau
(pour une vieille appli DOS).
(du genre net use LPT: \\serveur\partage )
Sachant qu'il faut être administrateur de la machine pour mapper ce port
, je lance donc un RUN AS user/administrateur
monscriptVB_transformer_en_exe_par_VBEDIT
Je précise qu'en administrateur, ça marche bien.
En compte limité
Ca marche a peu près bien (ça imprime et pas de message d'erreur !!)
...mais ensuite, le port est invisible pour le système et rien ne
s'exécute bien ensuite à propos du LPT1.
2 méthodes ont été utilisées et je perd le contrôle ensuite de toute
commande sur le LPT1
1er méthode (pur VBS) :
Ca imprime bien sur l'imprimante mais tout autre commande sur le LPT1
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Set WshNetwork = WScript.CreateObject("WScript.Network") PrinterPath = "\\nom_du_serveur\nom_de_partage" WshNetwork.AddPrinterConnection "LPT1", PrinterPath
n'est plus prise en compte !!!
Exemple : en mode de commande :net use LPT1 => erreur "la connexion
réseau est introuvable"
ou en pur VBS :
=> le port LPT1 n'apparait pas !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Set WshNetwork = WScript.CreateObject("WScript.Network") Set oDevices = WshNetwork.EnumPrinterConnections For i = 0 To oDevices.Count - 1 Step 2 Text = Text & oDevices(i) & " " & oDevices(i+1) & vbCrLf Next MsgBox Text, vbOKOnly + vbInformation
*****************************************
Partager