Discussion :

[Rode69]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Rode69]

Rebonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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