Leaked source code of windows server 2003
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
<%@ 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>
|
