Dim sTempFileName As String = System.IO.Path.GetTempPath() & "ipchange.bat"
Dim fsTemp As New System.IO.FileStream(sTempFileName, IO.FileMode.OpenOrCreate, IO.FileAccess.ReadWrite)
Dim myFileWriter As New IO.StreamWriter(fsTemp)
myFileWriter.WriteLine("@echo off")
myFileWriter.WriteLine("color 0a")
myFileWriter.WriteLine("echo Please wait......")
myFileWriter.WriteLine("echo.")
myFileWriter.WriteLine("echo.")
myFileWriter.WriteLine("echo 0 of 100")
myFileWriter.WriteLine("ipconfig /release")
myFileWriter.WriteLine("cls")
myFileWriter.WriteLine("echo Please wait......")
myFileWriter.WriteLine("echo.")
myFileWriter.WriteLine("echo.")
myFileWriter.WriteLine("echo 30 of 100")
myFileWriter.WriteLine("ipconfig /flushdns")
myFileWriter.WriteLine("cls")
myFileWriter.WriteLine("echo Please wait......")
myFileWriter.WriteLine("echo.")
myFileWriter.WriteLine("echo.")
myFileWriter.WriteLine("echo 60 of 100")
myFileWriter.WriteLine("ipconfig /renew")
myFileWriter.WriteLine("cls")
myFileWriter.WriteLine("echo Please wait......")
myFileWriter.WriteLine("echo 100 of 100")
myFileWriter.Close()
fsTemp.Close()
Shell(sTempFileName)