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ファイルも不可能でした
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。