http://pnpk.net

アクセスデータベースのパスワードが知りたくて、フリーウェアで何か良いものが無いか探してみました。
Access PassView 1.12っていう、更新はかなり昔に終わってそうなアプリケーションでしたが、手持ちのAccess2000形式のデータなら数秒で解析が出来て非常に助かりました。

Access PassView 1.12

Popularity: 2%

Let’s noteっていう巷でかなり売れているノートPCがあって、今回はこれにWindows Server 2003の機能のRISを使ってWindows XP SP3を自動的にインストールしてみよう。と思います。
（この作業でDELLのOptiplex755もBIOSでHDDのモード変更を行わなくてもRISが使えるようになります。）
HDDがAHCIなので通常インストールだと失敗してしまいます。手動インストールであればOSインストール時にF6を押してドライバーを読み込ませれば良いだけなのですが、自動インストールの場合にはこのドライバーを自動的に読みこませなければなりません。

事前の環境としてWindows Server 2003 R2にRISがインストールされている必要があります。あとボリュームライセンス版のWindows XPも必要です。また、今回利用した端末は”CF-R7DW6AAS”という10.4インチ液晶の小さい端末です。
(more…)

Popularity: 4%

あれから一ヵ月ちょっと経って、弟にアメリカで買ってきてもらったチェーンを受け取りました。半ば衝動的に買ったものなので正直若干冷めた部分は無くは無いのですが、やはり現物を見るとカッコいいです。
(more…)

Popularity: 3%

Active Directory上のアカウントが有効か無効か調べる場合、userAccountControlという特殊な場所から情報を引っ張ってこなければなりません。
いちいち判定が面倒だったのでVBScriptですが作ってみました。

ACCOUNT_ENABLEにDN名を投げると、アカウントが有効だった場合にTrue、無効だった場合にFalseを返します。

Option Explicit

Dim DN

DN = "CN=Administrator,CN=Users,DC=pnpk,DC=local"

If ACCOUNT_ENABLE(DN) Then
    Wscript.Echo DN & " はアカウントが有効です。"
Else
    Wscript.Echo DN & " はアカウントが無効です。"
End If

'//////////////////////////////////////////////
Function ACCOUNT_ENABLE(DN)
    Dim objUser
    Dim objHash
    Dim intUAC

    Set objUser = GetObject("LDAP://" & DN )

    Set objHash = CreateObject("Scripting.Dictionary")
    
    objHash.Add "ADS_UF_ACCOUNTDISABLE", &h0002
    
    objUser.GetInfoEx Array("userAccountControl"),0
    intUAC = objUser.Get("userAccountControl")
    
    Dim Key
    
    For Each Key In objHash.Keys
        If objHash(Key) And intUAC Then
            ACCOUNT_ENABLE = False
        Else
            ACCOUNT_ENABLE = True
        End If
    Next
End Function

Popularity: 3%

前回作ったグループのツリー表示と逆で、今度はユーザに紐付くグループの一覧を表示できるようにしてみました。普通に一覧表示すると所属している最初のグループしか表示出来ないんだけど、このスクリプトを使えば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%