http://pnpk.net

USB経由でiPod touchからデータを取り出す事が出来るアプリケーションが公開されていましたので使ってみました。
TouchExplorerという名前のアプリケーションでUSB経由のファイル転送を可能にしてくれるとの事。かなり便利アプリケーションですね。
(more…)

Popularity: 10%

iPod touchにiPhone用アプリケーションを強引にインストールするのが流行っているようで、僕もやってみました。購入から若干一日しか経っていないうえに一度も音楽をiPodに取り込んでないんですけどもね。音楽入れなくても十分楽しめるところがすごいですね。

iPod touchとiPhoneに危険度の高い脆弱性

この脆弱性を使ってiPod touchにアプリケーションをインストールします。インストールというかクラッキングですね。この方法はJailbreakと呼ばれているようです。
(more…)

Popularity: 10%

いやいや、今日銀座のアップルストアに寄ったんですが、その時にiPod touch売ってまして、ついつい・・・。ちなみに銀座なんてハイカラな場所ほとんど行きませんからね。
(more…)

Popularity: 3%

あれからしばらくまたシコシコと覇邪の封印をやってまして、やっと魔獣が倒せるようになりました。

魔獣はたくさんいるんですが、倒すと装備品をくれます。
(more…)

Popularity: 3%

Virtual Server管理をスクリプトを自動化させるスクリプト
任意のバーチャルマシンをシャットダウンさせる

On Error Resume Next

Dim objVS
Dim objVM
Dim strMachine

strMachine = "マシン名"

Set objVS = CreateObject("VirtualServer.Application")
Set objVM = objVS.FindVirtualMachine(strMachine)

Set objGuestOS = objVM.GuestOS
objGuestOS.Shutdown()

Set objVS = Nothing
Set objVM = Nothing

全サーバの状態を保存して停止

On Error Resume Next

Set objVS = CreateObject("VirtualServer.Application")
Set colVMS = objVS.VirtualMachines

For Each objVM in colVMS
    objVM.Save
Next

参考リンク
Microsoft Virtual Server Reference

Popularity: 4%

指定したディレクトリの親ディレクトリを参照し、無ければ親ディレクトリを作成します。Subの中に再度Subを呼ぶ部分があって、さらにその後ディレクトリを作成します。ここがポイントですね。勉強になりました。

Sub CreateDir(Path)
'#################################################
'#指定されたパスにディレクトリが無かった場合
'#ディレクトリを作成します。
'#################################################
    Dim objFS
    Dim strParent
    
    Set objFS = WScript.CreateObject("Scripting.FileSystemObject")
    
    strParent = objFS.GetParentFolderName(Path)
    
    '親ディレクトリが無ければディレクトリを作成
    If Not objFS.FolderExists(strParent) Then
        CreateDir(strParent)
    End If
    
    If Not objFS.FolderExists(Path) Then
        objFS.CreateFolder(Path)
    End If
    
    Set objFS = Nothing
End Sub

Popularity: 3%