[Déplacé .Net -- VBS] Distinguer les OSRésolu

Question

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

Merci beaucoup de votre aide, je sais le faire sous bat mais pas vbs :( (j'apprend à peine le vbs)

Passez une bonne journée !
Cdlt

cs_Rode69 · Accepted Answer

Rebonjour,

J'ai réussi à résoudre mon problème, voici le code pour les intéressés :

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 & "oot\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

cs_Jack · Answer

Salut
J'ai tapé "vbscript os version" dans mon navigateur internet favori et j'ai trouvé la solution en 12 sec !

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_Jack · Answer

Ou encore celle-là

cs_Rode69 · Answer

Merci de ta réponse.

Le code de ton 1er lien n'est pas du tout optimisé...
Le second lien a l'air nikel sauf que je n'arrive pas à le faire marcher

Voila ce que j'ai fais : 

If NOT OSName = "Windows XP" Then
WScript.Quit
End If

Mais le script s'arrête là (mes imprimantes ne se suppriment pas)

Une idée?
Je te remercie

PCPT · Answer

... à toi d'adapter quand même
t'as le test, à toi de choisir quelle condition tu appliques, non?....

cs_JMO · Answer

Bonjour à tous,

Non testé de remplacer EnumPrinterConnections par RemovePrinterConnection.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & _
    "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colOS = objWMIService.ExecQuery(_
    "Select * from Win32_OperatingSystem")

For Each objOS in colOS
    If InStr(objOS.Caption, "XP") Then
       Set WshNetwork = WScript.CreateObject("WScript.Network")
       Set oPrinters = WshNetwork.EnumPrinterConnections

       For i = 0 to oPrinters.Count - 1 Step 2
           WScript.Echo objOS.Caption & vbcr & _
                        "Port " & oPrinters.Item(i) & _ 
                        " = " & oPrinters.Item(i+1)
       Next
       Set WshNetwork = Nothing
       Set oPrinters = Nothing
    End if
Next

Set objWMIService = Nothing
Set colOS = Nothing


jean-marc

cs_Rode69 · Answer

Merci à tous de votre aide mais depuis ce matin je suis dessus et je n'y arrive pas... (alors que je suis sur que c'est simple quand on connait la solution...comme toujours)

Je vous donne mon bout de code qui permet de supprimer une imprimante en port local (il fonctionne) :

strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "oot\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
    ("Select * From Win32_Printer") 

For Each objPrinter in colInstalledPrinters

    If objPrinter.Portname = "\serveur\imprimante" Then
    	objPrinter.Delete_
    End If



J'ai essayé toute vos manip, en vain.
Si vous pouviez m'aider...

Merci

cs_Rode69 · Answer

Personne n'a une idée ?

[Déplacé .Net --> VBS] Distinguer les OS

8 réponses

Votre réponse

Discussions similaires