Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1825 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  utilisation de Win32_PrinterConfiguration

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

utilisation de Win32_PrinterConfiguration

n°1838621
virus2000f​r
Posté le 15-01-2009 à 20:15:53  profilanswer
 

Code :
  1. Dim objWMIService, colPrinters, objItem
  2. Dim strComputer
  3. Dim nom
  5. On Error Resume Next
  6. strComputer = "."
  7. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2" )
  8. Set colPrinters = objWMIService.ExecQuery("Select * from Win32_PrinterConfiguration where name ='imprimante'" )', , 48)
  13. For Each objService in colPrinters
  14.     WScript.Echo "Valeur de copies: " & objService.Copies
  15. Next


 
 
Ce script VBS affiche le nombre de page par feuille à imprimer sur une imprimante nommée "imprimante".
En vbs est-il possible de changer cette valeur ?un .set ou autre ?
THX

mood
Publicité
Posté le 15-01-2009 à 20:15:53  profilanswer
 

n°1841266
Fred_l
Posté le 21-01-2009 à 18:42:13  profilanswer
 

Code :
  1. RepDeBase = "c:\WMI_CLASSES\Scripts"
  2. SousRepDeBase = "c:\WMI_CLASSES\scripts\extraction"
  3. SousRepDeBaseLogs = "c:\WMI_CLASSES\Scripts\Logs"
  5. Set fso = CreateObject("Scripting.FileSystemObject" )
  7. If Not fso.FolderExists(RepDeBase) Then
  8. fso.CreateFolder(RepDeBase)
  9. End If
  12. If Not fso.FolderExists(SousRepDeBase) Then
  13. fso.CreateFolder(SousRepDeBase)
  14. End If
  16. If Not fso.FolderExists(SousRepDeBaseLogs) Then
  17. fso.CreateFolder(SousRepDeBaseLogs)
  18. End If
  20. strComputer = "."
  22. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2" )
  26. For Each objclass in objWMIService.SubclassesOf()
  28. intCounter=0
  30. If Left(objClass.Path_.Class,5) = "Win32" Then
  32.  For Each Qualifier in objClass.Qualifiers_
  34.   If UCase(Trim(Qualifier.Name)) = "ASSOCIATION" Then
  36.    intCounter = 1
  37.   End If
  38.  Next
  39.  If toto = 0 Then
  40.   strComputer = "."
  41.   Set objWMIService = GetObject ("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
  42.   Set strClass = objWMIService.Get(objClass.Path_.Class)
  43.   Dim fso, MonFichierVbs
  46.   Set fso = CreateObject("Scripting.FileSystemObject" )
  47.   Set MonFichierVbs = fso.CreateTextFile(SousRepDeBase & chr(92) & objClass.Path_.Class & ".vbs", True)
  49.   MonFichierVbs.WriteLine("On Error Resume Next" & VbCrLf)
  50.   MonFichierVbs.WriteLine(" strComputer = "& chr(34) & "." & chr(34) & VbCrLf)
  51.   MonFichierVbs.WriteLine("Set objFSO = CreateObject(" & chr(34) & "Scripting.FileSystemObject" & chr(34) & " )" )
  52.   MonFichierVbs.WriteLine("Set objFile = objFSO.CreateTextFile(" & chr(34) & SousRepDeBaseLogs & chr(92) & objClass.Path_.Class & ".log" & chr(34) & " )" & VbCrLf)
  53.   MonFichierVbs.WriteLine(" Set objWMIService = GetObject(" & chr(34) & "winmgmts:\\" & chr(34) & " & strComputer & " & chr(34) & "\root\cimv2" & chr(34) & " )" )
  54.   MonFichierVbs.WriteLine(" Set colItems = objWMIService.ExecQuery(" & chr(34) & "Select * from" & " " & objClass.Path_.Class & chr(34) & ",,48)" & VbCrLf)
  56.   CompteurPropriete = 0
  57.   CompteurTotal = 0
  59.   For each strItem in strClass.properties_
  60.    CompteurPropriete = CompteurPropriete + 1
  61.    'wscript.echo strItem.name
  62.   Next
  64.   CompteurTotal = CompteurPropriete + CompteurTotal
  65.   CompteurPropriete = 0
  67.   'For each strItem in strClass.properties_
  68.   ' CompteurPropriete = CompteurPropriete + 1
  69.   'Next
  71.   MonFichierVbs.WriteLine("" )
  72.   MonFichierVbs.WriteLine(" For each objItem in colItems" & VbCrLf)
  74.   CompteurPropriete = 0
  75.   AppelFunctionDate = 0
  77.   MonFichierVbs.WriteLine(" Set WshNetwork = WScript.CreateObject (" & chr(34) & "WScript.Network" & chr(34) & " )" )
  78.   'MonFichierVbs.WriteLine(" objFile.WriteLine " VBCRLF & VBCRLF & VBCRLF & chr(34) & "NomDuPoste   = " & chr(34) & " & WshNetwork.ComputerName" )
  79.   MonFichierVbs.WriteLine(" objFile.WriteLine  VBCRLF & VBCRLF & VBCRLF " )
  80.   MonFichierVbs.WriteLine(" MaDate = " & chr(34) & Date & chr(34) )
  81.   MonFichierVbs.WriteLine(" MonHeure = " & chr(34) & Time & chr(34) )
  83.   For each strItem in strClass.properties_
  84.    CompteurPropriete = CompteurPropriete + 1
  86.    If strItem.CIMType <> 101 Then
  87.     MonFichierVbs.WriteLine(" objFile.WriteLine " & chr(34) & strItem.name & "   = " & chr(34) & " & Cstr(objItem." & strItem.Name & " )" )
  89.    End If
  91.    If strItem.CIMType = 101 And CompteurPropriete <> CompteurTotal Then
  92.     MonFichierVbs.WriteLine(" objFile.WriteLine " & chr(34) & strItem.name & "   = " & chr(34) & " & TriVracDate(objItem." & strItem.name & " )" )
  93.    End If
  95.    If strItem.CIMType = 101 Then
  96.     AppelFunctionDate = 1
  97.    End If
  100.    If AppelFunctionDate = 1 And CompteurPropriete = CompteurTotal Then
  101.     MonFichierVbs.WriteLine(VbCrLf & " Next" & VbCrLf)
  102.     MonFichierVbs.WriteLine(" Function TriVracDate(CaDate)" & VbCrLf)
  103.     MonFichierVbs.WriteLine(" TriVracDate = (Left(CaDate, 4) & " & chr(34) & "/" & chr(34) & " & Mid(CaDate, 5, 2) & " & chr(34) & "/" & chr(34) & " & Mid(CaDate, 7, 2) & _" )
  104.     MonFichierVbs.WriteLine(" " & chr(34) & " - (" & chr(34) & " & (Mid(CaDate, 9, 2) & " & chr(34) & ":" & chr(34) & " & Mid(CaDate, 11, 2) & " & chr(34) & ":" & chr(34) & " & Mid(CaDate, 13, 2))) & " & chr(34) & " )" & chr(34) & VbCrLf)
  105.     MonFichierVbs.WriteLine(" End Function" & VbCRLf)
  106.    Else
  107.     If AppelFunctionDate <> 1 And CompteurPropriete = CompteurTotal Then
  108.      MonFichierVbs.WriteLine(VbCrLf & " Next" & VbCrLf)
  110.     End If
  111.    End If
  112.   Next
  115.  End If
  116. End If
  117. Next
  119. MonFichierVbs.Close
  121. Set objShell = WScript.CreateObject("WScript.Shell" )
  124. Set folder = FSO.GetFolder(SousRepDeBase) 
  125. Set file = Folder.files
  126. For each file In folder.Files
  127. If file.name <> "Win32_ActionCheck.vbs" and file.name <> "Win32_CheckCheck.vbs" and file.name <> "Win32_LogicalFileSecuritySetting.vbs" & _
  128. file.name <> "Win32_SecuritySetting.vbs" and file.name <> "Win32_SecuritySettingOfLogicalFile.vbs" and file.name <> "Win32_SecuritySettingOfObject.vbs" and & _
  129. file.name <> "Win32_ManagedSystemElementResource.vbs" and file.name <> "Win32_MethodParameterClass.vbs" and & _
  130. file.name <> "Win32_SoftwareElementAction.vbs" Then
  131.  Result = ObjShell.run (SousRepDeBase & "\" & file.name,1,TRUE)
  132. End If
  133. Next
  134. wscript.echo "End run all VBS"


 
 
Voici un script qui liste tous les objet WMI, qui fait pour chaque Objet un VBS et qui lance les VBS Créés.
 
Ainsi tu as tous les paramêtres des objets...
 
J'espère que tu trouvera ton bonheure....
 
Fred


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  utilisation de Win32_PrinterConfiguration

 

Sujets relatifs
Monitoring de l'utilisation de fonctions javascript[VB] utilisation d'une liste pour traiter des donnés
Utilisation de openssl dans C#Utilisation de Google Agenda dans application Web
utilisation de step 7callback lors de l'utilisation de la fonction "_"
Utilisation des HS ( Heterogeneous Services )[C] Utilisation d'une DLL
Utilisation de la fonction "include()"utilisation de setrlimit
Plus de sujets relatifs à : utilisation de Win32_PrinterConfiguration

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.062 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR