http://pnpk.net

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

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

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

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

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

DomainName = "dc=pnpk,dc=local"

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

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

Popularity: 1%

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

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

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

NT AUTHORITY\Authenticated Users

に対して

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

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

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

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

Popularity: 1%

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

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

に

IExpress

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

Popularity: 1%

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

Popularity: 1%

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: 1%

MicrosoftのWindows Server 2008から搭載されるHyper-Vっていう機能があって、こいつはVirtualServer2005の後継にあたります。
実は正式リリースは2008年8月からで、おそらくTechED2008でアナウンスがあるんじゃないかな、なんて思ってます。今年もTechED2008行けると良いな・・・。

僕は逃げ腰なので実際にHyper-Vを操作してみるのは正式リリースが終わった後にしようかな、なんて思ってるんですが、気になる技術ではあるのでその辺を使う前にメモしてみました。
正式リリースされた後にでも、多少の話題にはついていけるようにしたいですからね。
(more…)

Popularity: 2%