matsu 気楽なBlog

仮想化で快適な環境を!!

ホーム 連絡をする 同期する ( RSS 2.0 ) Login
投稿数  289  : 記事  0  : コメント  2915  : トラックバック  22

ニュース

書庫

日記カテゴリ

Link

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

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

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

 

投稿日時 : 2008年7月9日 9:19

コメント

# Bookmarks about Shutdown 2009/01/29 23:45 Pingback/TrackBack
Bookmarks about Shutdown

# zOmeIKfXatMA 2011/12/22 21:19 http://www.discreetpharmacist.com/
UPEW6N Unbelievable. Class..!

# whuGglajWJsw 2011/12/23 0:09 http://247options.com/
Read, of course, far from my topic. But still, we can work together. How do you feel about trust management?!...

# FYWXEMRaeWvWCZeaUc 2011/12/23 18:24 http://247options.com/
Not bad post, but a lot of extra !!...

Post Feedback

タイトル
名前
Url:
コメント