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

OS:98 Access97

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

No.4 ベストアンサー 回答者： temtecomai2 回答日時： 2006/04/01 09:47

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

Microsoft TechNet のスクリプトセンター
http://www.microsoft.com/japan/technet/scriptcen …

同じく、連載コラムの Hey, Scripting Guy!
http://www.microsoft.com/japan/technet/scriptcen …

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 & "\root\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

No.3 回答者： MoonGate 回答日時： 2006/03/31 18:08

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

http://www.asahi-net.or.jp/~ZN3Y-NGI/YNxv201.htm …
の方法で環境変数%computername%を取得できるようです。
OSについてはこの方法では残念ながら9x系かNT系かという大雑把な判断しかできそうにないです。

No.2 回答者： noname#25358 回答日時： 2006/03/31 16:31

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

No.1 回答者： HAL007 回答日時： 2006/03/31 16:13

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

サーバーにあるファイルのアクセス状況を知りたいのですか？