listprop.vbs

Apress - Managing Enterprise Systems With The Windows Script Host Source Code

'listprop.vbs
'lists schema properties for specified object
Dim objClass,varAttrib, aval, objObject, strLine
On Error Resume Next

 If Wscript.Arguments.Count <> 1 Then 
   ShowUsage
   Wscript.Quit
 End If 

 'get the object
 Set objObject = GetObject(Wscript.Arguments (0))

 If Err Then
  Wscript.Echo "Unable to get object " & Wscript.Arguments (0)
  Wscript.Quit
 End If
 
 Set objClass = GetObject(objObject.Schema)
 Wscript.Echo "Mandatory Attributes: "

 For Each varAttrib In objClass.MandatoryProperties
  strLine = "   " & varAttrib 
     If IsArray(objObject.Get(varAttrib)) Then
        If Not Err Then
         For Each aval In objObject.Get(varAttrib)
            varAttrib = varAttrib & "," & aval
         Next
        End If
    Else
        strLine = strLine & " " & objObject.Get(varAttrib)
    End If
    If Err Then strLine = strLine & " No value"

    Err.Clear
    Wscript.Echo strLine 
 Next 

 Wscript.Echo "Optional Attributes: "
 For Each varAttrib In objClass.OptionalProperties
   strLine = "   " & varAttrib
   objObject.GetInfoEx Array(varAttrib), 0
   'check if object is an array
    If IsArray(objObject.Get(varAttrib)) Then
        If Not Err Then 
         For Each aval In objObject.Get(varAttrib)
            strLine = strLine & "," & aval
         Next
        End If
    Else
        strLine = strLine & " " & objObject.Get(varAttrib)
    End If
        If Err Then strLine = strLine & " No value"
    Err.Clear
  Wscript.Echo strLine
 Next 

Sub ShowUsage
  WScript.Echo "listprop list properties for specified object" _
    & vbCrLf &  "Syntax:" &  vbCrLf & _
    "listprop.vbs objectpath" &  vbCrLf & _
     "objectpath Path to " & vbCrLf & _
     "Example: List details about computer Odin" & vbCrLf & _
     "listprop WinNT://Odin,computer"
End Sub