Fehler Division durch null

option explicit
dim intAntw, intA, intB, intggt, intkgv
intAntw= MsgBox("Dieses Skript berechnet den ggT und das"&chr(13)&"kgV zweier von ihnen angegeben Zahlen."&chr(13)&"Fortfahren?",36,"ggT-kgV-Rechner")  
if intAntw=7 then WScript.quit
intA= InputBox ("Bitte geben Sie die erste Zahl ein","ggT-kgV-Rechner","18")  
intB= InputBox ("Bitte geben Sie die zweite Zahl ein","ggT-kgV-Rechner","60")  
if intA=intB then
  WScript.echo "Ich lache morgen drüber, OK? Man kann nicht von ein",chr(13)&"und derselben Zahl ggT und kgV berechnen!!"  
  WScript.quit
end if
intggt= fcnggt(intA,intB)
intkgV= intA*intB/intggt
WScript.echo "ggT("&intA&","&intB&")="&intggt  
WScript.echo "kgv("&intA&","&intB&")="&intkgv  

function fcnggt (intZ1, intZ2)
dim ArrIntFeld(1000), intI
arrintFeld(0)=intZ1
arrintFeld(1)=intZ2
for intI = 0 to 998
  ArrIntFeld(intI+2)=ArrIntFeld(intI) mod ArrIntFeld(intI+1)
  if ArrIntFeld(intI+2)=0 then 
    exit for
  end if
  if intI=998 then 
    WScript.echo "Sorry, aber die Zahlen sind eindeutig zu groß!!"  
    WScript.echo "Skriptverarbeitung wird abgebrochen"  
    wscript.quit
  end if
next
fcnggt=ArrIntFeld(intI+1)
end function

@echo off
:: ggtkgv.bat made by Markus Wichmann 2005 & Copyright the same
:: Syntax: %0 zahl1 zahl2 [/s]
:: Berechnet das kleinste gemeinsame Vielfache und den größten gemeinsamen Teiler
call :paramcheck %1 %2
if %3==/s endlocal
call :ggt %1 %2
echo ggT(%1,%2)=%ggt%
set /a kgv=%1 * %2 / %ggt%
echo kgV(%1,%2)=%kgv%
goto :eof

:ggt
endlocal
set z1=%1
set z2=%2
for /l %%i in (1,1,1000) do (
  set /a z3=!z1!%%!z2!
  if z3==0 (
    set ggt=!z2!
    goto :eof
  )
  set z1=!z2!
  set z2=!z3!
)

:paramcheck
if X%1==X (
  echo Parameter 1 wurde nicht angegeben.
  md 2>nul
  goto :showhelp
)
if X%2==X (
  echo Parameter 2 wurde nicht angegeben.
  md 2>nul
  goto :showhelp
)
if %1==/? goto :showhelp
if %1==-? goto :showhelp
if %1==/h goto :showhelp
if %1==-h goto :showhelp
set /a h=%1 - %2
if %h%==0 (
  echo Einer der Parameter oder beide sind keine Zahlen oder gleichen sich
  md 2>nul
  goto :showhelp
)
goto :eof

:showhelp
echo Syntax:
echo ggtkgv zahl1 zahl2
echo zahl1,zahl2 Zahlen von denen der größte gemeinsame Teiler und das kleinste
echo             gemeinsame Vielfache ermittelt werden soll.
exit /b 1