小 中 大
■ ■ ■ ■ ■ ■ ■
文字数[351文字] この記事は0分26秒で読めます.
トイウコトデ、めげないでブログ続けることにしました。
この投稿は1年以上前に公開されました。 現在の情報とは異なる可能性がありますので、ご了承ください。
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番目の投稿です／75 回表示されています．
著者名
@taoka_toshiaki
※この記事は著者が30代前半に書いたものです．
Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます．たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅．
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki
最近よく読まれている記事（過去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,