http://pnpk.net

今更ながらVirtual Server 2005上のマシンからステータスを取得するスクリプトを記載。VBSなんてもうみんな使ってないのかな、やっぱり。
(more…)

Popularity: 3%

自分用のメモに転載させていただきました。
現在ログイン中のユーザ名からActiveDirectory上の情報を参照する値の一覧です。探し方が悪いからだと思うんだけど、この手の情報がなかなか見つからなくて、でもVBS以外書けなくて・・・。そんな時にきっと役に立ちます。
(more…)

Popularity: 8%

Quest Softwareから

PowerShell Cmdlets for Active Directory

というアプリケーションが無償公開されています。このアプリケーションを用いる事により、PowerShell上から簡単にActive Directoryを操作する事が出来るようになります。現時点の最新バージョンは1.07です。

Cmdlet（コマンドレット）とはPowerShell謹製のコマンドの事ですが、独自に追加する事が可能です。

ActiveRoles Management Shell for Active Directory

と

ActiveRoles Management Shell for Active Directory - Administrator’s Guide

をダウンロードします。Administrator’s Guideの方は英語のPDF形式のファイルです。

ActiveRoles Management Shell for Active DirectoryをインストールしたらPowerShell上から

get-command -pssnapin quest*

もしくは

get-command *qad*

と入力すればコマンドレットの一覧を表示させる事が出来ます。ActiveRoles Management Shell for Active Directoryに搭載されているコマンドレットは以下の通りです。
(more…)

Popularity: 3%

ディレクトリをコマンドプロンプトから削除する場合にはRDもしくはRMDIRコマンドを使います。ファイル数が多い場合にエクスプローラ上から削除すると画面が固まってしまう事があるので、こんな場合にはこのコマンド使えます。

RD 対象ディレクトリ

ディレクトリ内のデータも全て削除する場合には

RD 対象ディレクトリ /S

さらに確認メッセージを表示させない場合には

RD 対象ディレクトリ /S /Q

Popularity: 3%

ActiveDirectory内のすべてグループに属しているアカウント・グループを表示します。

strDomain = "pnpk.local"

は実際に使っているドメイン名で置き換えてください。

Dim strDomain
strDomain = "pnpk.local"
Call PullAllGroups(strDomain)
'ドメイン内の全てのグループを摘出
Sub PullAllGroups(strDomain)
    Dim Computer
    Dim Group
    Set Computer = GetObject("WinNT://" & strDomain)
    Computer.Filter = Array("Group")
    For Each Group in Computer
    call PullAllUserFromGroup(strDomain,Group.Name)
    Next
End Sub
'グループ内のメンバーを摘出
Sub PullAllUserFromGroup(strDomain,strGroup)
    Dim Group
    Dim User
    Set Group = GetObject("WinNT://" & strDomain & "/" & strGroup & ",group")
    
    Wscript.echo "■" & strGroup & "のメンバー一覧"
    For Each User in Group.Members
        Wscript.Echo User.Name
    Next
End Sub

参考URL
http://www.15seconds.com/issue/020130.htm

Popularity: 3%

この記事の一覧を使って今度はActiveDirectory上のアカウント属性を書き換えてみます。

■ユーザアカウントオブジェクトの説明を書き換える
この値は例えばadministratorであれば

コンピュータ/ドメインの管理用 (ビルトイン アカウント)

という値が格納されています。

説明を書き換えるには以前の一覧の中から

description

という値を使います。

手抜きですが以下のスクリプトを実行すると自分自身のユーザアカウントの説明を”テスト”という値に書き換えます。ただし実行するアカウントはユーザアカウントのオブジェクトに対して書き込みの権限が無ければだめです。
(more…)

Popularity: 3%