• 締切済み
  • 暇なときにでも

コンピュータ名の取得及びログオンIDの取得

アクセスVBAで自分のコンピュータ名を取得したいのですが、解かる方教えてください。 また、VBで、WINDOWSログオンIDを取得する方法を教えてください。

noname#136
noname#136

共感・応援の気持ちを伝えよう!

  • 回答数1
  • 閲覧数2184
  • ありがとう数19

みんなの回答

  • 回答No.1
  • nyalu
  • ベストアンサー率0% (0/0)

 コンピューター名の取得、ログオンID(=ユーザー名)の取得は、共にWindowsAPIを使用します。通常、アクセスで使用する場合は、モジュールに、VBで利用する場合は、標準モジュールに下記のロジックを追加して、それぞれを呼び出してください。ロジック自体は、アクセスで利用しても、VBで利用しても同じです。 ' 《API》コンピューター名の取得 Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal Buffer As String, Size As Long) As Long ' 《API》ユーザー名の取得 Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long ' ========================================================= ' 関数名:(Function)GetCpuName ' 機 能:コンピューター名を取得する。 ' 引 数:なし ' 戻り値:(String)コンピューター名 ' ========================================================= Public Function GetCpuName() As String Dim buf As String * 255 Dim ret As Long ret = GetComputerName(buf, Len(buf)) GetCpuName = Left(buf, InStr(buf, vbNullChar) - 1) End Function ' ========================================================= ' 関数名:(Function)GetUsrName ' 機 能:ユーザー名を取得する。 ' 引 数:なし ' 戻り値:(String)ユーザー名 ' ========================================================= Public Function GetUsrName() As String Dim buf As String * 255 Dim ret As Long ret = GetUserName(buf, Len(buf)) GetUsrName = Left(buf, InStr(buf, vbNullChar) - 1) End Function  ※ 回答結果は、両方のロジックを1つにまとめてあります。

共感・感謝の気持ちを伝えよう!

関連するQ&A

  • JavaScriptでWindowsログオンIDを取得したい

    JavaScriptでWindowsログオンIDを取得したいと考えております。 Webのシステムで特定のWindowsログオンIDの場合のみに提供したい機能があるためです。 このWebのシステム自体にはログインという行為はないため、そのユーザIDで判断することができないため、WindowsログオンIDを用いたいと考えいています。 以上、よろしくお願いします。

  • WindowsへのログオンID?

    PCを修理する際にWindowsへのログオンID およびパスワードが必要と書かれていたのですが 当方何のことだか分かりません; ログオンIDとは一体何でしょう…? もし知らず知らずに設定していたのかもしれないので;; ID、パスワードを確認する仕方があればご教授お願いします

  • ActiveBasic コンピュータの個別のID(?)を取得したい

    昔、本か何かで、『コンピュータには識別のIDのようなものがある』ということを読んだ記憶があり、それを取得したいと思います。 このIDというものは、不変で、コンピュータ1台1台違うものが発行(?)されるとか・・・ とりあえず、コンピュータを識別したいのです。 やり方をご存知の方がいらっしゃいましたら、ご教授下さい。 Win XP AB 4.23.00

  • ファイルサーバへのログオンについて

    皆さんに質問させていただきます。 現在、社内LAN上にNASを接続しており、そのNASにアクセスのデータベースファイル(データ用)を置き、他の複数の部署の端末に、リンクを張った業務アプリ(アクセス)を置いているのですが、あらかじめNASにログオン(IDとPWを入力)しておかないとテーブルが開けません。(OSはWindowsXp) NAS側でユーザ管理がされているのですが、パソコンによってはWindowsが立ち上がった時点でこのNASにログオンされて、問題なくテーブルを開ける端末もありますが、ネットワーク知識がないためどこの設定の違いなのかわかりません。 ネットワークドライブに設定すると、パソコンによって、いちいちID・Pw入力が必要な端末と、自動ログオンできるものがあります。 NASにWindowsが立ち上がったときに自動的にログオンさせるにはどこの設定をいじればいいのでしょうか? Access起動時いVBAコードで接続できるのであればそれでも構わないのですが。 宜しくお願します。

  • Windowsのログオンユーザーを取得するには

    VB.netでプログラムを組んでいるのですが、現在Windowsにログオンしているユーザー名を取得するにはどのような方法がありますでしょうか? よろしくお願いいたします。

  • windowsログオン画面のイメージ取得方法

    windowsログオン画面(ボタン3つ押しの画面とユーザID入力の画面)のイメージを取得したいのですが、普通にプリントスクリーンボタンでは取得できません。 この画面イメージを取得する方法があれば教えて下さい。 よろしくお願いします。

  • Windowsのコンピューター名等を取得するプログラム

    お世話になります。 IPアドレスのみがわかっているリモートのWindowsマシン(対象はWin98以上、できればWin95も)の情報を取得する方法を探しています。 ●取得したい情報 ・コンピュータ名 ・Windowsの種類(98や2000、XP) ・Windowsにログインしているユーザー名 これらの情報を取得するためにはどの言語(C,VB,VBScript,JScript他なんでも可)でどんな手順(触りの部分でもかまいません)を使えば実現できるでしょうか? コマンドを実行して出力の内容を整形するというようなことでもOKです。その場合どんなコマンドを使えばよいか示して頂ければと思います。 例えばコンピューター名だったら”nbtstat- A IPアドレス”の結果から取得するなど。 ※リモートのWindowsには何も追加インストールをしない仕組みが良いです。

  • PCの電源を切ろうとすると・・・ほかの人がこのコンピュータにログオンしていますと出ます!

    PCの電源を切ろうとすると、”ほかの人がこのコンピュータにログオンしています。Windowsをシャットダウンするとその人のデータが失われる可能性があります。シャットダウンを続行しますか?”と表示されます。ネットで色々調べたのですが、原因がよくわかりません。ご教授ください。 我が家のPC環境は、PCが1台しかありません。常時接続のADSLサービスを利用してインターネットを利用しています。PCのアカウントは1つ(パスワードあり)しかありません。共有フォルダは全てネットワークからアクセスできないようにしています。ただし、コンピュータの管理で”共有”を見ると『IPC$』が1つだけあります。 これは、Windowsで使用しているとのことで、問題ないとNETには出ていました。 電源を切る際、他の人が・・・が表示されたときに、ユーザの切り替えから他のユーザがログオンしているのか調べて見ても、自分しかログオンしていないように見えます。adminのような特権で誰かがログオンしているとしたら、怖いです。 スパイウェアがいるかどうかSpybotをインストールして駆除しても、3回に1度は表示されます。 ネットで調べた限り、私の技量では対処方法がわかりません。 ご教授ください。 よろしくお願い致します。

  • 他のコンピュータのプロセスを取得

    VB2005Expressにて開発しています。 他のコンピュータで実行中のプロセスを取得したいと思っています。 Dim ps As System.Diagnostics.Process() = _ System.Diagnostics.Process.GetProcesses("プロセス名","192.168.XXX.XXX") で指定したコンピュータからプロセスは取得することは出来ました。 ただ、特定のコンピュータだけ「リモート コンピュータに接続できませんでした。」というエラーが出てしまいます。 プログラムの実行環境のID、パスワードと特定のコンピュータの IDとパスワードが異なっているのが原因だと思っています。 GetProcessesにIDとパスワードを設定してプロセスを取得することは 可能なのでしょうか。 ご存知の方がいらっしゃいましたらご教授下さい。 よろしくお願いします。

  • ログオンユーザ名の取得

    お世話になります。 Windows7Pro ドメイン環境 秀丸エディタのマクロより、現在Windowsにログオンしている ユーザ名を取得したいと考えております。 そこで、マクロから外部コマンド(whoami)を実行したとしても その実行結果をマクロで受け取ることができません。 ※いったん実行結果をiniファイル等に書き込むようにしておき  マクロからそれを読み込む方法はあるようです。 現在ログオンしているユーザ名がレジストリのどこかに保持されて いるのであれば、マクロから直接参照しにいけばいいのかな。。と 思っているのですが。 そこで質問ですが、  ・レジストリから現在ログオンしているユーザ名を取得することは   可能でしょうか。可能ならどこを参照すればよいのでしょうか。  ・そもそもコマンド実行する以外で取得することは可能なのでしょうか。   もし他の方法があればお教え下さい。 ご教示の程、宜しくお願い致します。

専門家に質問してみよう