出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
BASP２１にあるExecute関数をつかうと白紙が戻る 　 おにぎり味噌汁さん [2003/10/22 18:12:17] [3754]
　 Re:BASP２１にあるExecute関数をつかうと白紙が戻る 　 YasNet(管理人)さん [2003/10/23 12:44:49] [3755]
　 Re:BASP２１にあるExecute関数をつかうと白紙が戻る 　 おにぎり味噌汁さん [2003/10/23 18:41:55] [3757]
　 　 Re:BASP２１にあるExecute関数をつかうと白紙が戻る 　 YasNet(管理人)さん [2003/10/29 8:55:29] [3763]
[3754] BASP２１にあるExecute関数をつかうと白紙が戻る
投稿者：おにぎり味噌汁さん 2003/10/22 18:12:17
初めまして、おにぎり味噌汁と申します。
ASPでnetstat -r <C:\test.txtを実行し、ファイルに落とすプログラムを作っているのですが，BASP21のExecute関数を使い、ファイルに
アクセスできたまではいいのですが、結果が白紙でもどってきます。
（ファイルに落とすことができない）これは何故かわかりません。
よろしくお願いします。
OS:Window2000Pro

<% Dim rc
Set bobj=Server.CreateObject("BASP21")
rc = bobj.Execute("test.bat",2,stdout)
If rc=-1 Then
Response.Write("ファイル接続失敗")
End If
If rc=0 Then
Response.Write("ファイル接続成功")
Response.Write("<br>")
End If

Dim i,ha,ha1,rec
Dim objCDO2,Language
Dim objCDO,IP9,IP
Dim strMsg

if isempty(session("s3fs")) then
Set session("s3fs") = Server.CreateObject("Scripting.FileSystemObject")
end if
Set fl = session("s3fs").OpenTextFile("c:\jdk1.2.2\bin\test.txt", 1, true)
do until fl.AtEndOfStream
rec = fl.ReadLine

IF Instr(rec,"該当IPアドレス")<>0 Then
Response.Write("VPN接続がされています")
End If
IF Instr(rec,"該当IPアドレス")=0 Then
Response.write("VPN接続がされていません")
End If
Response.write("<br>")
loop
fl.close
%>
[3755] Re:BASP２１にあるExecute関数をつかうと白紙が戻る
投稿者：YasNet(管理人)さん 2003/10/23 12:44:49
こんにちは　YasNet(管理人)です。

>bobj.Execute("test.bat",2,stdout)
第二パラメータが２って事は
プログラムを起動して終了するまで待ちます。
とありますので
終了してないだけではないでしょうか・・・

ちがうかなぁ〜

それでは　失礼致します。

> 初めまして、おにぎり味噌汁と申します。
> ASPでnetstat -r <C:\test.txtを実行し、ファイルに落とすプログラムを作っているのですが，BASP21のExecute関数を使い、ファイルに
> アクセスできたまではいいのですが、結果が白紙でもどってきます。
> （ファイルに落とすことができない）これは何故かわかりません。
> よろしくお願いします。
> OS:Window2000Pro
>
> <% Dim rc
> Set bobj=Server.CreateObject("BASP21")
> rc = bobj.Execute("test.bat",2,stdout)
> If rc=-1 Then
> Response.Write("ファイル接続失敗")
> End If
> If rc=0 Then
> Response.Write("ファイル接続成功")
> Response.Write("<br>")
> End If
>
> Dim i,ha,ha1,rec
> Dim objCDO2,Language
> Dim objCDO,IP9,IP
> Dim strMsg
>
> if isempty(session("s3fs")) then
> Set session("s3fs") = Server.CreateObject("Scripting.FileSystemObject")
> end if
> Set fl = session("s3fs").OpenTextFile("c:\jdk1.2.2\bin\test.txt", 1, true)
> do until fl.AtEndOfStream
> rec = fl.ReadLine
>
> IF Instr(rec,"該当IPアドレス")<>0 Then
> Response.Write("VPN接続がされています")
> End If
> IF Instr(rec,"該当IPアドレス")=0 Then
> Response.write("VPN接続がされていません")
> End If
> Response.write("<br>")
> loop
> fl.close
> %>
[3757] Re:BASP２１にあるExecute関数をつかうと白紙が戻る
投稿者：おにぎり味噌汁さん 2003/10/23 18:41:55
レスありがとうございます。他のコマンドは実行できるのです。（netstatを含めて）しかし、テキストファイルに落とすことのみ
できないのです。
[3763] Re:BASP２１にあるExecute関数をつかうと白紙が戻る
投稿者：YasNet(管理人)さん 2003/10/29 8:55:29
レス遅くなりすみません　YasNet(管理人)です。

う〜ん、そうなんですかぁ〜
じゃ、普通にfilesystemobjectを使っちゃ駄目ですかねぇ〜

それでは失礼致します。

> レスありがとうございます。他のコマンドは実行できるのです。（netstatを含めて）しかし、テキストファイルに落とすことのみ
> できないのです。

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ