Windowsのマスターブラウザーをnbtstat等使わずに簡単に調べる方法を見つけたので、書いておきます。
※ただし、XPの場合

Microsoft Windows XP 用 Windows サポート ツールというのを探してダウンロード、もしくはXPのインストールディスクからインストールします。

すると、C:\Program Files\Support Toolsにbrowstat.exeがインストールされます。
※インストール種別をTypicalではなく、Completeにしないとインストールされません。

インストール完了後、今後のために「C:\Program Files\Support Tools」にパスを通します。
そして以下のコマンドを実行するとマスターブラウザ等が簡単に調べられます。

browstat status

フリーのソフトなどをインストールすると「Babylon Search」なるものが付いてくることがあります。
まるでスパムのように入ってくるので、個人的には好きではありません。
ですので、即刻削除しています。

まず[コントロールパネル]-[プログラムの削除]で「Babylon」と名の付くものをアンインストールします。

次に、IEのホーム設定も変更されているので、自分が設定していたページに戻します。
※[ツール]-[インターネットオプション]

次にアドオンを削除します。
IEの[ツール]-[アドオンの管理]で「Babylon Toolbar」を削除（または無効化）します。
続きを読む…»

Scripting.FileSystemObjectを利用してファイルをコピーする方法

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'ファイルをコピー
fso.CopyFile [コピー元ファイル], _
    [コピー先ファイル], _
    [上書きフラグ（Trueで上書き：省略可）]

'フォルダーをコピー
fso.CopyFolder [コピー元フォルダー], _
    [コピー先フォルダー], _
    [上書きフラグ（Trueで上書き：省略可）]

Set fso = Nothing

ACCESSからVBAでフリガナを自動入力します。

Dim xlObj As Object

Set xlObj = CreateObject("Excel.Application")

Hurigana = xlObj.GetPhonetic("文字列")

Set xlObj = Nothing

ちなみにExcelだと、

Phonetic("文字列")

だけでできるようです。

ACCESSからオートメーションでExcelを開き、WorkbooksのReadOnlyプロパティを取得して現在開かれているかどうかを判別します。

まずは変数を宣言

Dim xlApp  As Object
Dim xlBook As Object
Dim FileName As String

ファイルを指定します。
Environ("USERPROFILE")はWindowsの環境変数でC:\Users\ユーザー名というパスを返します。

FileName = Environ("USERPROFILE") & "\デスクトップ\sample.xls"

Excelのオートメーションオブジェクトを作成します。

Set xlApp   = CreateObject("Excel.Application")
Set xlBook  = xlApp.Workbooks.Open(FileName)

開かれたワークブックのReadOnlyプロパティがtrueなら誰かがそのファイルを開いている、ということになります。

If xlBook.ReadOnly Then
    MsgBox "開いています。"
Else
    MsgBox "開いていません。"
End If

ワークブックを閉じてExcelを終了します。

xlBook.Close
xlApp.Application.Quit

最後にオブジェクトの破棄も忘れずに

Set xlBook = Nothing
Set xlApp = Nothing