au programme pour demain, 75 imprimantes à scripter pour installation auto 
150 si j'ai le courage de faire la version winxp en plus de win7 ![[:agug] [:agug]](http://forum.condylure.info/Smileys/default/agug.gif)
' Verification de la version Windows
Set objShellExec = objShell.Exec("%comspec% /c ver")
Set oStdOutputText = objShellExec.StdOut
Do While Not oStdOutputText.AtEndOfStream
sText = oStdOutputText.ReadLine
If InStr(sText, "Windows 2000") <> 0 Then ' Cas Windows 2000
ParamSnap = ""
End If
If InStr(sText, "Microsoft Windows [Version") <> 0 Then ' Cas Windows XP
ParamSnap = "
End If
Loop