大きな会社では必要ないと思う。
小技で各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を押して・・・
の説明で設定完了です。
ファイルの配布はお好みで・・・
これを元にいろいろ出来るかと思います。
あと、使用する場合は自己責任にてお願いします。
