ここで紹介するlogon.vbsは，共有フォルダをドライブ名に割り当てる作業や，ネットワークプリンタに接続する作業をログイン時に自動的に行うことを主な目的とするスクリプトです。ユーザの所属するグループによってネットワークドライブの割り当てを変更したり，コンピュータによって接続するネットワークプリンタ や通常使うプリンタを変更したりできるようになっています。 グループによるネットワークドライブの割り当てを自動的にできるので，各ユーザに設定作業をしてもらう必要がない。 プリンタの割り当てを自動ですることにより，新しいコンピュータが入ってもいちいちプリンタのインストール作業をする必要がない。また新しいプリ ンタが入った場合でもサーバにプリンタをインストールし設定ファイルに記述を追加するだけでよく，各コンピュータへのインストール作業をする必要がない。 これらの機能でクライアントコンピュータの初期設

運用しているサーバで，Active Directoryのドメインサーバ間でのレプリケートができなくなっていた。しょうがないので，NETLOGONに保存されているLogonスクリプト に変更があった場合には，二つのサーバのファイルを更新していた。しかしそれではめんどうだし，エラーが発生しているまま放置しているのも気持ちが悪いの で，本気で直すことにした。 出入りのメンテナンス業者のエンジニアに聞いたところ，サーバを設置した後，ネットワーク機器の接続を変更した りした場合にそのようなことが起きることがあるという。サーバ間のレプリケートの接続設定は，2台目のドメインサーバが追加されたときに自動設定される。 そのごネットワーク機器の変更があると，相手先のサーバが見つからない状態になってしまうらしい。まずはその対策を施すことにした。 Active Directoryサイトとサービスを起動 Site/

このトピックはExcelのVBAを利用してActive Directoryのユーザ情報を管理するやり方についての記録です。 Excel VBAの参照設定 Active DS Type Library Microsoft Scription Runtime Microsoft WMI cripting V1.2 Library 上記を追加する Active Directoryユーザ管理のためのモジュール mdlADSI 後のCADSIを使うための構造体TADUserを定義しているType TADUser UserID As String FirstName As String LastName As String Password As String DisplayName As String UserPrincipalName As String Descri

3〜6のデータをについてはWMIを使って取得し，FileSystemObjectを使ってテキストファイルに出力します。'ログオン・ログオフイベントを記録するスクリプト sEvent = "LogOn" 'ログオフ用はここを変更する sFileName = "\\server01\log\logon" & _ Year(Now) * 100 + Month(Now) & ".log" On Error Resume Next Set FSO = CreateObject("Scripting.FileSystemObject") Set wshNetwork = CreateObject("WScript.Network") SearchPC = wshNetwork.ComputerName Set objComputer = GetObject("winmgmts:{im

logon.vbsの役割 logon.vbsは，共有フォルダをドライブ名に割り当てる作業や，ネットワークプリンタに接続する作業をログイン時に自動的に行うことを主な目的とするスクリプトです。ユーザの所属する部署によってネットワークドライブの割り当てを変更したり，コンピュータによって接続するネットワークプリンタや通常使うプリンタを変更したりできるようになっています。 部署によるネットワークドライブの割り当てを自動的にできるので，各ユーザに設定作業をしてもらう必要がない。 プリンタの割り当てを自動ですることにより，新しいコンピュータが入ってもいちいちプリンタのインストール作業をする必要がない。また新しいプリンタが入った場合でもサーバにプリンタをインストールし設定ファイルに記述を追加するだけでよく，各コンピュータへのインストール作業をする必要がない。 これらの機能でクライアントコンピュータ