strADSPath="WinNT://GODOT/lanmanserver,service"
Set objVar=GetObject(strADSPath)
strHeader="General Object properties for " & objVar.Name

WScript.echo strHeader
WScript.Echo String(Len(strHeader),"-")

Set objClass = GetObject(objVar.Schema)
Wscript.Echo "Class: " & objClass.Name
Wscript.Echo "GUID: " & objClass.GUID
Wscript.Echo "Implemented by: " & objClass.CLSID

WScript.Echo VbCrLf

strMandatoryHeader="Mandatory Properties in this Class (" &_
UBound(objClass.MandatoryProperties)+1 & "): "
Wscript.Echo strMandatoryHeader
WScript.Echo String(Len(strMandatoryHeader),"-")
For Each objProperty In objClass.MandatoryProperties
    Wscript.Echo "  " & objProperty & " :  " &_
     GetValue(objVar,objProperty)
Next

WScript.Echo VbCrLf

strOptionalHeader="Optional Properties in this Class (" &_
UBound(objClass.OptionalProperties)+1 & "): "
Wscript.Echo strOptionalHeader
WScript.Echo String(Len(strOptionalHeader),"-")

For Each objProperty In objClass.OptionalProperties
   Wscript.Echo "  " & objProperty & " : " &_
    GetValue(objVar,objProperty)
Next
    
WScript.quit
  
 Function GetValue(objItem,strProperty)
 On Error Resume Next
 Dim objProperty
 objProperty=objItem.Get(strProperty)
 If TypeName(objProperty)<>"Empty" Then
     If IsArray(objProperty) Then
        if TypeName(objProperty)="Byte()" Then
            strProp="Byte array"
        Else
           WScript.echo "!!" & strProperty & " is an array!!"
            For x=0 To UBound(objProperty)-1
                strProp=strProp & "  " &objProperty(x) & VbCrLf
            Next
        End If
    Else
    End If
 Else
    strProp="Not Defined"
 End If
   GetValue=strProp

End Function