No.1ベストアンサー
- 回答日時:
APIを使ってネットワークに接続されているコンピュータ名を取得します。
Dim nr As NETRESOURCE
Dim lpnr As LPNETRESOURCE
Dim bnr(1000) As Byte
Dim strRemoteName As String
Dim strComNeme As String
Dim hEnum As Long
Dim BufSize As Long
Dim ret As Long
strRemoteName = String$(512, 0)
nr.dwScope = RESOURCE_GLOBALNET
nr.dwType = RESOURCETYPE_ANY
nr.dwDisplayType = RESOURCEDISPLAYTYPE_DOMAIN
nr.dwUsage = RESOURCEUSAGE_CONTAINER
nr.lpRemoteName = "ドメイン名"
nr.lpProvider = "Microsoft Windows Network"
ret = WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, nr, hEnum)
BufSize = 1000
Do While WNetEnumResource(hEnum, 1, bnr(0), BufSize) = NO_ERROR
MoveMemory lpnr, bnr(0), Len(lpnr)
lstrcpy strRemoteName, lpnr.lpRemoteName
Debug.Print Left$(strRemoteName, InStr(strRemoteName, vbNullChar) - 1)
Loop
WNetCloseEnum hEnum
でネットワーク上のコンピュータ名を取得できるのでその中に指定したコンピュータ名があればOKなければNoのメッセージを出す。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- ルーター・ネットワーク機器 大至急! Wi-Fiがつながっていない時だけ お使いのコンピュータ ネットワークから通常と異なるトラ 1 2023/05/08 16:10
- UNIX・Linux raspberry piを使ったWebサーバー制作をしています、接続するネットワークを変更したときに 1 2023/01/09 15:57
- Windows 10 win10 立ち上げ時のエラー 1 2023/04/17 11:55
- その他(SNS・コミュニケーションサービス) サイバー空間についての質問です。 1 2023/03/22 04:23
- その他(インターネット接続・インフラ) 「このサイトにアクセスできません」というメッセージが出てインターネットに接続できません 7 2023/08/16 15:20
- UNIX・Linux jsLinuxのコマンドについて。 aliasを使い、必ず削除前に確認メッセージを表示するコマンドを 1 2022/07/25 18:37
- ネットワーク 社内サーバー上のフォルダに入れない 3 2022/03/26 10:51
- 農学 既存のコンピュータと土壌の菌糸ネットワーク、どっちが沢山のデータを処理してますか? 1 2023/06/05 13:00
- その他(IT・Webサービス) レノボのノート型パソコンですが、自宅のネット環境ならネットに繋がるのですが、その他でiPhoneなど 1 2022/05/06 00:18
- iPhone(アイフォーン) 構成プロファイルが削除出来ない 2 2022/06/30 01:29
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
バッチファイルでキー操作を行う。
-
コマンドプロンプトで表示が多...
-
コマンドプロンプトが実行中か...
-
ttlで戻り値を取得する方法
-
コンボボックス(最終行取得)
-
別のユーザーフォームのコマン...
-
Excelのイベント取得について
-
WaitForSingleObjectについて
-
別ブックのマクロよりコマンド...
-
viの行削除コマンドを教えて下...
-
カーネルモジュール
-
Tera Term Proに関する質問です。
-
texでエディタを選ばない一括コ...
-
文字の点滅はどうやるのですか?
-
この画像のプログラムを出すコ...
-
excel-vbaで作成したマクロを別...
-
jupyter notebookが開けません!
-
HEXから元に戻すには
-
[WSH|JS|VB] telnetコマンドの...
-
シリアル通信でコマンドを送信...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッチファイルでキー操作を行う。
-
コマンドプロンプトが実行中か...
-
コマンドプロンプトで表示が多...
-
ttlで戻り値を取得する方法
-
別のユーザーフォームのコマン...
-
VBユーザーフォームで時間入力
-
Tera Term Proに関する質問です。
-
コマンドプロンプトですべてのU...
-
コマンドキーがないんですけど...
-
TEXの表の位置が・・・
-
ルーターにつながっている全て...
-
デフォルトのショートカットキ...
-
dosバッチ起動後、画面を閉じな...
-
文字の点滅はどうやるのですか?
-
EEPROMのデータの初期化について
-
RTX1100の削除コマンド
-
JP1起動バッチについて
-
コンボボックス(最終行取得)
-
makeコマンドのエラー
-
ディスクの空き容量を取得する...
おすすめ情報