[表示 : 全て 最新50 1-99 2chのread.cgiへ]
Update time : 05/09 16:18 / Filesize : 38 KB / Number-of Response : 95
[このスレッドの書き込みを削除する]
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧] [類似スレッド一覧]

↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

★WSHでCGI★JScriptVBScript

1 名前：nobodyさん mailto:sage [03/08/01 22:37 ID:???]
【このスレの概要】
・Windows Script Host (=WSH)をCGI利用する
・JScript、又はVBScriptをCGIスクリプトとする
・自PCをサーバー稼動させる事を前提とする
・原則、Windows以外はフリーで入手できるアプリ、ツールの利用

【対象環境】
・Windows95以上及び、WSH5.6以上のインストール済み
・Webサーバーソフトにはフリー配布のAN HTTPDを前提とする
※作者：中田 昭雄氏　配布元：ttp://www.st.rim.or.jp/~nakata/
なお、このスレでの内容を直接、中田氏サイトへ質問するのはやめて頂きたい。

【お約束】
・試行は自PCで自己責任で行う
・商用実利用は前提としていない、本スレは、プログラム技術的知識、お遊び、趣味の範囲であることを理解する

70 名前：nobodyさん mailto:sage [2005/04/15(金) 17:06:31 ID:???]
【VBScriptサンプル02　その2 CGIスクリプトWSFファイル】
以下をその1のsample02.htmと同じ、sample02.wsfで設置、なおコードを見ても分かるように、>>61-63のsupport02.vbsファイルも設置。

<JOB>
<SCRIPT language=vbs src="support02.vbs" />
<SCRIPT language=vbs>
Option Explicit
Private ObjWshShell,ColWshEnv
Private d,d0,d1,d2
Set ObjWshShell=WScript.CreateObject("WScript.Shell")
Set ColWshEnv=ObjWshShell.Environment("Process")
Select Case ColWshEnv("REQUEST_METHOD") 'フォーム送信データを取得
Case "POST"
d=WScript.StdIn.ReadAll '実際にはサイズチェックを事前にすべき。
Case "GET"
d=ColWshEnv("QUERY_STRING")
End Select
With WScript.StdOut
.WriteLine "Content-type: text/html" & vbCRLF & vbCRLF & "<HTML><HEAD><TITLE>サンプル02</TITLE></HEAD><BODY noWrap>"
.WriteLine "生データ<BR>" & d & "<BR>取得データ<BR>"
d0=Split(d,"&",-1,1) 'POST生データを"name=data"単位で分離
For Each d1 in d0
d2=Split(d1,"=",2,1) ' "name=data"をnameとdataに要素数2の配列に分離格納
.WriteLine d2(0) & "=" & PF_Decode(d2(1)) & "<BR>"
Next
.WriteLine "完了</BODY>"
End With
</SCRIPT>
</JOB>

71 名前：nobodyさん mailto:sage [2005/04/15(金) 17:07:23 ID:???]
【VBScriptサンプル02　その2 CGIスクリプトWSFファイル】
以下をその1のsample02.htmと同じ、sample02.wsfで設置、なおコードを見ても分かるように、>>61-63のsupport02.vbsファイルも設置。

<JOB>
<SCRIPT language=vbs src="support02.vbs" />
<SCRIPT language=vbs>
Option Explicit
Private ObjWshShell,ColWshEnv
Private d,d0,d1,d2
Set ObjWshShell=WScript.CreateObject("WScript.Shell")
Set ColWshEnv=ObjWshShell.Environment("Process")
Select Case ColWshEnv("REQUEST_METHOD") 'フォーム送信データを取得
Case "POST"
d=WScript.StdIn.ReadAll '実際にはサイズチェックを事前にすべき。
Case "GET"
d=ColWshEnv("QUERY_STRING")
End Select
With WScript.StdOut
.WriteLine "Content-type: text/html" & vbCRLF & vbCRLF & "<HTML><HEAD><TITLE>サンプル02</TITLE></HEAD><BODY noWrap>"
.WriteLine "生データ<BR>" & d & "<BR>取得データ<BR>"
d0=Split(d,"&",-1,1) 'POST生データを"name=data"単位で分離
For Each d1 in d0
d2=Split(d1,"=",2,1) ' "name=data"をnameとdataに要素数2の配列に分離格納
.WriteLine d2(0) & "=" & PF_Decode(d2(1)) & "<BR>"
Next
.WriteLine "完了</BODY>"
End With
</SCRIPT>
</JOB>

72 名前：nobodyさん mailto:sage [2005/04/15(金) 17:21:38 ID:???]
【VBScriptサンプル02 解説1】
>>70-71 重複失礼。どちらも同じ内容なの。

>>69 訂正。
<FORM action="./sample02.wsf" method="post" name="form1" taerget="_blank">
の　taerget="_blank"　の　taerget　は誤り。
targetに直してｗ
　

73 名前：nobodyさん mailto:sage [2005/04/15(金) 17:34:37 ID:???]
【VBScriptサンプル02 解説2】
このサンプル02は
sample02.htm　>>69
sample02.wsf　>>70　※71は70と同じものなので無視。
support02.vbs >>61-63
の３つのファイルを同じフォルダに設置してください。
sample02.htmを表示して送信して下さい。フォームからのデータ取得のサンプルです。
あくまでサンプルですので、エラー処理はしていませんし、実用コードではありません。
POST、GETに対応していますが、POSTデータの場合は実際はただReadAllで読み込むの注意です。
POSTの場合、サイズが巨大なものが有り得ますので、事前サイズチェックはしましょう。

74 名前：nobodyさん [2005/07/18(月) 02:41:24 ID:MLViLjPO]
ﾎｽ

75 名前：nobodyさん [2005/07/20(水) 01:42:56 ID:P18HiGG/]
ﾎｼｭﾎｼｭ

76 名前：1 mailto:sage [2005/07/24(日) 16:43:18 ID:???]
保守されていたので、ネタを何か（ｗ

>>45
俺もわかんない（ｗ　初めてWebサイトみたときの記憶で、質問をジエンするときに使う感じでうろ覚え（ｗ
FAQに似てると思うけど（ｗ

>>50
WSHは使わせないというか、最初から危なくて業務用Winサーバーに入れとかないでしょ。
ここはプライベートというか、あくまで遊びだから。

>>60
みんなももっとネタ出してよ。

【ついでに】
・WSH関係あさればたまに目にすると思うけど。バイナリーのファイル入出力はADO2.8がインストされてればADODB.Streamでできるんだけどさ。
CGI実行時に標準入出力を読み書きする解決にはならないよん。
・>>55-58 >>61-63は Shift-JISデコード関数をVBSで書いてるけどVBSエンジンだけインクルードしてChrやAsc関数をJScropt関数で作ったほうが速いいかなぁ？
作ってみるわ。誰かもやってよ（ｗ

77 名前：1 mailto:sage [2005/07/24(日) 16:51:21 ID:???]
>>76　思いつき書き込みしかしないから（ｗ、またやってしまった
【訂正】
　【ついでに】
　>ChrやAsc関数をJScropt関数で作ったほうが速いいかなぁ？
　JScropt→JScript

書き方が悪くて意味が伝わりませんね？
Chr関数自体をJScriptで作るのではなく、
JScript中でVBSのChr関数を呼び出して、JScript製のデコード関数を作ると言う意味です。
JScriptのほうが正規表現やユーザー関数の拡張性が高いからね、VBSより効率的にかけるかな。
あとでやっておきます。いつかね（ｗ


78 名前：nobodyさん mailto:age [2005/07/24(日) 17:04:20 ID:???]
自age （ｗ

みんなAN HTTPDめんどいのかなぁ



79 名前：nobodyさん mailto:age [2005/09/06(火) 02:04:33 ID:???]
つーか、デコードするCOMオブジェクトないの？
IEは公開してないのか？


80 名前：nobodyさん mailto:sage [2006/05/22(月) 08:58:11 ID:???]
ほす

81 名前：nobodyさん mailto:sage [2006/07/08(土) 09:15:04 ID:???]
このスレの内容にばちこーん興味を持ったので保守

82 名前：nobodyさん [2006/08/24(木) 12:18:03 ID:UeLY+x3U]
藁をもつかむ気持ちでお願いします。
vbsからexcelのマクロを起動する方法ってどうするのでしょうか？
エクセルマクロを使用するためにtest.wsfからvbs.vbsを呼んでいます。
下記のソースでtest.xlsに埋め込まれているMacro1というマクロを呼び出そうと
しましたが「オブジェクトでサーポートされていないプロパティです」
というエラーが出てしまいます。


------------------------------------test.wsf記述
<job id="ExcelJob">
<reference guid="00020813-0000-0000-C000-000000000046"></reference>
<script language="VBScript" src="./vbs.vbs"></script>
<script language="VBScript">
Call prcMain
</script>
</job>

------------------------------------vbs.vbs記述
Sub prcMain()
Set Excel = CreateObject("Excel.Application")
Excel.Workbooks.Open("c:\test.xls")
Set xlSheet = Excel.Worksheets(1)
Excel.Visible = True
Set objSelection = Excel.Workbooks(1).Worksheets(1).Macro1
End Sub


83 名前：82 mailto:sage [2006/08/24(木) 12:48:36 ID:???]
すいません板違いでした。Web製作板へ行ってきます。

84 名前：nobodyさん mailto:sage [2006/08/24(木) 18:56:31 ID:???]
>>82-83
Web製作ではなく↓に誘導しておきます。
WSH(・∀・)ｽﾚｯﾄﾞ!
pc8.2ch.net/test/read.cgi/tech/1055075469/l50

85 名前：nobodyさん mailto:age [2006/09/27(水) 19:51:41 ID:???]
いろいろなサイトを閲覧して、ローカルPCに溜まったCookieファイルを、VBScriptで定期的に自動消去する処理は、どうすれば良いでしょうか？
ttp://www.happy2-island.com/vbs/cafe02/capter00210.shtml
ファイルの削除を参考にしてみましたが、Cookieファイルの指定がうまくできませんでした。


86 名前：nobodyさん mailto:sage [2006/09/28(木) 00:09:34 ID:???]
>>85
IEのCOM使ったほうがいいぞ

あと↓で聞いたほうがいい

お前ら、wsh使ってますか? part6
pc8.2ch.net/test/read.cgi/win/1155040873/

87 名前：nobodyさん [2006/09/28(木) 00:44:11 ID:23IKIm9v]
>>86
どうもありがとう。


88 名前：nobodyさん mailto:sage [2007/07/04(水) 14:20:44 ID:???]
何にせよ、ありがとうと言いたい



89 名前：nobodyさん [2007/09/06(木) 00:53:56 ID:lxdRIcpr]
WSH初心者ですが少し教えてください
特定のソフトを起動するためのVBSの書式を教えてください
ちなみにバッチファイルでは起動しないソフトもあったのでこちらが良いと言われました
ソフトは壷です
"C:\Program Files\2chtubo\2chtubo.exe"
通常ならこのようなバッチファイルで起動するはずなんですが
なぜか起動しませんでした
なのでVBSでやってみたいです

90 名前：nobodyさん mailto:sage [2007/09/06(木) 09:46:52 ID:???]
＞WSH初心者ですが少し教えてください
初心者だから？？なに？

＞特定のソフトを起動するためのVBSの書式を教えてください
ええと、、、ググリましたか？

＞ちなみにバッチファイルでは起動しないソフトもあったのでこちらが良いと言われました
どちらさまに言われましたか？

＞なぜか起動しませんでした。なのでVBSでやってみたいです
やりたいなら調べろよ

91 名前：nobodyさん mailto:sage [2007/09/06(木) 18:20:14 ID:???]
>>89
Wscript.Run "C:\Program Files\2chtubo\2chtubo.exe"

92 名前：nobodyさん [2008/03/10(月) 10:17:26 ID:nD3TpBhG]
ローカルで定型処理に VBScript を使っているのですが，
デバッガとしてフリーで使えるものって何かありませんでしょうか？
たとえばどれかの Express Edition とか．

職場では Visual Studio 2005 Professional Edition を使って
いるのですが，自宅でも作業がしたくって．

93 名前：nobodyさん mailto:sage [2008/03/12(水) 22:41:47 ID:???]
ttp://www.microsoft.com/downloads/details.aspx?FamilyID=e606e71f-ba7f-471e-a57d-f2216d81ec3d&DisplayLang=ja
をインストールして、cscript.exeやwscript.exeに//Dオプションを付けて
スクリプトを実行すればデバッガが使用可能になりますよ

94 名前：nobodyさん [2008/05/25(日) 01:09:26 ID:uDPNiz6J]

JavaScript でJISエンコードが可能な、escape() 関数ライブラリ

ttp://nurucom-archives.hp.infoseek.co.jp/digital/

但しサーバー運用に向いているかは未確認ｗ
（負荷とか）




[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]
次100 最新50 ▲ [ このスレをブックマーク！ 携帯に送る ] 2chのread.cgiへ
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧]（*・∀・）＜38KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef