Distinguer les OS

Bonjour,

Je suis en train de créer un petit script qui supprime des imprimantes en local port.
Ce qu'il me faudrait, c'est que tout au début du script, qu'il y ait une ligne :

Si le poste a Windows 2000 ou autre ==> Quit
Si le poste a Windows XP ==> Continuer le script

J'ai trouvé quelques bout de code sur le net mais je n'arrive pas à m'en servir...

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10

strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colInstalledPrinters = objWMIService.ExecQuery _ ("Select * From Win32_Printer")   For Each objPrinter in colInstalledPrinters   If objPrinter.Portname = "\\serveur\imprimante" Then objPrinter.Delete_ End If

---

Je vous remercie d'avance de votre aide.

Rebonjour,

J'ai réussi à résoudre mon problème, voici le code pour les intéressés :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Dim wshShell, strCmd, oRep, strReponse Set wshShell = CreateObject("WScript.Shell")   strCmd = "cmd.exe /C ver" Set oRep = wshShell.Exec(strCmd) strReponse = Trim(oRep.StdOut.ReadAll)   If (Replace(strReponse, "Windows XP", "") = strReponse) Then WScript.Quit 0 End if   strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colInstalledPrinters = objWMIService.ExecQuery _ ("Select * From Win32_Printer")     For Each objPrinter in colInstalledPrinters If objPrinter.Portname = "\\serveur\imprimante" Then objPrinter.Delete_ End If     Next

---

Bonne soirée