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

質問

OS:98 Access97

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

回答No.4

temtecomai2 · ベストアンサー

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

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

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

回答No.2

noname#25358

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

回答No.1

HAL007

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