2011年06月11日
週末♪
今日は皆様大好きな週末ですね♪
と言うわけで(どういうわけだ??)今日はVBSについて記述しちゃいます。
最近勤め先で、アクセスログを残す残さないとぎゃーぎゃーうるさく言われたことがあったなぁ・・・
そんなに残したきゃお金はらってソフト購入してくださいヨ・・・・
そこであまりにうるさいので作っちゃいました。(粗末なつくりですがネ。。。。)
VBSに関して知らないという方もたくさんいらっしゃるだろうが、ご安心を!私もよくわかりません!
しいて言えば・・・VBAとほとんど同じかなぁ・・・デバッグがちょっとメンドクサイぐらい。
では実際に・・・・
「準備」
メモ帳とwindowsのみ。
「作るものの前提」
1.ウイルスバスターのショートカットアイコンを起動すると、ユーザーID/PWを問う画面をコールする。
2.
IDの入力あり→DBに問い合わせを行い、ユーザ名の取得&テキストに時間とともに吐き出す
(DB問い合わせをした際にユーザーが存在しない場合→ウイルス検索はできるが、警告メッセージを出力&テキストにログ抽出)
IDの入力なし→空の入力はゆるしまへん!IDと言わせの画面は何度でもでてきます!検索できません!
「ソース抜粋」
’ここが利用者ID入力用のプロシージャね。。。
sub nyuryoku()
input = inputbox("利用者IDを入力して下さい。","利用者ID入力")
'キャンセルを押下した場合、処理終了。
if isempty(input) = true then 'キャンセル押下時にVB処理終了。
wscript.quit
end if
’ここでプロシージャコールね。
nyuryoku
while input = "" '入力画面で空白のままOKを押すと入力画面を繰り返し表示させる。
nyuryoku 'プロシージャ再コール
end
’ここから認証しょりね
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
長くなってしまった・・・・解説は次回へ!!
あぁ・・念のために、オブジェクト定義とか省いてるからこぴぺだけじゃ動作しないよ。
と言うわけで(どういうわけだ??)今日はVBSについて記述しちゃいます。
最近勤め先で、アクセスログを残す残さないとぎゃーぎゃーうるさく言われたことがあったなぁ・・・
そんなに残したきゃお金はらってソフト購入してくださいヨ・・・・
そこであまりにうるさいので作っちゃいました。(粗末なつくりですがネ。。。。)
VBSに関して知らないという方もたくさんいらっしゃるだろうが、ご安心を!私もよくわかりません!
しいて言えば・・・VBAとほとんど同じかなぁ・・・デバッグがちょっとメンドクサイぐらい。
では実際に・・・・
「準備」
メモ帳とwindowsのみ。
「作るものの前提」
1.ウイルスバスターのショートカットアイコンを起動すると、ユーザーID/PWを問う画面をコールする。
2.
IDの入力あり→DBに問い合わせを行い、ユーザ名の取得&テキストに時間とともに吐き出す
(DB問い合わせをした際にユーザーが存在しない場合→ウイルス検索はできるが、警告メッセージを出力&テキストにログ抽出)
IDの入力なし→空の入力はゆるしまへん!IDと言わせの画面は何度でもでてきます!検索できません!
「ソース抜粋」
’ここが利用者ID入力用のプロシージャね。。。
sub nyuryoku()
input = inputbox("利用者IDを入力して下さい。","利用者ID入力")
'キャンセルを押下した場合、処理終了。
if isempty(input) = true then 'キャンセル押下時にVB処理終了。
wscript.quit
end if
’ここでプロシージャコールね。
nyuryoku
while input = "" '入力画面で空白のままOKを押すと入力画面を繰り返し表示させる。
nyuryoku 'プロシージャ再コール
end
’ここから認証しょりね
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
長くなってしまった・・・・解説は次回へ!!
あぁ・・念のために、オブジェクト定義とか省いてるからこぴぺだけじゃ動作しないよ。
投稿者:いぬっころ|16:41