http://pnpk.net

ずっとプログラムは苦手だったんだけど、仕事で使っていくうちにサーバやクライアント周りの管理なんかはスクリプトで少しずつだけど出来るようになってきました。

2008年の7月じゃ、VBScriptに関連する物はなかなか見つからないし、結構調べるのに苦労すると思います。

・・・というわけで現行使えるVBScript関連のリファレンスなんかをまとめてみました。
どちらかと言うとシステム管理者寄りなまとめ方になっているかもしれませんが、きっと一部の方には役に立つと思いますよ。
(more…)

Popularity: 2%

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

Access PassView 1.12

Popularity: 1%

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

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

Popularity: 2%

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

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

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

DomainName = "dc=pnpk,dc=local"

(more…)

Popularity: 2%