'Script name: addcomment.vbs
'Created on: Thursday, April 19, 2007
'Author: Ketan Kothari
'Purpose: Add Comments to Files. You can enable the comment column, by right clicking on Name Field 
'on the top grey bar and select comment. Tested on Windows XP 
'You will also need to down load Microsoft Developer Support OLE File Property Reader 2.0 Sample 
'(KB 224351) DsoFileSetup_KB224351_x86.exe for this.
'Download link: http://www.microsoft.com/downloads/details.aspx?FamilyID=9ba6fac6-520b-4a0a-878a-53ec8300c4c2&DisplayLang=en 'or search for DSOFile.
'Also you can add this script to right click context menu for any file as follows. 
'Go to HKEY_CLASSES_ROOT
'Create shell Key if it does not exists
'Create a Key Add Comment under Shell Key
'Create a Key Command under Add Comment
'Set default value as follows for Command key. 
'wscript.exe C:\scripts\addcomment.vbs "%1" 
'Issues with this script: For Non Microsoft office file, if you are adding the comment for the first time, 
'it does not work and gives error message Permission denied. You need to add the comment 
'first time yourself by selecting properties and adding the comment. It works fine after that. 
'This is not a issue with microsoft office files.
'The details are at http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=160868&SiteID=1
'Information about DSofile.dll is at http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q224351 
'-----------------------------------------------------------------
'Remember to replace scripts with your folder name. Now you can right click on any file and add, modify or delete the
'comments. This is a great way to add additional information about an existing file. 

'This file allows you to add comment to any file.

if wscript.Arguments.count > 0 then
   doc = wscript.Arguments(0)
   Set fso = CreateObject("Scripting.FileSystemObject")
   If (fso.FileExists (doc)) Then
      Set objFile = CreateObject("DSOFile.OleDocumentProperties")
            objfile.open(doc)
            current_comment = objfile.SummaryProperties.comments
            comment = InputBox("Enter Comment",doc,current_comment) 
            'User Enters the Cancel Button
            if TypeName(comment) = "Empty" Then
               Wscript.Quit
            else   
               if comment <> current_comment  then 
                 objfile.SummaryProperties.comments = comment
                 objfile.save
               end if    
            end if
   else
      MsgBox "File does not exists",vbOKOnly,doc 
   end if
 else
     MsgBox "No Filename provided",vbOKOnly
 end if