VBScript (VBS)でPC設定を楽しよう

大きな会社では必要ないと思う。

小技で各PCの設定を素人でも行えるようにする。

各個人に行ってもらうことはダブルクリックと、メッセージが表示されたらOKを押してもらうだけ。

今回の設定は
①新たに設置したサーバーのショートカットをデスクトップに配置
②サーバー名で参照できるようにlmhostsに登録

これを各個人の端末に設定をする。

そこでどうするかと言えばvbsになるわけだ。

そこで以下がそのソース。

Dim x
x = "新サーバー設定開始。"
MsgBox x

Dim str_from 'lmhostsを上書き保存
Dim str_to
Dim str_from2 'lmhosts.samを上書き保存
Dim str_to2

str_from = "\\共有フォルダ\配布フォルフダ\lmhosts.sam"str_to = "C:\WINDOWS\system32\drivers\etc\lmhosts"

Set objFS = CreateObject("Scripting.FileSystemObject")Call objFS.CopyFile(str_from, str_to)
str_from2 = "\\共有フォルダ\配布フォルフダ\lmhosts.sam"
str_to2 = "C:\WINDOWS\system32\drivers\etc\lmhosts.sam"

'********************lmhostsを再起動ナシで反映
Set objFS = CreateObject("Scripting.FileSystemObject")Call objFS.CopyFile(str_from2, str_to2)
Set WshShell = CreateObject("WScript.Shell")Set oExec = WshShell.Exec("cmd /c nbtstat -R")

WScript.echo oExec.StdOut.ReadAll　　’成功メッセージ

'********************ショートカット作成
Dim sc,desk_top
Set WSH=CreateObject("WScript.Shell") Set ws = WScript.CreateObject("WScript.Shell")desk_top = ws.SpecialFolders("Desktop")
Set sc = WSH.CreateShortcut(desk_top & "\新サーバー へのショートカット.lnk") sc.TargetPath = "\\新サーバー" sc.save
Set sc = Nothing Set WSH = nothing

準備として
①共有フォルダが必要
②その共有フォルダにlmhostsのコピーの元ネタをしこんでおく
③各クライアントのlmhostsとlmhosts.samの両方が等しくなるようにコピーする
④クライアントの再起動をせずにlmhosts更新を行うので、一応メッセージ確認で一呼吸置くようにする
⑤デスクトップにショートカットを配置する場合は、特殊なデスクトップに対応する

拡張子を.vbsで保存後終了。

尚、lmhostsはなにもしなければ上記の場所のはずなのでデフォルト

こうすると、そのファイルをダブルクリックして、出てきたメッセージは全部OKを押して・・・

の説明で設定完了です。

ファイルの配布はお好みで・・・

これを元にいろいろ出来るかと思います。


あと、使用する場合は自己責任にてお願いします。