<%@ LANGUAGE="VBSCRIPT"%> <HTML> <HEAD> <TITLE>Scripting Test 1</TITLE> </HEAD> <BODY> <% on error resume next Set Locator = CreateObject("WbemScripting.SWbemLocator") Set Service = locator.connectserver ("ludlow") if Err = 0 then Set Disk = Service.Get ("Win32_LogicalDisk") Set Path = Disk.Path_ Disk.Security_.impersonationLevel = 3 Set Disks = Disk.Instances_ %> <P>Path of object is <%=Path.DisplayName%></P> <TABLE BORDER> <TR> <TH>Name</TH> <TH>Volume Name</TH> <TH>Volume Serial Number</TH> </TR> <% for each DiskInstance in Disks %> <TR> <TD><%=DiskInstance.Name%></TD> <TD><%=DiskInstance.VolumeName%></TD> <TD><%=DiskInstance.VolumeSerialNumber%></TD> </TR> <% Next %> <% Else %> <P>Error - <%=Err.description%>, <%=Err.number%>, <%=Err.Source%></P> <% end if %> </TABLE> </BODY> </HTML>