« [VC2008] 起動時にテキストボックスにフォーカスを当てる | トップページ | PostgreSQL 8.1から7.3へデータ移行 »

2011年8月 9日 (火)

[WSH] 自IPアドレスの取得

自身のIPアドレスを取得する。

'IPアドレスの取得
Function myGetIpAddr()
    Dim objIpSet, objIpConfig
    Dim strComputer, objWMIService

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

    Set objIpSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

    For Each objIpConfig in objIpSet
        If Not IsNull(objIpConfig.IPAddress) Then
            myGetIpAddr = objIpConfig.IPAddress( LBound(objIpConfig.IPAddress) )
            Exit Function
        End If
    Next

    myGetIpAddr = ""
End Function

WScript.Echo myGetIpAddr()

« [VC2008] 起動時にテキストボックスにフォーカスを当てる | トップページ | PostgreSQL 8.1から7.3へデータ移行 »

プログラム・スクリプト」カテゴリの記事

2021年6月
    1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30      

Amazonリンク

ダイビング写真(swf)

ブログ内検索

  • Google
    WWW を検索
    ブログ内を検索

リンク(いつもお世話さま)

  • ソニーストア
     iTunes Store(Japan)
    Just MyShop(ジャストシステム)
    ブックオフオンライン
無料ブログはココログ