Windows管理者のささいな経験

私はいつも、システム管理者の日常業務で解決しなければならなかったちょっとおもしろい小さなことやタスクを概説する一連の投稿を書きたいと思っていました。
おそらく、上記のいくつかは他のシステム管理者にとって有用でしょう。

ソースデータとしてWindows環境とActive Directoryドメインがあり、OSは主にWindowsXP-Server2003であることをすぐに予約する必要があります。 さて、サービスを提供した企業のほとんどは中規模(30〜500ユーザー)でした。

おそらく、どのユーザーがどのコンピューターで作業しているかを判断するという頻繁に遭遇するタスクから始めましょう。

この問題を解決するために、さまざまな手法が試されています。

その結果、「 VBSとユーザーで独自のlunaparkを構築 」し、ユーザーがログインおよびログアウトするときにドメインレベル全体でグループポリシーによってそれぞれ実行される2つの小さなログオンログスクリプトを作成しました。

ログオンオプション

Dim adsinfo, ThisComp, oUser

'
Set adsinfo = CreateObject("adsysteminfo")
Set ThisComp = GetObject("LDAP://" & adsinfo.ComputerName)
Set oUser = GetObject("LDAP://" & adsinfo.UserName)

' AD
' Department ,
Thiscomp.put "Department", "Logged on: " + oUser.cn + " " + CStr(Now)
ThisComp.Setinfo

' Department
oUser.put "Department", "Logged on: " + ThisComp.cn + " " + CStr(Now)
oUser.Setinfo
wscript.quit


LOGOFFオプション

Dim adsinfo, ThisComp, oUser

'
Set adsinfo = CreateObject("adsysteminfo")
Set ThisComp = GetObject("LDAP://" & adsinfo.ComputerName)
Set oUser = GetObject("LDAP://" & adsinfo.UserName)

' AD
' Department ,
Thiscomp.put "Department", "Logged off: " + oUser.cn + " " + CStr(Now)
ThisComp.Setinfo

' Department
oUser.put "Department", "Logged off: " + ThisComp.cn + " " + CStr(Now)
oUser.Setinfo
wscript.quit

コードの説明はおそらく必要ありません。スクリプトは初歩的なものです。スクリプトの長所についてのみ説明しますが、私の状況ではマイナス面を大幅に上回っています(これについても説明します)。

長所


短所


継続する。

PS追加を忘れました。 動作モードでは、システムは次のようになります。

Source: https://habr.com/ru/post/J121801/


All Articles