小 中 大
■ ■ ■ ■ ■ ■ ■

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

文字数[351文字] この記事は0分26秒で読めます.

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

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

140番目の投稿です／148 回表示されています．

著者名  @taoka_toshiaki

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

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

投稿日時 2015年02月15 07:10日
最近よく読まれている記事（過去3ヶ月）

タグ

%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,