A Windows Script that generates an advanced property sheet for all the files in a given folder

WINDOWS SCRIPTING CORNER @ WISDOMBAY

A periodic Section maintained by Pramod S Nair

20. A Windows Script that generates an advanced property sheet for all the files in a given folder

Posted on WisdomBay @ 8-24-2006 | Post by Pramod S Nair

This script can be used to generates an advanced property sheet for all the files in a given folder.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'A Windows Script that Enumerate Advanced information about the files contained inside a folder. 'The output is Written into an html file named FileInfo.htm at the root of C:\ drive 'Hyper Property Sheet Script 'HyperPropertySheet.vbs 'USAGE : CScript HyperPropertySheet.vbs <foldername> 'Compiled by Pramod S Nair 'http://www.wisdombay.com 'Written 10:39 PM 8/24/2006 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'START OF CODE On Error Resume Next 'Set the folder to Enumerate Dim ourFolder 'Check if a folder is passed as an argument in to the script If Wscript.Arguments.Count = 1 Then ourFolder = Wscript.Arguments(0) Else 'If no parameter is passed show a Usage message & terminate Wscript.Echo "Hyper Property Sheet Script By Pramod S Nair [http://www.wisdombay.com]" Wscript.Echo "Usage : CScript HyperPropertySheet.vbs <FOLDERNAME>" Wscript.Quit 0 End If 'Check the User Argument for a valid path Set tfs = Wscript.CreateObject("Scripting.FileSystemObject") Set f = tfs.GetFolder(ourFolder) If Err.Number <> 0 Then 'Some Path error occured Wscript.Echo "Hyper Property Sheet Script By Pramod S Nair [http://www.wisdombay.com]" Wscript.Echo "Error : Bad folder name provided. Please input a valid folder name as the argument" Wscript.Quit Err.Number End If 'Now start the processing preperations 'Set an Output Buffer Dim outBuffer outBuffer = "" 'Set the initial things inside the buffer. outBuffer = "<HTML><HEAD><TITLE>Hyper Property Sheet For " & ourFolder & "</TITLE>" & vbnewline outBuffer = outBuffer & "<STYLE>" & vbnewline outBuffer = outBuffer & ".th{font-size:17;color:white;background:black;font-weight:bold}" & vbnewline outBuffer = outBuffer & ".t1{font-size:14;color:black;background:white;border:2 green solid}</STYLE></HEAD>" & vbnewline outBuffer = outBuffer & "<BODY><H3 align='center' style:'font-size:15;color:#3333cc;'>Hyper Property Sheet For " & ourFolder & "</H3>" outBuffer = outBuffer & "<TABLE border='1' style='border:2 green solid'>" 'Create a Shell Application object Set shApp = CreateObject("Shell.Application") Set fldr = shApp.NameSpace(ourFolder) 'Loop through each of the files contained inside the folder object dim ir ir =0 f ="y" For Each flItem in fldr.Items 'Get all the 40 Property Sheet Properties If (ir mod 4) = 0 then if f ="y" Then outBuffer = outBuffer & "<TR class='t1' valign='top'><TD class='t1'>" & vbnewline f = "n" else outBuffer = outBuffer & "</TR><TR class='t1' valign='top'><TD class='t1'>" & vbnewline end if Else outBuffer = outBuffer & "<TD class='t1'>" & vbnewline End if outBuffer = outBuffer & "<span class='th'> Object : " & fldr.GetDetailsOf(flItem,0) & "</span><br>" & vbnewline For j = 1 to 39 If fldr.GetDetailsOf(flItem,j) <> "" Then outBuffer = outBuffer & fldr.GetDetailsOf(0,j) & " : " & fldr.GetDetailsOf(flItem,j) & "<BR>" & vbnewline End if Next If (ir mod 4) = 0 then outBuffer = outBuffer & "</TD>" & vbnewline Else outBuffer = outBuffer & "</TD>" & vbnewline End If ir = ir +1 Next 'Add the remaining format strings to the output buffer outBuffer = outBuffer & "</TABLE>" outBuffer = outBuffer & "<h4 style='color:blue'>Generated by HyperPropertySheet.vbs from http://www.wisdombay.com</h4></BODY></HTML>" 'Write the info to our out file outFlNam = "c:\HPS.htm" Set fso = CreateObject("Scripting.FileSystemObject") Set g = fso.CreateTextFile(outFlNam, True) g.WriteLine outBuffer g.close Wscript.Echo "Output Redirected to " & outFlNam 'End of Script

How to use :
1. Copy the code given above to clipboard.
2. Create a new file and name it as 'HyperPropertySheet.vbs'.
3. Now you can use this script for getting the Physical address or MAC Address of a Remote PC .

articles

is cmd.exe... some IE key... learn javascript... assembly info & .NET 2005...

downloads

MEDIANET XP CD KEY EXTRACTOR ALTTAB SWITCHER

WISDOMBAY

in4mation ... organized

WINDOWS SCRIPTING CORNER @ WISDOMBAY

A periodic Section maintained by Pramod S Nair

20. A Windows Script that generates an advanced property sheet for all the files in a given folder

articles

downloads

Site info