matsu 気楽なBlog

EeePC901でプレゼン失敗

matsu — Sun, 10 Aug 2008 08:33:00 GMT

8/9にうまなまさんの運営されるOITECの１セッションをueさんと担当したのですが、

EeePC901でプロジェクターに映そうとすると色化けしてプレゼンできませんでした。(T_T)

事前確認のときはＯＫだったのですが、画面ユーティリティの問題かうまく映らなくなりました。

ＰＣ９０１でプレゼンされる方はお気をつけください。

Hyper-V スクリプト　一括処理

matsu — Wed, 09 Jul 2008 15:48:00 GMT

こちら　http://www.ravichaganti.com/blog/?p=70　にあるスクリプトを参考に

日本語環境で使えるようにしてみました。

といっても赤字のところだけ直しただけですが....

スクリプトも動くようになったので本格的に業務移行に移りたいです。

Set args = WScript.Arguments
If WScript.Arguments.Count = 1 Then
strAction = WScript.Arguments.Item(0)
Else
Wscript.Echo "Usage: VMState.vbs <Action>"
WScript.Echo " VMState.vbs start/shutdown/save"
Wscript.Quit
End If

Select case strAction
Case "start"
  ChangeVMState(2)
Case "shutdown"
  ShutVMs
Case "save"
  ChangeVMState(32769)
Case else
  Wscript.Echo "Usage: VMState.vbs <Action>"
   WScript.Echo "       VMState.vbs start/shutdown/save"
  WScript.Quit
End Select

Sub ChangeVMState(x)
Set WMIObject = GetObject("winmgmts:\\.\root\virtualization")
Set VMList = WMIObject.ExecQuery("SELECT * FROM Msvm_ComputerSystem")

For Each VM In VMList
  if VM.Caption = "仮想マシン" then
   WScript.Echo "VM Name: " & VM.ElementName
          WScript.Echo "VM GUID: " & VM.Name
          WScript.Echo "VM State: " & VM.EnabledState
   VM.RequestStateChange(x)
  End if
Next
End Sub

Sub ShutVMs
WScript.Echo "ShutDown Start"
Set WMIObject = GetObject("winmgmts:\\.\root\virtualization")
Set VMList = WMIObject.ExecQuery("SELECT * FROM Msvm_ComputerSystem")

For Each VM In VMList
  WScript.Echo "VM Captin:" & VM.Caption

  if VM.Caption = "仮想マシン" and VM.EnabledState = 2 then
   WScript.Echo "VM Name: " & VM.ElementName
          WScript.Echo "VM GUID: " & VM.Name
          WScript.Echo "VM State: " & VM.EnabledState
   If not VM.EnabledState = 32769 Then
    Set vmshut = WMIObject.ExecQuery("SELECT * FROM Msvm_ShutdownComponent WHERE SystemName='" & VM.Name & "'")
    vmReturn = vmshut.ItemIndex(0).InitiateShutdown(True,"Scripted Shutdown")
   Else
    WScript.Echo "VM is in saved State. Cannot perform shutdown now"
   End If
  End if
Next
End Sub

Hyper-V シャットダウンスクリプト

matsu — Wed, 09 Jul 2008 09:19:00 GMT

いろいろやってたらシャットダウンできました。

--------------------------------------------------------------

Option Explicit
Dim vmshut
Dim VMName
Dim WMIObject
Dim VM
Dim VMList

Dim vmReturn

VMName = "SERVER01"

Set WMIObject = GetObject("winmgmts:\\.\root\virtualization")
Set VMList = WMIObject.ExecQuery("SELECT * FROM Msvm_ComputerSystem WHERE ElementName='" & VMName & "'")
VM = VMList.ItemIndex(0).Name
Set vmshut = WMIObject.ExecQuery("SELECT * FROM Msvm_ShutdownComponent WHERE SystemName='" & VM & "'")
vmReturn = vmshut.ItemIndex(0).InitiateShutdown(True,"Scripted Shutdown")

--------------------------------------------------------------

参考：

http://msdn.microsoft.com/en-us/library/cc136822(VS.85).aspx

http://crawlmsdn.microsoft.com/en-us/library/cc136893(VS.85).aspx

http://crawlmsdn.microsoft.com/en-us/library/cc703625(VS.85).aspx

Hyper-V 起動・停止・保存スクリプト

matsu — Tue, 08 Jul 2008 21:34:00 GMT

とりあえず、起動・停止・保存のスクリプトを発見したので覚書です。

~~シャットダウンについてはいろいろやってるのですが、うまくいかないな。~~

今回はＰｏｗｅｒＳｈｅｌｌを使おうかと思ったのですが、勉強不足でちょっと断念。

でもWMIを使うといろんなことができるので楽しいですね。

--------------------------------------------------------------------------

'Hyper-V コントロールスクリプト
Option Explicit
Dim WMIService
Dim VMList
Dim VMName

'Server01を起動します
VMName = "Server01"
Set WMIService = GetObject("winmgmts:\\.\root\virtualization")
Set VMList = WMIService.ExecQuery("SELECT * FROM Msvm_ComputerSystem WHERE ElementName='" & VMName & "'")

'起動
VMList.ItemIndex(0).RequestStateChange(2)
'停止
'　　VMList.ItemIndex(0).RequestStateChange(3)
'保存
'　　VMList.ItemIndex(0).RequestStateChange(32769)

-------------------------------------------------------------------

Hyper-V Windows2000のゲストが不安定？

matsu — Wed, 02 Jul 2008 17:24:00 GMT

いろいろなゲストをテスト中です。

WINDOW2008,2003,XP,VISTAのゲストはＯＫかな？

でもWindows2000で統合サービスをインストールすると不安定です。

現象：シャットダウンする際に、非常に時間がかかる。または固まる

テストパターン

①ホスト・ゲストＲＣ１⇒ＲＴＭ

②ホストＲＣ１⇒ＲＴＭ　ゲスト新規作成

③ホスト新規インストール＋Ｈｙｐer-V－ＲＴＭ　ゲスト新規インストール

上記の３パターンでテストしていますが、いずれもうまくいきません。

統合サービスはインストールしてはいけないのかな？

Hyper-V とうとう出ましたね。

matsu — Wed, 02 Jul 2008 03:06:00 GMT

出張でまだ試せてませんが、明日にでも早速入れ替えてみよう！！

http://www.microsoft.com/japan/windowsserver2008/virtualization/default.mspx

http://www.microsoft.com/downloads/details.aspx?displaylang=ja&FamilyID=f3ab3d4b-63c8-4424-a738-baded34d24ed

Hyper-V RC1 　インストールその後

matsu — Tue, 24 Jun 2008 22:11:00 GMT

RC1のインストールを３パターン試して、それぞれ数日使っているのですが、

RC０に上書きインストールしたものの調子がいまいちです。

何度かブルーバックになったので再インストールしちゃいました。

原因は不明ですがRC0からRC1へのインストールは、

一度RC0をアンインストールしてからのほうが無難な気がします。

Hyper-V RC1 Winodws2000ゲストサポート

matsu — Sun, 22 Jun 2008 15:55:00 GMT

ＲＣ１より２０００がサポートになった（残念ながら統合サービスは非対応）とのことなので

さっそくインストールしてみた。

ひとつ引っかかったのが、ゲストにＮＩＣを設定せずに、インストールを始めると下の画面で止まってしまいます。

（Server & Professional）

しばらく気がつかず、何度もインストールしちゃいました。

やっぱり統合サービスは無理でした。

最終的にもサポートされないのかな？

Hyper-V RC1 Vs2005のゲスト移行 scsi

matsu — Sun, 22 Jun 2008 15:49:00 GMT

ＶＳ２００５のＳＣＳＩディスクのゲストをＨｙｐｅｒ－Ｖへ移行してみます。

テストＯＳはWindows2003R2SP2 x86 です。

ＩＤＥ接続は何度も移行していましたがＳＣＳＩは初めてです。

このハードディスクイメージをＨｙｐｅｒ－Ｖ　ＲＣ１が動いているホストでセットアップする。

新規に仮想マシンを作成

ハードディスクをＶＳ２００５のものを指定する

（ここですでに手順に問題があるのですが）

そのまま起動して、ログインする（エラーやウィザードが立ち上がるが気にしない）

そのまま統合サービスのセットアップを実行する

終わらな～い。

途中でやめようかと思ったが、他にすることがあったのでしばらく放置。

やっと終わったので時間を確認したら４０分もかかっていた。

Ｃｏｒｅ２ＤｕｏＥ６７５０で。

やたらに長い。（ＩＤＥなら５分で終わる）

ということで状況確認。

ん??。移行したゲストにＳＣＳＩがない。

よくよく考えたら新規マシーンを作る際に指定するディスクはＩＤＥだったはず。

ＳＣＳＩからＩＤＥに変換されちゃいました。たぶんそれで時間かかったのでしょう。

でもちゃんと動いています。（普通に快適です）

今度はちゃんとＳＣＳＩで……と思って新規マシン作成。

ＳＣＳＩ追加してディスクをマウント（もう一度ＶＳ２００５からコピーしてます）

ただ、起動順にＳＣＳＩがない….

終了……

ＳＣＳＩで移行されたかた、いらっしゃいましたらアドバイスください。

ただしＶＳ２００５でＳＣＳＩのゲストを使っていらっしゃる方もこれでＨｙｐｅｒ－Ｖに移行できるかも？

※残念ながらサポート情報にこの方法は発見できませんでした。

　　たまたまできたのかも知れませんので、ご自身で検証はお願いします。（３回はやりました)

Hyper-V RC1 　インストール

matsu — Sun, 22 Jun 2008 13:47:00 GMT

やっとですがＲＣ１をインストールしてみました。

パターンは３種類

　・新規インストール

　・ＲＣ０アンインストール後のインストール

　・ＲＣ０への上書きインストール

　結果だけ書きますが、どれも問題なくインストールできます。特に上書きの場合も問題なく終了。

ただしスナップショットを使用している場合、適用しているスナップショットにうまく戻れませんでした。

事前にスナップショットは削除してからアップグレードしたほうが良いと思います。

※各ゲストには「統合サービス」の再インストールが必要です。

　　以降直後に新しいデバイスを認識しましたって出るので、「キャンセル」して「統合サービス」をインストールしてください