トイウコトデ、めげないでブログ続けることにしました。
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
タグ
%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,