Welcome to Scripting Forums Sign in | Join | Help
in Search

Server 2008 & Vista Extended Properties

Last post 03-12-2008, 5:21 PM by jturnervbs. 0 replies.
Sort Posts: Previous Next
  •  03-12-2008, 5:21 PM 29395

    Server 2008 & Vista Extended Properties

    Got Server 2008 or Vista? 

    Check out all of the extended file properties now available in the new Operating Systems from Microsoft.

    267 to be exact as compared to 38 in XP, W2K and S2K3.

    This simple HTA will help you get acquainted with the names of all the extended file properties available on your system.

    It works on Vista and Server 2008 as well as XP, W2K and S2K3.


    Copy source code below into a text file and save with an .hta extension.

    <html>

    <head>
    <title>Extended File Properties Listing</title>

    <HTA:APPLICATION
         ID="XFList"
         APPLICATIONNAME="ExtendedFilePropertiesList"
         SCROLL="no"
         SINGLEINSTANCE="yes"
         WINDOWSTATE="minimize"
    >

    <style>
    BODY
    {
       background-color: buttonface;
       font-family: Helvetica;
       font-size: 8pt;
       margin-top: 8px;
       margin-left: 8px;
       margin-right: 8px;
       margin-bottom: 3px;
    }
        .style1
        {
            text-align: center;
        }
    </style>

    <Script type="text/vbscript">
    Sub Window_OnLoad
     Set objShell = CreateObject("Shell.Application")
     Set objFolder = objShell.Namespace("C:\")
     For index = 0 to 266
      If objFolder.GetDetailsOf(objFolder.Items,index) <> "" Then
       Set objOption = Document.createElement("OPTION")
       PropertyHeader = objFolder.GetDetailsOf(objFolder.Items,index)
       objOption.Text = SpacePad(index) & space(3) & PropertyHeader
       objOption.Value = index
       Select1.Add(objOption)
      End If
     Next
     self.focus
     self.ResizeTo 500,590 'w,h
    End sub

    Function SpacePad(indx)
     If indx < 10 Then
      SpacePad = space(2) & cstr(indx)
     ElseIf indx < 100 Then
      SpacePad = space(1) & cstr(indx)
     Else
      SpacePad = cstr(indx)
     End If
    End Function
    </Script>

    </head>

    <BODY STYLE="filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr='#ffffff', EndColorStr='#d3d3d3')">
    <table style="width: 44%; height: 243px;">
     <tr>
     <td></td>
     <td class="style1">
     <span>Extended File<br/>
     Properties</span></td>
     </tr>
     <tr>
     <td style="text-align: center">
     Index Number and Property Name</td>
     <td>
     <select multiple size="3" id="Select1" name="D1"
     style="height: 461px; width: 372px; text-align: center; font-family: 'Courier New', Courier, monospace; font-size: small;">
     </select></td>
     </tr>
     <tr>
     <td></td>
     <td style="text-align: center">
     <input type="button" name="ExitButton" value="Exit" onclick=self.close></td>
     </tr>
    </table>

    </BODY>
    </html>

View as RSS news feed in XML
SPONSORED LINKS FEATURED LINKS

Free Download –VS 2008 TrainingExperts Ken Getz & Robert Green plus labs, code, courseware Maximize speed, performance and reliablity of your PCs and servers—automatically!Speed Up Your PC! Try Diskeeper 2008 with InvisiTasking Free Now! Register for SolarWinds VM MonitorGet X-Ray Vision into Your ESX Servers with SolarWinds FREE VM Monitor GoGrid Offers FREE Trial for Windows Cloud ServersDeploy Windows Server 2003 and 2008 with free load balancing through GoGrid’s award winning web-based GUI – all in less than 5 minutes Order Your SQL Fundamentals CD Today! Learn how to use SQL Server, understand Office integration techniques and dive into the essentials of SQL Express and Visual Basic with this free SQL Fundamentals CD. How healthy is your Exchange Server? Find out Now!Automatic Exchange Server Maintenance helps prevent disasters and improves performance. Download a FREE Exchange Server analysis tool. You've Deployed SharePoint...Now What?This one-day free online conference delivers the technical knowledge needed to kick MOSS up a notch. In one information-packed day, independent SharePoint experts will present practical, real-world information and provide take-away, ready-to-use solutions Ease Your Scripting Pains with the Flexibility of PowerShell!Paul Robichaux equips you with PowerShell basics in 3 introductory lessons, each followed by live Q&A—all on your own computer! Register today! What Would You Do If You Ran Microsoft?ITTV's 2008 inaugural video contest, "If I Ran Microsoft..." is your chance to tell it like it is. Be goofy or be serious, but don"t miss this chance to have fun, win prizes, and go viral in a major way. Maximize Your SharePoint InvestmentThis web seminar discusses how true bi-directional replication of SharePoint content from one server to another enables branch offices to maintain access to current SharePoint content. Rock Your Knowledge, and Compete with Friends and Colleagues!Are you the Web Application Performance Guru in your office? It's time to have fun! Download now to access the crossword puzzle. Challenge yourself and complete this fun activity!

 Copyright © 2008 Penton Media, Inc., All rights reserved. Terms and Use | Privacy Statement | Reprints and Licensing