Imprimante virtuelle indirecte pour élèves

echo %~1_[%~2] > c:\test_ok.txt

Ton projet est très séduisant et je ne doute pas que tu vas arriver à le réaliser 

Windows Registry Editor Version 5.00

; a executer sur tous les postes clients au deploiement
[HKEY_CLASSES_ROOT\*\shell\-= Envoyer pour imprimer =-\Command]
@="wscript \"\\\\<nom_serveur>\\<dossier_partage>$\\sendDoc.vbs\" \"%1\""

' sendDoc v 1.2
' script pour permettre aux eleves d'envoyer un document au formateur
' LNJ 21:11 06/09/2011

Dim fichier, cheminFichier, nomFichier, user, lecteursReseaux, cheminCible
Dim cheminUNCUtilisateur
Dim fso, lnk, shell, colDiskDrives, shellProcessEnv, xmlConfig
Const FloppyDisc = 1, FixedDrive = 2, NetworkDrive = 3


Set shell = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

' Le script necessite un unique parametre
' NB : vu qu'on ne peut selectionner n fichiers, le script sera lance n fois, donc ne pas indiquer d'erreur !
If WScript.Arguments.Count <> 1 Then
  WScript.Quit()  
End If

fichier = WScript.Arguments(0)

' On lit la configuration depuis le dossier du script
' https://baptiste-wicht.developpez.com/tutoriels/microsoft/vbscript/xml/xpath/
Set xmlConfig = CreateObject("Microsoft.XMLDOM")
xmlConfig.Async = False
xmlConfig.Load(fso.GetParentFolderName(WScript.ScriptFullName) & "/config.xml")
cheminCible = xmlConfig.selectSingleNode("/data/configuration/chemin_cible").text
Set xmlConfig = Nothing


' On separe le chemin, du nom
cheminFichier = Mid(fichier, 1, InStrRev(fichier, "\"))
nomFichier = Right(fichier, Len(fichier) - InStrRev(fichier, "\"))


' On recupere le nom de l'utilisateur
' https://vb.developpez.com/faq/vbs
Set shellProcessEnv = shell.Environment("Process") 
user = shellProcessEnv("USERNAME")
Set shellProcessEnv = Nothing



' On verifie si la source est enregistree depuis un lecteur reseau et on recupere le chemin UNC
' https://forum.hardware.fr/hfr/Programmation/VB-VBA-VBS/lister-lecteurs-reseaux-sujet_121798_1.htm
Set colDiskDrives = fso.Drives
lecteursReseaux = ""
For Each objDiskDrive in colDiskDrives
    If objDiskDrive.DriveType = NetworkDrive then
        lecteursReseaux = lecteursReseaux & objDiskDrive.DriveLetter

				' On recupere le chemin UNC du lecteur reseau de l'utilisateur
        If objDiskDrive.DriveLetter = Left(fichier, 1) Then
          cheminUNCUtilisateur = objDiskDrive.ShareName & _
							Right(fichier, Len(fichier) - 2)
        End If
    End if
Next
Set colDiskDrives = Nothing

If InStr(lecteursReseaux, Left(fichier, 1)) = 0 Then
	Msgbox "Pour envoyer ce document, vous devez d'abord enregistrer le document sur " & _
		"votre lecteur réseau personnel ou de classe !", vbExclamation, "Attention !"
	WScript.Quit()
End If


' Creation du raccourci avec le nom du user
' https://www.developpez.net/forums/d388921/autres-langages/general-visual-basic-6-vbscript/vbscript/creation-d-raccourci-vbs/
Set lnk = shell.CreateShortcut(cheminCible & user & "_" & nomfichier & ".lnk")
lnk.TargetPath = cheminUNCUtilisateur
lnk.Save
Set lnk = Nothing

MsgBox "Le document " & chr(34) & nomFichier & chr(34) & " a été envoyé avec succès !", vbInformation, "Succès !"


Set fso = Nothing
Set shell = Nothing

WScript.Quit()

<?xml version="1.0" encoding="ISO-8859-1"?>
<data>
	<configuration>
		<chemin_cible>
			 \\<nom_serveur>\a_imprimer$\
		</chemin_cible>
	</configuration>
</data>