vbscriptでファイルの作成時刻、最終変更時刻、最終アクセス時刻を取得する方法

set fso=createobject("Scripting.FileSystemObject")
set fn=fso.GetFile("E:\AD.txt")
msgbox "文件创建时间："&fn.DateCreated
msgbox "文件最后修改时间："&fn.DateLastModified
msgbox "文件最后访问时间："&fn.DateLastAccessed
set fn=nothing
set fso=nothing

<%
dim fs,fname
      set fs=Server.CreateObject("Scripting.FileSystemObject")
      set fname=fs.CreateTextFile("c:\test.txt",true)
      fname.WriteLine("Hello World!")
      fname.Close
set fname=nothing
set fs=nothing
%>