{"id":71313,"date":"2004-10-01T11:18:00","date_gmt":"2004-10-01T11:18:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2004\/10\/01\/how-can-i-write-to-the-comments-field-of-a-document\/"},"modified":"2004-10-01T11:18:00","modified_gmt":"2004-10-01T11:18:00","slug":"how-can-i-write-to-the-comments-field-of-a-document","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/how-can-i-write-to-the-comments-field-of-a-document\/","title":{"rendered":"How Can I Write to the Comments Field of a Document?"},"content":{"rendered":"

\"Hey, \n

Hey, Scripting Guy! Can I add text to the Comments field of a file using a script?

— EF<\/P>\"Spacer\"\"Hey,\"Script<\/A> \n

Hey, EF. For those of you who aren\u2019t sure what EF is referring to, right-click a document in Windows Explorer and then click Properties<\/B>. In the dialog box that appears, click on the Summary<\/B> tab. See the text box labeled Comments<\/B>? That\u2019s the field EF would like to be able to populate using a script.<\/P>\n

So is that possible? As a matter of fact it is, provided you go to the Downloads Center on Microsoft.com<\/B><\/A> and download Dsofile. Dsofile installs a new COM object that allows you to both read from and write to the summary information fields for a document. For example, here\u2019s a script that adds the clever comment \u201cThis is a comment\u201d to the Comments field for a document:<\/P>

Set objPropertyReader = CreateObject(“DSOleFile.PropertyReader”)\nSet objDocument = objPropertyReader.GetDocumentProperties _\n    (“C:\\Scripts\\Test.doc”)\nobjDocument.Comments = “This is a comment.”\n<\/PRE>\n
Pretty slick, huh? Summary information fields you can change using a script include: Author; Category; Comments; Company; Keywords; LastEditedBy; Manager; Subject; and Title.<\/P>\n
And, of course, you can read the summary information fields as well:<\/P>
Set objPropertyReader = CreateObject(“DSOleFile.PropertyReader”)\nSet objDocument = objPropertyReader.GetDocumentProperties _\n    (“C:\\Scripts\\Test.doc”)\nWscript.Echo “App name: ” & objDocument.AppName\nWscript.Echo “Author: ” & objDocument.Author\nWscript.Echo “Byte count: ” & objDocument.ByteCount\nWscript.Echo “Category: ” & objDocument.Category\nWscript.Echo “Character count: ” & objDocument.CharacterCount\nWscript.Echo “Character count with spaces: ” & objDocument.CharacterCountWithSpaces\nWscript.Echo “CLSID: ” & objDocument.CLSID\nWscript.Echo “Comments: ” & objDocument.Comments\nWscript.Echo “Company: ” & objDocument.Company\nSet colCustomProperties = objDocument.CustomProperties\nFor Each strProperty in colCustomProperties\n    Wscript.Echo vbTab & strProperty.Name & “: ” & strProperty.Value\nNext\nWscript.Echo “Date created: ” & objDocument.DateCreated\nWscript.Echo “Date last printed: ” & objDocument.DateLastPrinted\nWscript.Echo “Date last saved: ” & objDocument.DateLastSaved\nWscript.Echo “Has macros: ” & objDocument.HasMacros\nWscript.Echo “Hidden slides: ” & objDocument.HiddenSlides\nWscript.Echo “Icon: ” & objDocument.Icon\nWscript.Echo “Is read only: ” & objDocument.IsReadOnly\nWscript.Echo “Keywords” & objDocument.Keywords\nWscript.Echo “Last edited by: ” & objDocument.LastEditedBy\nWscript.Echo “Line count: ” & objDocument.LineCount\nWscript.Echo “Location: ” & objDocument.Location\nWscript.Echo “Manager: ” & objDocument.Manager\nWscript.Echo “Multimedia clips: ” & objDocument.MultimediaClips\nWscript.Echo “Name: ” & objDocument.Name\nWscript.Echo “Page count: ” & objDocument.PageCount\nWscript.Echo “Paragraph count: ” & objDocument.ParagraphCount\nWscript.Echo “Presentation format: ” & objDocument.PresentationFormat\nWscript.Echo “Presentation notes: ” & objDocument.PresentationNotes\nWscript.Echo “ProgID: ” & objDocument.ProgID\nWscript.Echo “Revision number: ” & objDocument.RevisionNumber\nWscript.Echo “Slide count: ” & objDocument.SlideCount\nWscript.Echo “Subject: ” & objDocument.Subject\nWscript.Echo “Template: ” & objDocument.Template\nWscript.Echo “Thumbnail: ” & objDocument.Thumbnail\nWscript.Echo “Title: ” & objDocument.Title\nWscript.Echo “Version: ” & objDocument.Version\nWscript.Echo “Word count: ” & objDocument.WordCount\n<\/PRE>\n
Before you ask, we don\u2019t know of any method built into the operating system that enables you to modify the summary information fields; you\u2019ll have to download Dsofile to do that. It is<\/I> possible, however, to read at least some of this information using the Windows Shell object. For details, check out this section of the Microsoft Windows 2000 Scripting Guide<\/B><\/A>.<\/P><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! Can I add text to the Comments field of a file using a script?— EF Hey, EF. For those of you who aren\u2019t sure what EF is referring to, right-click a document in Windows Explorer and then click Properties. In the dialog box that appears, click on the Summary tab. See the […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[38,3,12,5],"class_list":["post-71313","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-files","tag-scripting-guy","tag-storage","tag-vbscript"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! Can I add text to the Comments field of a file using a script?— EF Hey, EF. For those of you who aren\u2019t sure what EF is referring to, right-click a document in Windows Explorer and then click Properties. In the dialog box that appears, click on the Summary tab. See the […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/71313","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=71313"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/71313\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=71313"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=71313"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=71313"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}