dialer test

I have a network internet connection so
there is no way i can test this script

is there some one that can test this:
thanks

OutFile "connect to internet test.exe"
Caption "connect to internet test         "
xpstyle on
!include LogicLib.nsh
Function .onInit
  
  again:
  
  Dialer::AttemptConnect
  Pop $R0 
${if} $R0 = online
  goto connected
${elseif} $R0 = offline
    IntOp $2 $2 + 1
    StrCmp $2 4 kill
  Dialer::AutodialUnattended
  Pop $R0
  ${if} $R0 = online
  goto connected
  MessageBox MB_OK|MB_ICONEXCLAMATION "$\r$\nInbel Internet verbindings fout :$\r$\n$\r$\nKan geen verbinding maken met server, bezig met opnieuw proberen...     "
  ClearErrors
  Goto again
  kill:
  MessageBox MB_OK|MB_ICONEXCLAMATION "$\r$\nKan geen Internet Vebinding maken, setup sluit nu af...     "
  quit
  connected:
  MessageBox MB_OK "connected to the internet : $R0"
  pop $R0
  quit
${endif} 
  ${endif} 
FunctionEnd
Section
Sectionend