描述
使用预定义的查询 #AllProps 来返回本地计算机上包括在 Indexing Service 目录的 Script Catalog 中的所有文件的文件名、文件大小和作者。
有关使用 Indexing Service 搜索文件的信息,请单击此处。
支持平台
Windows Server 2003 | 是 |
Windows XP | 是 |
Windows 2000 | 是 |
Windows NT 4.0 | 否 |
脚本代码
On Error Resume Next
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = "provider=msidxs;"
objConnection.Properties("Data Source") = "Script Catalog"
objConnection.Open
Set objCommand = CreateObject("ADODB.Command")
strQuery = "Create View #AllProps as Select * from Scope()"
Set objRecordSet = objConnection.Execute("Select * from Extended_FileInfo")
Do While Not objRecordSet.EOF
Wscript.Echo objRecordSet("Filename") & ", " & objRecordSet("Size") & ", " & objRecordSet("DocAuthor")
objRecordSet.MoveNext
Loop
有关在线支持,加入 msnews.microsoft.com news 服务器上的microsoft.public.windows.server.scripting 社区。要提供反馈或者报告脚本示例或《Scripting Guide》中的错误,请与 Microsoft TechNet联系。
免责声明
以上示例脚本不会获得由任何Microsoft标准支持计划或服务项目所提供的支持。这些示例脚本在提交时并未附带任何形式的保证承诺。不仅如此,Microsoft公司还不加限定条件地针对所有默许保证责任加以进一步否认,这其中便包括出于特定目的而针对适销性或适用性所承担的默许保证责任。因使用或执行上述示例脚本及文档资料而导致的全部风险均由读者自行承担。在任何情况下,Microsoft公司及其创作人员、亦或与上述脚本的创意、编制及提交有关的任何人员均无须针对因使用或无法使用上述示例脚本或文档资料所导致的任何损害(其中包括,企业利润损失、经营中断、业务信息丢失及其它经济损失)承担责任;即使Microsoft公司已被告知造成这种损害可能性,上述免责条款依然适用。