Scripting with windows 8 or seven

Question

Hello everybody
I use scripting to update data in SAP. the script open a txt.file and automatise some actions.
The scripting works fine with windows XP but on other computer in windows 8 or seven the script don't find the file. message : file not found.
I have update the sap gui 7.30 to package 10 but we had the same problem even if we execute SAP in administrator side.
Someone have an idea ?
Best reagrds
Bruno

Answer 1

Thank you for you answer. i 'm not aware in VBA script language. perhaps could you correct my script ?
If Not IsObject(application) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
Set connection = application.Children(0)
End If
If Not IsObject(session) Then
Set session = connection.Children(0)
End If
If IsObject(WScript) Then
WScript.ConnectObject session, "on"
WScript.ConnectObject application, "on"
End If
session.findById("wnd[0]").maximize
dim ds()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("todo.txt", 1)
Set objFilelog = objFSO.OpenTextFile("log.txt", 8, true)
objFilelog.WriteLine("-----------------------------------------------------")
objFilelog.WriteLine("--------Start: " & now & "-------------------")
objFilelog.WriteLine("-----------------------------------------------------")
i = "0"
Do Until objFile.AtEndOfStream
strInputline = objFile.readLine
if len(strInputline) > 0 then
Redim Preserve ds(i)
ds(i) = strInputline
i = i + 1
end if
Loop
for each datensatzausdatei in ds
'--- begin to putin your recoded source code here　
session.findById("wnd[0]").maximize
session.findById("wnd[0]/usr/ctxtLAGP-LGPLA").text = datensatzausdatei
session.findById("wnd[0]/usr/ctxtLAGP-LGPLA").caretPosition = 6
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/mbar/menu[0]/menu[5]").select
session.findById("wnd[1]/usr/btnSPOP-OPTION1").press
'-- end of putin from your recode source code here
next
objFilelog.WriteLine("-----------------------------------------------------")
objFilelog.WriteLine("--------Ende: " & now & "--------------------")
objFilelog.WriteLine("-----------------------------------------------------")
Msgbox("Fertig /end")