GetPCName

Summary

PCの名前（ホスト名）を取得するための関数です。

Function GetPCName() As String
'PCの名前を取得する

Dim WshNetworkObject As Object

    Set WshNetworkObject = CreateObject("Wscript.Network")
    GetPCName = WshNetworkObject.ComputerName
End Function

説明

この関数は、Wscript.Network オブジェクトを使用してPCの名前（ホスト名）を取得するために使用されます。

関数内では、CreateObject("Wscript.Network") を使用して WshNetworkObject オブジェクトを作成します。そして、ComputerName プロパティを使用してPCの名前を取得します。

PCの名前が GetPCName 変数に格納され、戻り値として返されます。

引数

• なし

戻り値

• 戻り値の型: String型 (PCの名前)

Examples

使用例として、関数 GetPCName を呼び出してPCの名前を取得する方法が示されています。 関数の結果は、pcName 変数に格納されます。

' PCの名前を取得する
Dim pcName As String
pcName = GetPCName()