Private Sub Form_Click()
Dim W1 As WbemScripting.SWbemLocator
Dim S As WbemScripting.SWbemServices
Dim OS As WbemScripting.SWbemObjectSet
Dim O As WbemScripting.SWbemObject
Set W1 = New WbemScripting.SWbemLocator
Set S = W1.ConnectServer
Set OS = S.InstancesOf("Win32_PrintJob")
For Each O In OS
Me.Print O.GetObjectText_
Next
Set OS = Nothing
Set S = Nothing
Set W1 = Nothing
End Sub
上面代码执行后
结果如下:
请问:
图中各项属性后面的值代表什么意思???