IT

VB WSH スクリプト

最近スクリプトを作成していないなあ~と、かなりの基本から忘れてしまったので、再度復習という意味で簡易のサンプルで必要なVBスクリプトを色々とテストをしてみました。参考にしたウェブページだけ記載しておきたいと思います。

やりたいこと
・ソフト自動セットアップ用のWSH VBテンプレの作成
・ちゃんとインストールされたかどうかを確認したい > Log出力、対象フォルダ開き目視
・自分の管理者IDで初回ログインした時に既に必要なフォルダショートカットがデスクトップに欲しい
・自分のPC上から、指定のPC名を含み、指定の”C:\ %Public% desktop” にショートカットコピーが必要
・Public folder Desktop にショートカットコピースクリプト作成
・可能ならスクリプト実行時に、誰が実行したかログイン名、時間、PC名、ログを出力したい
・実行許可、自動インストール、完了通知、インスコできなかったら対象フォルダを開く
・全部の自動インストールスクリプトが完成したら、全部を連続でつなげ全部自動化

WSH VB Script 参考サイト
http://wsh.style-mods.net/

InputBox 関数
http://www.kanaya440.com/contents/script/vbs/function/others/input_box.html

MsgBox 関数
http://www.kanaya440.com/contents/script/vbs/function/others/msgbox.html

If 構文
https://msdn.microsoft.com/ja-jp/library/cc392186.aspx

CopyFile (FileSystemObject オブジェクト)
http://wsh.style-mods.net/ref_filesystemobject/copyfile.htm

Windows7:環境変数一覧
http://office-qa.com/win/win182.htm

WSH サンプル集
http://wsh.style-mods.net/tips/index.htm

MSI packages, InstallShield
http://unattended.sourceforge.net/installers.php

1秒(1000ミリ秒)待機
http://wsh.style-mods.net/tips/wshtips_1-03.htm

‘MsgBox 必要な情報を先に定義し入力しておく
Dim App, Msg, MyVar
App = “Software Name”
Msg = “Do you want to install ?”
MyVar = 0
‘インストールするか確認、OKの場合のみ実行 NOの場合キャンセル
MyVar = MsgBox (Msg, 1, App)
If MyVar = 1 then
Else
End If

‘InputBox 必要な情報を先に定義し入力しておく
Dim Login, Pass, Msg
Login = “”
Pass = “”
Msg = “Do you want to install ?”
Login = InputBox(“Please set Administrative account”)
Pass = InputBox(“Please set Password”)
MsgBox (Login)

‘Folder を開くサンプル
Dim Folder
Set objShell = WScript.CreateObject(“Shell.Application”)
Folder = “C:\”
objShell.Explore Folder
Set objShell = Nothing

Leave a Reply

Your email address will not be published. Required fields are marked *