Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("cmd /c ipconfig")

ip = ""

Do While Not objExec.StdOut.AtEndOfStream
    line = objExec.StdOut.ReadLine
    If InStr(line, "IPv4") > 0 Then
        ip = Trim(Split(line, ":")(1))
        Exit Do
    End If
Loop

If ip = "" Then
    MsgBox "Nie znaleziono IPv4 cos sie zepsulo", 16, "Cos sie zepsulo"
    WScript.Quit
End If

result = MsgBox("" & ip & vbCrLf & vbCrLf & "Czy chcesz je skopiowac do schowka?", vbYesNo + vbQuestion, "Twoje lokalne ip")
If result = vbYes Then
    objShell.Run "cmd /c echo " & ip & " | clip", 0, True
MsgBox "IP zostalo skopiowane", 64, "Gotowe"
End If