Strange Excel problem

; Tool t.b.v. Office pakket installatie
; controleer welke machine welke taal van Office geinstalleerd heeft.
#include "Excel.au3"
$dir = @ScriptDir
if FileExists($dir & "\Settings.ini") Then
$settings = $dir & "\Settings.ini"
$Row = IniRead($settings,"Excel","Row","2")
else
$Row = 2
$settings = $dir & "\Settings.ini"
EndIf
$User_name = 0
$User_account = 0
$Machine_naam = 0
$Machine_Office = 0
$oexcel_exists = 0 ; 1: created new 2: existed
if FileExists($dir & "\OfficeList.xls") then
$oexcel = _ExcelBookOpen($dir & "\OfficeList.xls",1, False)
else 
$oexcel = _ExcelBookNew(1)
$oexcel_exists = 1
$Excel_Name = _ExcelSheetNameSet($oexcel, "Office Language")
_ExcelSheetDelete($oexcel,"Blad2")
_ExcelSheetDelete($oexcel,"Blad3")
 
_ExcelWriteCell($oexcel, "Machine Naam:",1,1)
_ExcelWriteCell($oexcel, "Login Naam:",1,2)
_ExcelWriteCell($oexcel, "Machine Account:",1,3)
_excelwritecell($oexcel, "Office taal:",1,4)
EndIf
_ExcelFontSetProperties($oexcel,1,1,1,5,true,false,false)
call("User_credentials")
 
call("Write_credentials")
;functie om gebruikers gegevens te verzamelen.
Func User_Credentials()
$User_name = @UserName
$User_account = @UserProfileDir
$Machine_naam = @ComputerName
$Machine_Office = "?"
 
if FileExists("C:\Program Files\Microsoft Office\Office12\EXCEL.EXE") Then  
$msg= RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\12.0\Common\LanguageResources\","SKULanguage")
Else
$msg= RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Common\LanguageResources\","SKULanguage")  
EndIf
Select
case $msg  = 1043
$Machine_Office = "NLD" 
Case $msg = 1033
$Machine_Office = "ENG" 
EndSelect
EndFunc
 
func Write_credentials()
;schrijf de credentials naar excel en sla excel op
_ExcelWriteCell($oexcel,$Machine_naam,$Row,1)
_ExcelWriteCell($oexcel, $User_name,$Row,2)
_ExcelWriteCell($oexcel, $User_account,$Row,3)
_ExcelWriteCell($oexcel,$Machine_Office,$Row,4)
$Row = $Row + 1
IniWrite($settings,"Excel","Row",$Row)
Select
case $oexcel_exists = 1
    _ExcelBookSaveAs($oexcel,$dir & "\OfficeList")
Case $oexcel_exists = 2 
    _ExcelBookSave($oexcel)
EndSelect
_ExcelBookClose($oexcel)
EndFunc