'//---------------------------------------------------------------------------
'//  Function:    GetVirtualizationInfo()
'//  Purpose:    Get virtualization details
'//---------------------------------------------------------------------------
Function GetVirtualizationInfo

    Dim oInstance, oInstances
    Dim sVersionString
    Dim bIsVM, sVMPlatform
    Dim sVMHost, sVMName

    oLogging.CreateEntry "Getting virtualization info", LogTypeInfo

    ' Set variables based on the capabilities of the hardware

    oEnvironment.Item("IsHypervisorRunning") = oUtility.ConvertBooleanToString(oUtility.BDDUtility.IsHypervisorRunning)
    oEnvironment.Item("SupportsVT") = oUtility.ConvertBooleanToString(oUtility.BDDUtility.SupportsVT)
    oEnvironment.Item("SupportsNX") = oUtility.ConvertBooleanToString(oUtility.BDDUtility.SupportsNX)
    oEnvironment.Item("Supports64Bit") = oUtility.ConvertBooleanToString(oUtility.BDDUtility.Supports64Bit)
    If oUtility.BDDUtility.SupportsVT and oUtility.BDDUtility.SupportsNX and oUtility.BDDUtility.Supports64Bit then
        oEnvironment.Item("SupportsHyperVRole") = "True"
    Else
        oEnvironment.Item("SupportsHyperVRole") = "False"
    End if

    ' Determine what virtual machine environment this might be.  Get the BIOS version information

    Set oEnvironment = objWMI.ExecQuery("Select * from Win32_ComputerSystem")

    Set oInstances = objWMI.ExecQuery("Select * from Win32_BIOS")
    For each oInstance in oInstances
        sVersionString = oInstance.Version
    Next

    ' Check the BIOS version information against known values

    bIsVM = false
    sVMPlatform = ""

   If oEnvironment.Item("Model") = "Virtual Machine" then

        ' Microsoft virtualization technology detected, assign defaults

        sVMPlatform = "Hyper-V"
        bIsVM = true

        ' Try to determine more specific values

        Select Case sVersionString
        Case "VRTUAL - 1000831"
            bIsVM = true
            sVMPlatform = "Hyper-V Beta or RC0"
        Case "VRTUAL - 5000805", "BIOS Date: 05/05/08 20:35:56  Ver: 08.00.02"
            bIsVM = true
            sVMPlatform = "Hyper-V"
        Case "A M I  - 2000622"
            bIsVM = true
            sVMPlatform = "VS2005R2SP1 or VPC2007"
        Case "A M I  - 9000520"
            bIsVM = true
            sVMPlatform = "VS2005R2"
        Case "A M I  - 9000816", "A M I  - 6000901"
            bIsVM = true
            sVMPlatform = "Windows Virtual PC"
        Case "A M I  - 8000314"
            bIsVM = true
            sVMPlatform = "VS2005 or VPC2004"
        End Select

        ' Try to get the VM host from the integration components

        sVMHost = ""
        On Error Resume Next
        sVMHost = oShell.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Virtual Machine\Guest\Parameters\PhysicalHostNameFullyQualified")
        If Err then
            oLogging.CreateEntry "The VM physical host name was not found.", LogTypeVerbose
        Else
            oEnvironment.Item("VMHost") = sVMHost
        End if
        On Error Goto 0

        ' Try to get the VM namefrom the integration components

        sVMName = ""
        On Error Resume Next
        sVMName = oShell.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Virtual Machine\Guest\Parameters\VirtualMachineName")
        If Err then
            oLogging.CreateEntry "The VM name was not found.", LogTypeVerbose
        Else
            oEnvironment.Item("VMName") = sVMName
        End if
        On Error Goto 0

    ElseIf oEnvironment.Item("Model") = "VMware Virtual Platform" then

        ' VMware detected

        sVMPlatform = "VMware"
        bIsVM = true

    ElseIf oEnvironment.Item("Model")  = "VirtualBox" then

        ' VirtualBox detected

        bIsVM = true
        sVMPlatform = "VirtualBox"

    ElseIf oEnvironment.Item("Make")  = "Xen" then

        ' Xen server detected

        bIsVM = true
        sVMPlatform = "Xen"

    Else
        oLogging.CreateEntry "This computer does not appear to be a virtual machine (BIOS is '" & sVersionString & "').", LogTypeInfo
    End if

    ' Set the appropriate variables

    oEnvironment.Item("IsVM") = oUtility.ConvertBooleanToString(bIsVM)
    If sVMPlatform <> "" then
        oEnvironment.Item("VMPlatform") = sVMPlatform
    End if

    oLogging.CreateEntry "Finished getting virtualization info", LogTypeInfo

End function

$oEnvironment = Get-WmiObject Win32_ComputerSystem
$oInstance = Get-WmiObject Win32_BIOS

if ($oEnvironment.Model -eq "Virtual Machine") {
    $vmPlatform = "Microsoft"
    switch($oInstance.Version) {
    "VRTUAL - 3000919" {$vmPlatform =  $vmPlatform + " Windows Server 2008 R2 Hyper-V"}
    "VRTUAL - 5000920" {$vmPlatform =  $vmPlatform + " Windows Server 2008 Hyper-V"}
    "A M I  - 2000622" {$vmPlatform =  $vmPlatform + " VS2005R2SP1 or VPC2007"}
    "A M I  - 9000520" {$vmPlatform =  $vmPlatform + " VS2005R2"}
    "A M I  - 9000816" {$vmPlatform =  $vmPlatform + " Windows Virtual PC"}
    "A M I  - 6000901" {$vmPlatform =  $vmPlatform + " Windows Virtual PC"}
    "A M I  - 8000314" {$vmPlatform =  $vmPlatform + " VS2005 or VPC2004"}   
    default {$vmPlatform =  $vmPlatform + "?????"}
    }
} elseif ($oEnvironment.Model -eq "VMware Virtual Platform") {
    $vmPlatform = "VMWare"
} elseif ($oEnvironment.Model -eq "VirtualBox") {
    $vmPlatform = "Oracle VM VirtualBox"
} elseif ($oEnvironment.Model -eq "HVM domU") {
    $vmPlatform = "Xen"
} else {
    $vmPlatform = "unknown platform"
}

$vmPlatform
 

PS C:\>  (get-wmiobject win32_computersystem).model
4270CTO

$url = "http://www.microsoft.com/"
$title = "abcdefg1234 マイクロソフト 安納 順一"
$code = '$WShell = New-Object -comobject WScript.Shell; '
$code = $code + '$WShell.AppActivate(''Web ページの保存'', $true); '
$code = $code + '$WShell.SendKeys(''%T'') ; '
$code = $code + '$WShell.SendKeys(''{DOWN}'') ; '
$code = $code + '$WShell.SendKeys(''{UP}'') ; '
$code = $code + '$WShell.SendKeys(''{UP}'') ; '
$code = $code + '$WShell.SendKeys(''{DOWN}'') ; '
$code = $code + '$WShell.SendKeys(''{ENTER}'') ; '
$code = $code + '$WShell.SendKeys(''%N'') ; '
$code = $code + '$WShell.SendKeys('''+ $title + ''') ; '
$code = $code + '$WShell.SendKeys(''%S'')'
$ie = New-Object -ComObject InternetExplorer.Application
$ie.Navigate( $url )
while ($ie.ReadyState -ne 4) { Start-Sleep -Milliseconds 100}
Start-Process powershell.exe -argument ('-version 2.0 -noprofile -windowstyle hidden -command "{0}"' -f $code)
$ie.ExecWB(4,0,$null,[ref]$null)

$url = "http://www.microsoft.com/"
$title = "abcdefg1234 マイクロソフト 安納 順一"
$title | clip.exe
$code = '$WShell = New-Object -comobject WScript.Shell; '
$code = $code + '$WShell.AppActivate(''Web ページの保存'', $true); '
$code = $code + '$WShell.SendKeys(''%T'') ; '
$code = $code + '$WShell.SendKeys(''{DOWN}'') ; '
$code = $code + '$WShell.SendKeys(''{UP}'') ; '
$code = $code + '$WShell.SendKeys(''{UP}'') ; '
$code = $code + '$WShell.SendKeys(''{DOWN}'') ; '
$code = $code + '$WShell.SendKeys(''{ENTER}'') ; '
$code = $code + '$WShell.SendKeys(''%N'') ; '
$code = $code + '$WShell.SendKeys(''^v'') ; '
$code = $code + '$WShell.SendKeys(''%S'')'
$ie = New-Object -ComObject InternetExplorer.Application
$ie.Navigate( $url )
while ($ie.ReadyState -ne 4) { Start-Sleep -Milliseconds 100}
Start-Process powershell.exe -argument ('-version 2.0 -noprofile -windowstyle hidden -command "{0}"' -f $code)
$ie.ExecWB(4,0,$null,[ref]$null)