ベストアンサー

OSを判別する方法

2004/03/31 11:59

現在、OSを認識してHOSTを修正するプログラムを作成しています。 OSを判別する際に With udtOSVersionInfo ' プラットフォームを表示 Select Case .dwPlatformId 'Win95/98/ME Case VER_PLATFORM_WIN32_WINDOWS 'WinNT/Win2000/WinXP Case VER_PLATFORM_WIN32_NT 上記の方法を用いていますが、ホストファイルの場所はOSによって異なります。 WinNT／Win2000 C:\WINNT\SYSTEM32\DRIVERS\ETC\HOSTS WinXP C:\WINDOWS\SYSTEM32\DRIVERS\ETC\HOSTS VBでOSを認識する際にWinNT/Win2000/WinXPをさらにどうやって判別すればいいでしょうか？

jones0901
お礼率1% (54/3389)

Visual Basic
回答数5
ありがとう数1

みんなの回答 （5）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

hayahayahaya
ベストアンサー率36% (41/113)

2004/03/31 14:52 回答No.5

的外れだったら申し訳ございません。質問の内容からすると、システムディレクトリが取得できればいいような気がするのですが・・・ Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Dim strBuf As String Dim strPath As String Const gintMAX_SIZE% = 255 '最大バッファサイズ strBuf = Space$(gintMAX_SIZE) 'System ディレクトリのパス名を取得し、 'バッファ文字列の長さを調整し、 '末尾に円記号がない場合は追加します。 If GetSystemDirectory(strBuf, gintMAX_SIZE) Then Dim nPos As Long nPos = InStr(strBuf, vbNullChar) If nPos > 0 Then strPath = RTrim$(Left$(strBuf, nPos - 1)) Else strPath = RTrim$(strBuf) End If If Right$(strPath, 1) <> "\" Then strPath = strPath & "\" End If End If いかがでしょうか？

その他の回答 (4)

taka_tetsu
ベストアンサー率65% (1020/1553)

2004/03/31 14:37 回答No.4

あと、system32ディレクトリの決め打ちはいけません。 GetSystemDirectory()を使用して取得しましょう。 http://vbvbvb.com/jp/gtips/0501/gGetSystemDirectory.html

参考URL：: http://vbvbvb.com/jp/gtips/0501/gGetSystemDirectory.html

taka_tetsu
ベストアンサー率65% (1020/1553)

2004/03/31 13:43 回答No.3

あのう、現在取得しようとしている手段を書いてくださいよ・・・ VER_PLATFORM_WIN32_WINDOWSってあるからGetVersionExかとは思いますが・・・ >With udtOSVersionInfo ってOSVERSIONINFO構造体の変数名ですか？ dwMinorVersionで振り分けられると思いますけど。 http://plaza5.mbn.or.jp/~heropa/vb25.htm