小 中 大
■ ■ ■ ■ ■ ■ ■

Home > 2015年 > 2月 > 15日

トイウコトデ、めげないでブログ続けることにしました。

2015年02月15日

Logging

Private Sub UserForm_Initialize()
    Dim WSH, OExec As Object
    Dim s_Cmd As String
    Dim hoge As String
    Set WSH = CreateObject("WScript.Shell")
    s_Cmd = "ipconfig"
    Set OExec = WSH.Exec("%ComSpec% /c " & s_Cmd)
    hoge = OExec.StdOut.ReadAll
    ipecho.Caption = hoge
    Set OExec = Nothing
    Set WSH = Nothing
End Sub

著者名  @taoka_toshiaki

※この記事は著者が30代前半に書いたものです．

Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます．たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅．
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki

OFUSEで応援を送る

投稿日時 2015年02月15 07:10日

タグ

%ComSpec%, As String, C++, CreateObject, Dim hoge As String, Dim s_Cmd, Dim WSH, hoge, ipconfig, ipecho.Caption, Nothing, Nothing End Sub, OExec As Object, OExec.StdOut.ReadAll, Private Sub UserForm_Initialize, s_Cmd, Set OExec, Set WSH, WScript.Shell, WSH.Exec,