Question

我有一项任务：必须检查远程服务器上的WebDAV上可用的文件（需要SSL），以确定它们是否最近已更新，如果已复制到本地文件夹。在到达之后需要执行许多其他操作（复制到其他文件夹，处理等）。我正在使用的操作系统是Windows 2003 Server。我很乐意能够使用PowerShell完成这项任务。

当然，我需要浏览文件。我试探性地看了几个解决方案：

尝试使用“net use”映射驱动器（到目前为止，我收到系统67错误）
使用像WebDrive这样的产品映射驱动器（实际上，WebDrive和服务器上的其他实用程序似乎因为神秘的原因而相互冲突）
通过PowerShell使用.NET HTTPWebRequest对象层次结构发出http请求来浏览和操作文件（有效，但看起来有点复杂）
购买一个商业.NET程序集，简化了使用WebDAV（我看过的看起来很贵）

你需要做类似的事吗？哪种方法最好？我错过了什么？ TIA。

Answer 1

它将起作用于PowerShell。请注意这个例子：

http://thepowershellguy.com/blogs/posh/archive/2008/05/31/cd-into-sysinternals-tools-from-powershell.aspx

问题是'Web客户端服务'没有在Windows 2003服务器上运行（默认情况下已禁用）。

线索是"System 67 error"

我从win2k3服务器确认了这一点，启动'Web客户端服务'将使WebDAV正常工作（可能还有PowerShell）。它将在XP客户端上开箱即用（默认情况下服务正在运行）。

如果这不能解决，请告诉我。

Answer 2

作为PowerShell的替代方法，您始终可以从WSH脚本执行此操作。例如：

<job>
  <reference object="ADODB.Connection"/>
  <object id="cnIPP" progId="ADODB.Connection"/>
  <object id="recDir" progId="ADODB.Record"/>
  <script language="VBScript">
  Option Explicit

  Private waArgs
  Private strSubDir
  Private rsItems
  Private strLine

  Set waArgs = WScript.Arguments

  If waArgs.Count < 3 Then
    WScript.Echo "Parameters: FolderURL User PW [SubDir]"
    WScript.Quit
  End If

  cnIPP.Open "Provider=MSDAIPP.DSO;Prompt=NoPrompt;" _
           & "Connect Timeout=10;" _
           & "Data Source=" & waArgs(0), _
             waArgs(1), waArgs(2), adConnectUnspecified

  If waArgs.Count = 4 Then
    strSubDir = waArgs(3)
  Else
    strSubDir = vbNullString
  End If
  Set waArgs = Nothing

  recDir.Open strSubDir, cnIPP, adModeRead, adFailIfNotExists, _
              adDelayFetchFields Or adDelayFetchStream
  Set rsItems = recDir.GetChildren()
  With rsItems
    WScript.Echo .Fields("RESOURCE_PARENTNAME").Value
    Do Until .EOF
      If .Fields("RESOURCE_ISCOLLECTION").Value Then
        strLine = "  [DIR] " & .Fields("RESOURCE_PARSENAME").Value
      Else
        strLine = "       " _
                & " " & .Fields("RESOURCE_PARSENAME").Value _
                & " " & CStr(.Fields("RESOURCE_LASTWRITETIME").Value)

      End If
      WScript.Echo strLine
      .MoveNext
    Loop
    .Close
  End With
  Set rsItems = Nothing
  recDir.Close

  cnIPP.Close
  </script>
</job>

示例运行：

D:\Scripts>cscript WebDAV.wsf https://my.dav.com/~fred fred fredPW
Microsoft (R) Windows Script Host Version 5.7
Copyright (C) Microsoft Corporation. All rights reserved.

https://my.dav.com/~fred
        junk.htm 2/26/2008 4:28:44 AM
        test.log 3/30/2009 12:30:45 PM
  [DIR] _private
  [DIR] stuff

D:\Scripts>

此方法适用于WebDAV和支持FrontPage的服务器，无需更改。该示例默认为协议自动协商。

要实际检索数据，您需要在非目录项上打开的ADODB.Record上打开ADODB.Stream。

通过WebDAV编写脚本文件操作的推荐解决方案？

2 个答案: