ダブルパー　【My Script】　Excel/VBA_1

■【My Script】データベースに登録されたカテゴリ[Excel/VBA]での記事[2]ケの内、[1]番目から[2]ケを表示)

□(1)　コンピュータ名とユーザー名を取得する(WSH/ComputerName/UserName)
□(2)　コンピュータ名とユーザー名を取得する(WSH/ComputerName/UserName)

【コンピュータ名とユーザー名を取得する】

◆概要
※エクセルが起動しているコンピュータ名とユーザー名を取得する。
※WSHを用いる

◆事前チェック
※エクセルのツール＞マクロ＞Visual Basic Editorの順に選択
※Visual Basic Editorのツール＞参照設定の順に選択
※参照設定ダイアログで「Windows Script Host Modal」にチェック

◆VBA
Sub コンピュータ名とユーザー名を取得する()
  Dim strNET2 As IWshRuntimeLibrary.WshNetwork
  Dim strPcName,strUserName As String

  Set strNET2 = CreateObject("Wscript.network")
     
  strPcName= strNET2.ComputerName
  strUserName = strNET2.UserName

  Set strNET2 = Nothing
End Sub

◆メモ
※※Win98においてWSHによりComputerNameが正しく取得できない場合がある

【コンピュータ名とユーザー名を取得する】

◆概要
※vbscriptを用いて、クライアントのコンピュータ名とユーザー名を取得する。

◆Tips
Sub vbNetworkCheck(k)
  On Error Resume Next
  Dim strPcName,strUserName

  '※コンピュータ(パソコン)名
  strPcName=CreateObject("WScript.Network").ComputerName
  '※パソコンのユーザー名 
  strUserName=CreateObject("WScript.Network").UserName
End Sub

◆MEMO
※javascriptではこの芸当はできないので、vbscriptで実行する。
※通常はあまり使うことはないが、特定企業などの業務でサーバー等にアクセスして使用パソコンを認証するとき等などに使用。
※パソコン名やユーザー名に全角アルフベットや日本語が使われているトラブル可能性がある。