Archive for 12月, 2008


Option Explicit
  Dim OBJ_FSO
  Dim OBJ_Browser
  Dim STR_ProgramName

  Set OBJ_FSO = CreateObject("Scripting.FileSystemObject")

  For Each OBJ_Browser In CreateObject("Shell.Application").Windows

    STR_ProgramName = OBJ_FSO.GetFileName(OBJ_Browser.FullName)
    If LCase(STR_ProgramName) = "iexplore.exe" Then

      WScript.Echo OBJ_Browser.LocationURL

    End If

  Next

Scriptのダウンロードは こちら です。

1. VNCサーバがインストールされていることを確認する。

# pkg info SUNWxvnc

20081231_1 

※インストールされていない場合は、パッケージマネージャから
インストールを実施する。

2. 「/etc/X11/gdm/custom.conf」 を 編集する。

# cd  /etc/X11/gdm
# vi  custom.conf

20081231_2 

3. サービスの有効化を行う

# svcadm enable xvnc-inetd
# svcs xvnc-inetd

 20081231_3

4. VNCビューアより、接続を行う

 20081231_4

※ 接続出来ない場合は、以下のコマンドを試す。
(サービスの状態が mentenance になる場合がある)

# svcadm disable xvnc-inetd gdm
# svcadm enable xvnc-inetd gdm

O’Reilly Japanから発売される DNS & BIND 第5版 です。

第4版はかなり読み込みました。当時は BIND 4、BIND 8が多く使われていました。

購入予定です。