Re: [Q]How to get the hostname with VB4

Article View: fj.lang.basic

Article #424

#424

From: Hidenori Ogawa
Date: Tue, 17 Dec 1996 00:00

25 lines
1436 bytes

凸版印刷の小川と申します。

> VB4でコンピュータ名を取得する方法を教えてください。

という僕の質問に対して、
Death Wishさん、Jun Fujimuraさんからご指摘を頂きました。
どうもありがとうございました。

結果として、

標準モジュールなどに以下の定義を書いておき、
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA"
_
(ByVal lpBuffer As String, nSize As Long) As Long

以下のコードでlpBufferにコンピュータ名が得られました。
Dim lpBuffer as String*128
If GetComputerName(lpBuffer, 128) = 0 then エラー処理

また何かありましたらよろしくお願いします。
--
Hidenori@Khadi Ogawa            mailto:Hidenori.Ogawa@toppan.co.jp
Toppan Printing Co.,LTD.        http://www.geocities.com/Tokyo/2888/
Technical Research Institute Imaging Research Lab.

Technical Details

Message-ID: <32B5FC27.3C09@toppan.co.jp>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References: <32AE894B.6B33@toppan.co.jp>

Show Full Headers

Complete Article Headers

X-Google-Language: Japanese,JIS
X-Google-Thread: f5300,229cbae527c5dac,start
X-Google-Attributes: gidf5300,public
From: "Hidenori@Khadi Ogawa" <hidenori.ogawa@toppan.co.jp>
Subject: Re: [Q]How to get the hostname with VB4
Date: 1996/12/17
Message-ID: <32B5FC27.3C09@toppan.co.jp>
X-Deja-AN: 204496958
distribution: world
references: <32AE894B.6B33@toppan.co.jp>
content-type: text/plain; charset=iso-2022-jp
organization: Toppan Printing Co., Ltd.
mime-version: 1.0
reply-to: hidenori.ogawa@toppan.co.jp
newsgroups: fj.lang.basic
x-mailer: Mozilla 3.01Gold (Win95; I)

Reply to Parent Message