Strange Excel problem

[vtuls]

Hi guy's 

it's been a while since i needed some help but this is one strange cookie 

i'm writing a script that checks what language of Office is installed on a client,

and im writing the information to an Excel sheet.

expandcollapse popup

; 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 

now when i run it directly from Scite it works perfectly,

when i compile it to an .exe and run it from the directory where the exe is created it works fine, but as soon as i move the exe to an 2nd drive partition , the program runs and the _ExcelBookSaveAs() stops working, if i use an exsisting excel file it works so the only part that stops this script is the _ExcelBookSaveAs()

the version of Autoit i use is : 3.3.6.1

the comments in this script are in dutch if any questions arise wich need commenting for you guys let me know

[water]

What is the value of @error after _ExcelBookSaveAs has failed?

[BrewManNH]

You should check the return value of _ExcelBookSaveAs and see if it tells you anything.

[Gianni]

try to declare the $dir variable as global

Global $dir = @ScriptDir

hi