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
' 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