- PR -

Win2KからのWebDAVディレクトリアクセス

1
投稿者投稿内容
dede
常連さん
会議室デビュー日: 2003/10/01
投稿数: 47
投稿日時: 2005-08-21 21:38
Linuxサーバ上にApacheでWebDAVディレクトリを作成しました。
WINDOWSからVBscriptにて、ファイルをアップロードしたいのですが、
winXPからは\\192.168.0.2\testという指定でファイルアップロードできたのですが、
win2Kからは失敗しました。
エクスプローラで参照する場合も確かにXPからは\\192.168.0.2\testで参照できるのですが、win2Kからはhttp://192.168.0.2/testで参照しているようです。
そこでhttp://192.168.0.2/testの指定にてVBscriptを実行してみたのですが、失敗しました。
以下はVBscriptです。
-----------------------------------------------------
<?xml version="1.0" encoding="Shift_JIS" standalone="yes" ?>
<package>
<job id="MyBackUp">
<?job error="true" debug="true" ?>
<object id="objFs" progid="Scripting.FileSystemObject" />
<resource id="backup_config">
C:\Program Files\app\log.txt
</resource>
<script language="VBScript">
<![CDATA[
On Error Resume Next
Const MYFLD="\\192.168.0.2\test"
Set WshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo "Computer Name = " & WshNetwork.ComputerName
aryCnf=Split(getResource("backup_config"),Chr(13) & Chr(10))
For i=0 To UBound(aryCnf)
strPth=Trim(aryCnf(i))
If Not IsNull(strPth) And strPth<>"" Then
strDst=objFs.BuildPath(MYFLD,REPLACE(FormatDateTime(Date,2),"/",""))
strDst=objFs.BuildPath(strDst,"\")
WScript.Echo "作成フォルダ名 = " & strDst
If Not objFs.FolderExists(strDst) Then objFs.CreateFolder(strDst)
objFs.CopyFile strPth,strDst,True
WScript.Echo "コピーファイル名 = " & strPth
End If
Next
WScript.Echo("バックアップ処理が完了しました。")
]]>
</script>
</job>
</package>
-----------------------------------------------------
どなたかアドバイスいただけませんでしょうか？
1

スキルアップ／キャリアアップ（JOB@IT）