Om du av någon anledning har ett macro/eller annat som avslutar din internetanslutning kan du starta om anslutningen. Likväl om du har dynamisk IP genererar denna kod dig en ny IP adress.
Dim ReturnValue
ReturnValue = Shell("Net Stop Dhcp")
Application.Wait Now() + TimeValue("00:00:01")
AppActivate "c:\windows\system32\net.exe"
Application.Wait Now() + TimeValue("00:00:01")
SendKeys "Y"
SendKeys "{ENTER}"
Application.Wait Now() + TimeValue("00:00:01")
ReturnValue = Shell("Net Start Dhcp")