コンピュータ名取得(Ⅱ)          <TOP>

コンピュータ名を取得します。

Environ$ 環境変数を獲得

　

　

'================================================================
'= コンピュータ名取得
'================================================================
Declare Function GetComputerName() As String
Function GetComputerName() As String
    GetComputerName = Environ$("ComputerName")
End Function

Print GetComputerName()

Stop
End