utilisation de Win32_PrinterConfiguration

utilisation de Win32_PrinterConfiguration - VB/VBA/VBS - Programmation

Marsh Posté le 15-01-2009 à 20:15:53    

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

Reply

Marsh Posté le 15-01-2009 à 20:15:53   

Reply

Marsh Posté le 21-01-2009 à 18:42:13    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed