徒然なるままに・・・

VBS初回解説④

( ﾟ▽ﾟ)/ｺﾝﾊﾞﾝﾊ

ふいー。ようやく平日の最後ですな。
今週は比較的仕事がひまだったです。
・・・といっても、飯食う時間があったという事なんだけどね(｡＞0＜｡)

今日は今回のVBSのフルソースを書いておくじょ。

製作時間：１Hちょっと。
製作者：inukoro
できばえ：うーん。お手軽だからまぁまぁという事で♪

------------------------------------------------------------------------------------------------------------------

const dbpas="D:\ウイルスバスター\利用者一覧抽出.mdb"
const logtxt="D:\ウイルスバスター\セキュリティログ.txt"
dim input '利用者ID入力用（inputbox)
'*******************************************************************

################入力画面用プロシージャ#########################
sub nyuryoku()

input = inputbox("利用者IDを入力して下さい。","利用者ID入力")

'キャンセルを押下した場合、処理終了。
if isempty(input) = true then 'キャンセル押下時にVB処理終了。
wscript.quit
end if

end sub
######################プロシージャEND#########################

#########################メイン処理プロシージャ#################
sub main()

dim connection 'DBオブジェクト用
dim connection_mdb 'mdb接続用
dim rs
dim sql 'テーブルアクセス用
dim optxt 'テキストオープン用

'*******************オブジェクト作成&mdbopen*****************************************
set connection = createobject("adodb.connection")
connection_mdb = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '"&dbpas&"'"
connection.open connection_mdb
'*************************************************************************************

set rs=createobject("adodb.recordset")
set rs.activeconnection=connection

'入力画面をプロシージャコールしている。
nyuryoku

while input = "" '入力画面で空白のままOKを押すと入力画面を繰り返し表示させる。
nyuryoku 'プロシージャ再コール
wend

'SQLコール。入力された利用者IDで絞ってDBアクセス
sql="select 利用者一覧.利用者ID,利用者一覧.利用者漢字氏名情報 from 利用者一覧 where 利用者一覧.利用者ID='"&input&"';"
rs.open(sql)

if rs. EOF=false then

'セキュリティログ.txtに認証結果をはき出す
set optxt = createobject("scripting.filesystemobject")
set ovjtextfile = optxt.opentextfile(logtxt,8)
ovjtextfile.writeline now & " " & rs.fields("利用者ID").value & " " & "の認証に成功しました。" & "利用者氏名:" & " " & rs.fields("利用者漢字氏名情報").value
msgbox "認証成功。このまま、ウイルスチェックの実施をして下さい。"

else

set optxt = createobject("scripting.filesystemobject")
set ovjtextfile = optxt.opentextfile(logtxt,8) '追記でテキストオープン
ovjtextfile.writeline now & " "& input & " " & "の認証に失敗しました。" 'テキスト書き込み
msgbox "認証失敗。※※セキュリティ台帳に名前等の記載をした後にウイルスチェックを実施して下さい"

end if

rs.close
connection.close
set connection = nothing
set optxt = nothing

end sub
######################メイン処理終了#######################

'メインプロシージャコール
main

'バスター起動処理

dim baster

Set baster = WSCript.CreateObject("WScript.Shell")
baster.Run "バスター起動.bat para",0 '0で非表示（バックグラウンド処理ね）

set baster=nothing

----------------------------------------------------------------------------------------------------------------------------

ほいっと。完成。

【バスター起動.batの中身】
'（VBSで呼び出す方が早いのだけど。今回は気分的にね。）
-----------------------------------------------------------------------------------------------------
@echo off
C:\バスター(検索のexeね。).exe　　'バスターの検索exeを起動する
-----------------------------------------------------------------------------------------------------

最後に、今回作ったVBSをDドライブかどっかに配置して、ショートカットをデスクトップにおくのです♪
そのショートカットを右クリック→プロパティからアイコンをバスターのexeと同じ物に偽装して完成だYO！！！！

・・・・まぁ、インジケータや、コマンドプロンプト、直exeから起動されると当然ログは取れないんですがネ。
ヽ（￣￣￣￣￣￣∇￣￣￣￣￣￣；）ノ

じゃ、次回は何にしようかな。TeraTermを操るbatとか？
xlsやaccessを絡ませたプログラムにしようかな？

うーん・・・・・まぁまた、明日か明後日ね。

(*￣▽￣)ﾉ~~ ﾏﾀﾈｰ♪

よろしくべいびーちゃんたち。↓ドメイン活用の話も今度記述するぜ！

急げ！新ドメインは早いもの勝ち！