Option explicit
dim xmlhttp
dim strm
dim strUrl
dim strFile
dim strTgtFile
'ファイル送信用のスクリプト
strUrl = "http://192.168.1.210/put.php"
'送信ターゲット
strFile = "c:¥Windows¥System.ini" '送信ファイル名
'//strTgtFile = "aa/あいう.dat" '保存ファイル名
strTgtFile = "upload.dat"
set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
'これが一番いいと思われるが全ての環境で使えるわけではない setTimeOutが可能
'set xmlhttp = CreateObject("MSXML2.XMLHTTP")
'set xmlhttp = CreateObject("Microsoft.XMLHTTP")
'「msxml3.dll: エラーを特定できません」エラーとなる場合 Streamに対する制限
set strm = CreateObject("ADODB.Stream")
strm.Mode = 3 'for LoadFromFile
strm.Type = 1 'Binary
strm.Open
strm.LoadFromFile( strFile )
'このオプションは MSXML2.ServerXMLHTTPのみ
xmlhttp.setTimeouts 180 * 1000 , 180*1000 , 180*1000 , 180*1000
xmlhttp.open "PUT",strUrl 'PUTメソッドはダメな時はPOST
'xmlhttp.open "POST",strUrl
xmlhttp.setRequestHeader "cmd","put"
xmlhttp.setRequestHeader "hirake","goma"
xmlhttp.setRequestHeader "fname", strTgtFile
xmlhttp.send strm.read(-1)
strm.Close
'HTTPステータスを表示
WScript.Echo xmlhttp.status
'サーバからの応答を表示
WScript.Echo xmlhttp.responseText
set strm = Nothing
set xmlhttp = Nothing
http://blog.jojo.jp/?eid=1331836
2010年11月20日土曜日
2010年10月30日土曜日
VBScript:IE
Set objIE = CreateObject("InternetExplorer.Application")
'指定したURLを表示します
objIE.Navigate "http://yahoo.co.jp"
objIE.Visible = True
'表示終了まで待つ
Do While objIE.Busy = True
'何もしないループ
Loop
WScript.Sleep (2000)
Set objIE = Noting
'指定したURLを表示します
objIE.Navigate "http://yahoo.co.jp"
objIE.Visible = True
'表示終了まで待つ
Do While objIE.Busy = True
'何もしないループ
Loop
WScript.Sleep (2000)
Set objIE = Noting
2010年2月28日日曜日
VBScript：テキスト処理
読み込み
---------------------
Option Explicit
Dim objFS
Dim objText
Dim strData
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objText = objFS.OpenTextFile("d:\work\flatindata.txt")
If objText.AtEndOfStream = False Then
strData = objText.ReadAll
WScript.Echo strData
End If
objText.Close
Set objText = Nothing
Set objFS = Nothing
書き込み
---------------------
Option Explicit
Dim objFS
Dim objText
Dim strData
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objText = objFS.CreateTextFile("d:\work\ren013d.txt")
objText.WriteLine "書き込み内容1"
objText.WriteLine "書き込み内容2"
objText.Close
WScript.Echo "２行書き込みました"
Set objText = Nothing
Set objFS = Nothing
---------------------
Option Explicit
Dim objFS
Dim objText
Dim strData
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objText = objFS.OpenTextFile("d:\work\flatindata.txt")
If objText.AtEndOfStream = False Then
strData = objText.ReadAll
WScript.Echo strData
End If
objText.Close
Set objText = Nothing
Set objFS = Nothing
書き込み
---------------------
Option Explicit
Dim objFS
Dim objText
Dim strData
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objText = objFS.CreateTextFile("d:\work\ren013d.txt")
objText.WriteLine "書き込み内容1"
objText.WriteLine "書き込み内容2"
objText.Close
WScript.Echo "２行書き込みました"
Set objText = Nothing
Set objFS = Nothing
VBScript:カレントディレクトリの表示
Option Explicit
Dim objWShell
Set objWShell = CreateObject("WScript.Shell")
WScript.Echo "カレントディレクトリ= " & objWShell.CurrentDirectory
Set objWShell = Nothing
Dim objWShell
Set objWShell = CreateObject("WScript.Shell")
WScript.Echo "カレントディレクトリ= " & objWShell.CurrentDirectory
Set objWShell = Nothing
VBScript:EXcelシーﾄのデータの読み出し
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
Set objWorkbook = objExcel.Workbooks.Open ("C:\Book1.xlsx")
Set objWorksheet = objWorkbook.sheets(1)
intRow = 1
Do Until objWorksheet.Cells(intRow,1).Value = ""
data = objExcel.Cells(intRow,1)
intRow = intRow + 1
WScript.Echo data
Loop
objExcel.Quit
objExcel.Visible = False
Set objWorkbook = objExcel.Workbooks.Open ("C:\Book1.xlsx")
Set objWorksheet = objWorkbook.sheets(1)
intRow = 1
Do Until objWorksheet.Cells(intRow,1).Value = ""
data = objExcel.Cells(intRow,1)
intRow = intRow + 1
WScript.Echo data
Loop
objExcel.Quit
登録:
投稿 (Atom)