2018-01-01から1年間の記事一覧

MACアドレスを調べる

値取得

＜分類：値取得＞ ＜使用例：IPアドレス別にMACアドレスを調べる＞ ＜プログラム例＞ Sub 共通_MACアドレス調査() Dim objConf, objMACEna, strIP Set objConf = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("SELECT * FROM Win32_NetworkAdapterConfig…

ＩＰアドレスを調べる

値取得

＜分類：値取得＞ ＜使用例：ネットワーク内のどのパソコンかを調べる＞ ＜プログラム例＞ Sub 使用例() Dim s As String s = 共通_IP取得() If s <> "" Then MsgBox ("IPｱﾄﾞﾚｽは" & s & "です") End If End Sub Function 共通_IP取得() Dim objConf, objIPE…

時間の値からｎ秒前を計算する

値変換

＜分類：値変換＞ ＜使用例：ログ解析で使用＞ ＜プログラム例＞ Sub 文字列編集_時間の値からn秒前を計算する() Dim n As Long Dim t1 As Date Dim t2 As Date n = -5 t1 = "00:00:00" t2 = Format(DateAdd("s", n, t1), "HH:NN:SS") MsgBox (t1 & "の" & n…