http://pnpk.net

前回作ったグループのツリー表示と逆で、今度はユーザに紐付くグループの一覧を表示できるようにしてみました。普通に一覧表示すると所属している最初のグループしか表示出来ないんだけど、このスクリプトを使えばActive Directory上の所属しているすべてのグループを一覧出来ます。
※ただしDomain Usersは表示されません。

また、以下の部分は環境に応じて変更してください。

DomainName = "dc=pnpk,dc=local"

(more…)

Popularity: 4%

ファイルサーバの権限やらその他もろもろのアクセス権限をActive Directoryで行っていると、便利なんだけど僕の場合どんどんグループが複雑になり過ぎてこんがらがってしまいます。

そこでActive Directoryのグループをツリー構造で表示させるVBScriptを作ってみました。グループ構造を自動的に出せるようになるといちいち面倒なデータの更新なんかもやらなくて済むし、棚卸の際にも負担がかなり軽くなります。

動作はWindows Server 2003と2008で確認しましたのである程度末永く使えるんじゃないかと思っています。また、Domain Usersの一覧が上手く取得出来ませんがその他は取得出来ていると思います。

Domain Usersが上手く取得出来ない理由をご存じの方いらっしゃいましたら教えてください。

スクリプトを動作させる場合には、

DomainName = "dc=pnpk,dc=local"

の部分だけ、自分のドメイン環境に合わせて変更してください。

また、サイトレイアウトの都合で’が全角になってしまっているのでテキストに保存してから半角に置換してください。
(more…)

Popularity: 4%

Background Intelligent Transfer Service は次のサービス固有のエラーで終了しました: 2147500053 (0x80004015)

いやいや、BITSがどうも最近起動しないなと思っていたらどうやらグループポリシーの設定がまずかったらしいです。

グループポリシーでサービスの起動制限を行う場合には

NT AUTHORITY\Authenticated Users

に対して

開始, 停止, 一時停止と続行

の権限が必要になるみたい。

とりあえず以下のサイトに助けられました。ありがとうございます。

参考
Automatic Updates サービスを起動すると エラー 0×80004015 が発生する

Popularity: 4%

Windows XPに元々搭載されているIExpress.exeからVBScriptを実行ファイルに変換する方法が載っていたのでメモ。

スタート→ファイル名を指定して実行

に

IExpress

と入力してOKをクリックしてください。
(more…)

Popularity: 6%

Windows Server 2003のサービスで、頻繁に落ちているモノがあったので集中的に監視可能な、サービスが起動していなかったら起動を試みる監視スクリプトを作ってみました。
もしかすると使い道あまりないかも知れませんが、使い道あったらどうぞ。
(more…)

Popularity: 5%

VBSでお手軽に文字列を検索するスクリプト。
運用管理だとまだまだ独自のログを吐き出すアプリケーションは多くて、なんだかんだ便利に使っています。

'文字列の中に特定の文字列が含まれている場合に真を返す

If SearchWord("あいうえお","あいう") Then
    Wscript.Echo "あいうが含まれています。"
End If

'SearchWord(対象文字列,探したい文字列)
Function SearchWord(strSearchObject,strKeyword)
    Dim objRE
    
    Set objRE = New RegExp
    
    objRE.Pattern = strKeyword
    objRE.Global = True
    
    SearchWord = objRE.Test(strSearchObject)
    Set objRE = Nothing
End Function

Popularity: 3%