Function GetOSVersion() ' XP ならば 5.1 と返ります Dim strComputer Dim Wmi Dim colTarget Dim strWork Dim objRow Dim aData strComputer = "." Set Wmi = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colTarget = Wmi.ExecQuery( "select Version from Win32_OperatingSystem" ) For Each objRow in colTarget strWork = objRow.Version Next aData = Split( strWork, "." ) strWork = aData(0) & "." & aData(1) GetOSVersion = CDbl( strWork ) End Function