ダブルパー 【My Script】 ASP/vbscript_1

◆【MyScript】のサンプルメニューにリンク ◆【MyScript】の記事を全てみる ◆この記事のホーム[dblpar.com]にリンク
【MENU】
■【My Script】データベースに登録されたカテゴリ[ASP/vbscript]での記事[4]ケの内、[1]番目から[4]ケを表示)

□(1) javascriptのスクリプトからvbscriptを起動する
□(2) Windows Script Encoder を用いる
□(3) コンピュータ名とユーザー名を取得する(WSH/ComputerName/UserName)
□(4) リンク文字からsubmitする(サーバーへのデータ送信)(submit)



[javascript/vbscript] (1)

 javascriptのスクリプトからvbscriptを起動する

【javascriptのスクリプトからvbsスクリプトを起動する】

◆javascriptのスクリプト(function)からvbsスクリプトを起動する。

◆javascript Tips
[XHTML](<head>に)
//sample.vbsを起動しておく
<script type="text/vbscript" src="sample.vbs"></script>

[javascript]
function fnStart(){
  execScript("vbSample()","vbscript");  //vbscriptを実行
}

[vbscript]---sample.vbsに記述
function vbSample(){
  msgbox "  vbscriptを実行しています。"
}

◆メモ
※javascriptではできないクライアントサイドのファイルやディレクトリ関連操作にvbscriptは結構威力を発揮する。クライアント側でphpをインストールしているひとはほとんどいないのでvbscriptを使うのはうまい選択かも---セキュリティの問題がなければ---。
※但しサーバー側のPHPファイルに組み込むと、動かないことはないが、ほとんど機能しないので注意。
(DataID:000037)
[ASP/vbscript] (2)

 Windows Script Encoder を用いる

【Windows Script Encoder を用いる】

◆IE(インターネットエクスプローラ)を用いたアプリケーションで作成したスクリプトを安易に覗かれないようにするためにテキストをエンコードするソフトウエア、 Microsoft社の Windows Scripting Encoder をWindows XPで実際に使用した報告。

サイト:web工房 http://www.webstudio.jp/
「Windows Script Encoder を用いる」
http://www.webstudio.jp/webstudio/contents/win_scriptencoder/scriptencode_1.html
(DataID:000030)
[vbscript/WSH] (3)

 コンピュータ名とユーザー名を取得する(WSH/ComputerName/UserName)

【コンピュータ名とユーザー名を取得する】

◆概要
※vbscriptを用いて、クライアントのコンピュータ名とユーザー名を取得する。

◆Tips
Sub vbNetworkCheck(k)
  On Error Resume Next
  Dim strPcName,strUserName

  '※コンピュータ(パソコン)名
  strPcName=CreateObject("WScript.Network").ComputerName
  '※パソコンのユーザー名 
  strUserName=CreateObject("WScript.Network").UserName
End Sub

◆MEMO
※javascriptではこの芸当はできないので、vbscriptで実行する。
※通常はあまり使うことはないが、特定企業などの業務でサーバー等にアクセスして使用パソコンを認証するとき等などに使用。
※パソコン名やユーザー名に全角アルフベットや日本語が使われているトラブル可能性がある。
(DataID:000096)
[vbscript] (4)

 リンク文字からsubmitする(サーバーへのデータ送信)(submit)

【vbscriptを用いてリンク文字からsubmitする】

◆サーバーへデータ送信するためは、フォーム(submitボタン)を用いるのが一般的な手法だが、vbscriptを用いてリンク文字からsubmitすることができる(vbscriptでsubmitする)。

◆vbscript Tips
[XHTML]
<form name="FORM" id="FORM">  
...
<a href="vbscript:vbSelSubmit()">Submit</a>
...
</form>

[vbscript]
Sub vbSelSubmit(){
  On Error Resume Next
  Dim strUrl
  
  '※submitして実行するファイルのURL
  strUrl="http://www.dblpar.com/〜〜/xxx.asp"

  With document.getElementById("FORM")
      .method= "POST"
      .Action= strUrl
      .submit()
  End With
End Sub

◆メモ
※データをformタグでpost送信する方法
※formタグにAction/Post設定しない→その都度、actionのファイルを変更できる。
(DataID:000097)
Copyright(C) 2007-  ダブルパー本舗 All Rights Reserved.
Access counter:
Script【text_win2】ver.1.01