Accessでパソコンの情報を得るには

Question

OS:98 Access97

Accessを起動した人のOS名やコンピュータ名を得たいのですが、よくわからなかったので教えて下さい。
よろしくお願い致します。

temtecomai2 · Accepted Answer

ここら辺が大変参考になります。

Microsoft TechNet のスクリプトセンター
http://www.microsoft.com/japan/technet/scriptcenter/scripts/default.mspx

同じく、連載コラムの Hey, Scripting Guy!
http://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/default.mspx

Windows 98 で動かなかったらごめんなさい。

' ホスト名とログオンユーザー名
Sub hoge1()
    Dim objNetwork As Object
    Set objNetwork = CreateObject("WScript.Network")
    
    Dim strUserName As String
    strUserName = objNetwork.UserName
    
    Dim strHostName As String
    strHostName = objNetwork.ComputerName
End Sub

' OS情報
Sub hoge2()
    Dim strComputer As String
    strComputer = "."
    
    Dim objWMIService As Object
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\" & strComputer & "oot\cimv2")
    
    Dim colOperatingSystems As Object
    Set colOperatingSystems = objWMIService.ExecQuery _
        ("Select * from win32_OperatingSystem")
    Dim objOperatingSystem As Object
    For Each objOperatingSystem In colOperatingSystems
        MsgBox objOperatingSystem.Caption & " " & objOperatingSystem.Version
    Next
End Sub

MoonGate · Answer

コンピュータ名はVBAを使い、
http://www.asahi-net.or.jp/~ZN3Y-NGI/YNxv201.html#2-1
の方法で環境変数%computername%を取得できるようです。
OSについてはこの方法では残念ながら9x系かNT系かという大雑把な判断しかできそうにないです。

noname#25358 · Answer

お手持ちのマシンで対応できるかどうか分からないのですが、アクセスマクロ（ＶＢＡ）からＷＭＩというオブジェクトを呼び出すことで可能かもしれません。

HAL007 · Answer

Access97はスタンドアローンのソフトでネットには対応していませんが・・・・
サーバーにあるファイルのアクセス状況を知りたいのですか？

Accessでパソコンの情報を得るには

ここら辺が大変参考になります。

コンピュータ名はVBAを使い、

お手持ちのマシンで対応できるかどうか分からないのですが、アクセスマクロ（ＶＢＡ）からＷＭＩというオブジェクトを呼び出すことで可能かもしれません。

Access97はスタンドアローンのソフトでネットには対応していませんが・・・・

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

　お手持ちのマシンで対応できるかどうか分からないのですが、アクセスマクロ（ＶＢＡ）からＷＭＩというオブジェクトを呼び出すことで可能かもしれません。