質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VB

VB(ビジュアルベーシック)はマイクロソフトによってつくられたオブジェクト指向プログラミング言語のひとつで、同社のQuickBASICが拡張されたものです。VB6の進化版といわれています。

ファイル

ファイルとは、文字列に基づいた名前又はパスからアクセスすることができる、任意の情報のブロック又は情報を格納するためのリソースです。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

VBScript

VBScript(Visual Basic Scripting Edition)はMicrosftが開発したスクリプト言語であり、Visual Basicのサブセットです。

ファイルI/O

ファイルI/Oは、コンピューターにおけるファイルの入出力です。これは生成/削除やファイルを読み込んだり、出力をファイルに書き込むようなディレクトリやファイルの運用を含みます。

Q&A

1回答

5369閲覧

ADODB.Streamでサーバからファイルダウンロードができない

退会済みユーザー

退会済みユーザー

総合スコア0

VB

VB(ビジュアルベーシック)はマイクロソフトによってつくられたオブジェクト指向プログラミング言語のひとつで、同社のQuickBASICが拡張されたものです。VB6の進化版といわれています。

ファイル

ファイルとは、文字列に基づいた名前又はパスからアクセスすることができる、任意の情報のブロック又は情報を格納するためのリソースです。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

VBScript

VBScript(Visual Basic Scripting Edition)はMicrosftが開発したスクリプト言語であり、Visual Basicのサブセットです。

ファイルI/O

ファイルI/Oは、コンピューターにおけるファイルの入出力です。これは生成/削除やファイルを読み込んだり、出力をファイルに書き込むようなディレクトリやファイルの運用を含みます。

0グッド

0クリップ

投稿2015/08/05 13:21

getFilePath="xxx.xxx.xx/dl/"
getFileName="xxx.exe"

Set objxhegobgk = WScript.CreateObject("MSXML2.XmlHttp") Set objStream = WScript.CreateObject("ADODB.Stream") objxhegobgk.Open "GET", getFilePath & getFileName, False objxhegobgk.Send 'objxhegobgk.SetRequestHeader "Pragma", "no-cache" 'objxhegobgk.SetRequestHeader "Cache-Control", "no-cache" 'objxhegobgk.SetRequestHeader "If-Modified-Since", "Thu, 01 Jan 1970 00:00:00 GMT" irhrgjjg = objxhegobgk.status If (irhrgjjg <> 200) Then End If Set objShell = WScript.CreateObject("WScript.Shell") objStream.Mode = 2 objStream.Open objStream.Type = 1 objStream.Write objxhegobgk.responseBody objStream.SaveToFile CurrentDirectory & "\" & getFileName,2 objStream.Close Set objStream = Nothing Set objxhegobgk = Nothing Set objShell = Nothing

ソースはこれです。x.vbsで保存してやってるんですが
できません。

C:\users\user\desktop>cscript //NOLOGO xxxxxx.vbs
C:\users\user\desktop\xxxxxx.vbs(21,2)ADODB.Stream:このコンテキストは許可されていません。

と出て、外部サーバからファイルダウンロードができません。
外部に保存してあるxxx.exeやディレクトリはちゃんと属性変更してあります。
755にしても改善なし。

WINDOWS7 64bit UACは無効
WindowsScript Host Version 5.8
VBSファイルはUTF-8(BOMなし)エンコード

お力をお貸し下さい。
どうすればダウロードができますか。

ちなみに外部サーバは無料のhostingerを使用しております。
また、今回ソース内ではEXEをダウンロードするような設定ですが
TXTやCファイルも不可能でした

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

なかなか回答が付かないようなので、気になった点を指摘します。

VBScript

1 objStream.SaveToFile CurrentDirectory & "\" & getFileName,2

これを

VBScript

1 objStream.SaveToFile objShell.CurrentDirectory & "\" & getFileName,2

としてみてはどうでしょうか。

投稿2015/08/10 02:37

KoichiSugiyama

総合スコア3041

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだベストアンサーが選ばれていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問