<%@ LANGUAGE="VBSCRIPT"%>
WMI Scripting ASP Sample - Disk Information (VBScript version)
<%
on error resume next
' Connect to the default namespace (root/cimv2)
' on the local host
Set Locator = CreateObject("WbemScripting.SWbemLocator")
Set Service = locator.connectserver
if Err = 0 then
'Retrieve the logical disk class
Set Disk = Service.Get ("Win32_LogicalDisk")
Set Path = Disk.Path_
' Retrieve the Disk instances
Set Disks = Disk.Instances_
%>
Path of object is <%=Path.DisplayName%>
| Name |
Volume Name |
Volume Serial Number |
<%
for each DiskInstance in Disks
%>
| <%=DiskInstance.Name%>
|
<%=DiskInstance.VolumeName%>
|
<%=DiskInstance.VolumeSerialNumber%>
|
<%
Next
%>
<%
Else
%>
| Error - <%=Err.description%>, <%=Err.number%>, <%=Err.Source%> |
<%
End If
%>