2007-07

久しぶりにCDを買いました。

富士ゼロックスの生産設備の一部に被害があった模様。

こういった情報を逐次リリースできる体制がある、というのは危機への備えを怠っていないということなんでしょうね。

サーバ名はserver1。

usersフォルダを共有し、その下にログオンユーザ名でフォルダが存在。

Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objShell = WScript.CreateObject(“WScript.Shell”)
strDesktop = objShell.SpecialFolders(“Desktop”)
strFileName = strDesktop + “\public_html.lnk”
Set objShortCut = objShell.CreateShortcut(strFileName)
username = objShell.ExpandEnvironmentStrings(“%USERNAME%”)

If objFSO.FolderExists(“\\server1\users\” & username) Then
objShortCut.TargetPath = “\\server1\users\%USERNAME%”
objShortCut.Save
WScript.Echo strFileName & “にショートカットを作成しました。”
Else
Wscript.Echo “フォルダが存在しません。”
End If

動作：

\\server1\users\%username%のフォルダの存在をチェックし、フォルダがあれば、デスクトップにpublic_htmlという名称で、当該フォルダへのショートカットを作成します。無ければ、「フォルダが存在しません。」というメッセージが表示されます。

利用シナリオ：

ログオンスクリプトで実行します。

独自ドメインを取得し、レンタルサーバでブログを書くことにしました。

有料サービスを利用することで、「書かないともったいない」という気分に自分を追い込むつもりです。

はてなダイアリーは更新を停止しますが、そのまま保管しておくつもりです。