DetailPrint "Checking if wintap is installed..."

!ifndef ClassGUID
!define ClassGUID "{4d36e972-e325-11ce-bfc1-08002be10318}"
!endif
  
push $0
push $1
push $2
push $4

${GetParameters} $1

${If} $1 =~ "/NOWINTAP"
  DetailPrint "Wintap installation overridden - skipping installation..."
  GoTo end
${EndIf}

;checking if wintap is installed
#IntOp $0 $0 & 0
ClearErrors
/*next:
  IntFmt $1 "%04d" $0
  ReadRegStr $2 HKLM "SYSTEM\CurrentControlSet\Control\Class\${ClassGUID}\$1" "NetCfgInstanceId"
  ReadRegStr $4 HKLM "SYSTEM\CurrentControlSet\Control\Class\${ClassGUID}\$1" "DriverDesc"
  StrCmp "TAP-Win32 Adapter V8" $4 found
  IntOp $0 $0 + 1
*/

StrCpy $0 0
StrCpy $7 0 
/*loop:
  
  StrCmp $1 "" notfound
  ReadRegStr $2 HKLM "SYSTEM\CurrentControlSet\Control\Class\${ClassGUID}\$1" "NetCfgInstanceId"
  ReadRegStr $4 HKLM "SYSTEM\CurrentControlSet\Control\Class\${ClassGUID}\$1" "DriverDesc"
  StrCmp "TAP-Win32 Adapter V8" $4 found
  StrCpy $6 $1
  IntOp $6 $6 + 1 
  IntOp $0 $0 + 1
  GoTo loop
done:*/

EnumRegKey $1 HKLM "SYSTEM\CurrentControlSet\Control\Class\${ClassGUID}" $0
IntOp $6 $1 + 1 
${While} $1 != ""
  ReadRegStr $2 HKLM "SYSTEM\CurrentControlSet\Control\Class\${ClassGUID}\$1" "NetCfgInstanceId"
  ReadRegStr $4 HKLM "SYSTEM\CurrentControlSet\Control\Class\${ClassGUID}\$1" "DriverDesc"
  StrCmp "TAP-Win32 Adapter V8" $4 found
  IntOp $0 $0 + 1
  EnumRegKey $1 HKLM "SYSTEM\CurrentControlSet\Control\Class\${ClassGUID}" $0
  IntFmt $7 "%04d" $6
  ${If} "$7" == "$1" 
      IntOp $6 $6 + 1 
  ${EndIf}
${EndWhile}
GoTo notfound
;an error means that we trie to browse through not existing keys 
;- search was finished, wintap is not there
#IfErrors notfound next

;if found skipping installation
found:
  DetailPrint "Wintap found - skipping installation..."
  GoTo end
  
;if not found we install it
notfound:
  DetailPrint "Wintap not found - starting installation. Please wait."

  ;a variable to contain the next entry that will be created by the driver installer
  #IntOp $0 $6
  IntFmt $0 "%04d" $6
  
  ;launch the tapinstall (devcon) or do something to install the driver
  SetOutPath "$INSTDIR\driver" ;working directory must be tap installer directory
  nsExec::ExecToLog "$INSTDIR\driver\tapinstaller"
  
  ;rename network connection to TAP-Win32
  ReadRegStr $3 HKLM "SYSTEM\CurrentControlSet\Control\Class\${ClassGUID}\$0" "NetCfgInstanceId"
  WriteRegStr HKLM "SYSTEM\CurrentControlSet\Control\Network\${ClassGUID}\$3\Connection" "Name" "TAP-Win32"

  ;message to wait, as the following step takes a stupid amount of time
  ;and it seems that the PC is doing nothing
  DetailPrint "Configuring TAP-Win32 Adapter..."
  DetailPrint "The process will take a while, please wait..."

  ;set TAP-Win32 ip's using netsh
  nsExec::ExecToLog "netsh interface ip set address TAP-Win32 static 192.168.0.1 255.255.255.0"
  
  DetailPrint "Wintap installation completed..."
  
end:
  pop $4
  pop $2
  pop $1
  pop $0
  DetailPrint "========================================="