Udvidede egenskaber på en fil

Jeg kunne godt tænke mig at lave et script hvor jeg kan tilføje bemærkninger til feltet "comments" på en fil.

Dette hører til extended file properties.

jeg kan sagtens hente mine oplysninger med GetDetailsof - men jeg kan ikke finde ud af hvordan jeg lægger noget tilbage som oplysning på filen.

---------------------- her er hvad jeg har pt. ---------------
        dim objShell
        dim objFolder
       
        set objShell = CreateObject("Shell.Application")
        set objFolder = objShell.NameSpace("R:\PICTURES\Mette\Mette 9md\")

        if (not objFolder is nothing) then
            dim objFolderItem

            set objFolderItem = objFolder.ParseName("Mette_ 077.jpg")

            if (not objFolderItem Is Nothing) then
                dim objInfo
                       
                objInfo = objFolder.GetDetailsOf(objFolderItem, -1)
                WScript.Echo "========"
                objInfoName = objFolder.GetDetailsOf(objFolderItem, 0)
                objInfoDate = objFolder.GetDetailsOf(objFolderItem, 4)
                objInfoFotoDate = objFolder.GetDetailsOf(objFolderItem, 25)
                objInfoComments = objFolder.GetDetailsOf(objFolderItem, 28)
                WScript.Echo objInfoName
                WScript.Echo ObjInfoDate
                WScript.Echo ObjInfoFotoDate
                WScript.Echo ObjInfoComments
                Set objFSO = CreateObject("Scripting.FileSystemObject")
                Set ObjNewInfo = objFSO.GetFile("R:\PICTURES\Mette\Mette 9md\Mette_ 077.jpg")
                WScript.Echo "date created = " & ObjNewInfo.datecreated
                WScript.Echo "date Fotocreated = " & ObjInfoFotoDate
               
                ObjFolderItem.modifydate = ObjInfoFotoDate           
                'wscript.Echo objNewInfo.Datemodified
                'objNewInfo.put "Info", "New Comments are here"
'                ObjNewInfo.setinfo
            end if
           
            set objFolderItem = nothing
        end if
       
        set objFolder = nothing
        set objShell = nothing
----------------------------------------------------------------