Reference Guide

'*** Set up the output file

Set ColSystem=objWMIService.execquery ("Select * from " & strClassName)

outString = "RAID Type = "

For Each objItem in ColSystem

For Each p in objItem.Properties_

If p.Name = "RAIDTypes" Then

Select Case p.Value

Case 1

outString = outString & "No RAID" & VbCrLf

Case 2

outString = outString & "RAID0" & VbCrLf

Case 4

outString = outString & "RAID1" & VbCrLf

Case 64

outString = outString & "RAID5" & VbCrLf

Case 128

outString = outString & "RAID6" & VbCrLf

Case 2048

outString = outString & "RAID10" & VbCrLf

Case 8192

outString = outString & "RAID50" & VbCrLf

Case 16384

outString = outString & "RAID60" & VbCrLf

Case Else

outString = outString & "UNSUPPORTED" & VbCrLf

End Select

End If

Wscript.StdOut.WriteLine outString

'*** If any errors occurred, let the user know

If Err.Number <> 0 Then

WScript.Echo "Enabling Trusted Platform Module failed."

End If

368