Skip to Content

Register Login

Industry Online Support

Technical Forum

Navigation

Error #429 ActiveX Component can’t create object while run script in TIA portal

Created by: Manish C at: 1/27/2015 6:56 AM (8 Replies)

Rating (3)

Thanks 0

9 Entries

1/27/2015 6:56 AM	Rate (1)
Manish C Posts: 22 Rating: (1)	Hi , I am facing thisError #429 ActiveX Component can’t create object”error , while using Panel Base VB Script in ES project , I have checked this script . it was fine in Winflex but when i am using in TIA portal it gives me Error #429 ActiveX Component can’t create object” So can you please guide me to run this script on ES. Read_Data :- 'Tip: ' 1. Use the <CTRL+SPACE> or <CTRL+I> keystroke to open a list of all objects and functions ' 2. Write the code using the HMIRuntime object. ' Example: HmiRuntime.Screens("Screen_1"). ' 3. Use the <CTRL+J> keystroke to create an object reference. 'Write the code as of this position: 'Declaration of local tags - Deklaration der lokalen Variablen Dim fo Dim path Dim mode Dim delimiter Dim data Dim splitdata 'Initialization of Tags - Initialisierung von Variablen mode=1 '1 = Input 'Selection of the storage path - Auswahl des Speicherpfads If SmartTags("bExtension") =0 Then path ="\Storage Card SD\datafile.txt" delimiter=vbTab Else path ="\Storage Card SD\datafile.csv" delimiter=";" End If 'Starting error routine - Starten der Fehlerroutine On Error Resume Next 'Create a file object - Datei Objekt erstellen Set fo= CreateObject("FileCtl.File") 'Check if any errors happend - Auf Fehler prüfen If Err.Number<> 0 Then ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description Err.Clear Exit Sub End If 'Open or creat a file - Öffnen bzw. Erstellen einer Datei fo.open path,mode 'Check if any errors happend - Auf Fehler prüfen If Err.Number<> 0 Then ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description Err.Clear Exit Sub End If 'Read data from file - Daten werden aus Datein gelesen While fo.EOF = False data=fo.LineInputString Wend 'Write data to HMI-Tags - Daten werden auf die HMI-Variablen geschrieben data=Replace(data,vbTab & vbTab,delimiter) splitdata=Split(data,delimiter) SmartTags("szDate")=splitdata(0) SmartTags("szString_1")= splitdata(1) SmartTags("iValue_1")=splitdata(2) SmartTags("iValue_2")=splitdata(3) 'Close the file - Datei wird geschlossen fo.Close 'Release the Object - Objekt wird freigegeben Set fo = Nothing ShowSystemAlarm "Reading of data was successful!" End Sub ------------------------------------------------------------------------------------------------------ Write_Data :- Sub Write_data() 'Tip: ' 1. Use the <CTRL+SPACE> or <CTRL+I> keystroke to open a list of all objects and functions ' 2. Write the code using the HMIRuntime object. ' Example: HmiRuntime.Screens("Screen_1"). ' 3. Use the <CTRL+J> keystroke to create an object reference. 'Write the code as of this position: 'Declaration of local tags - Deklaration der lokalen Variablen Dim fo Dim path Dim mode Dim delimiter Dim gap Const NEU=0 'Initialization of Tags - Initialisierung von Variablen mode=8 '8 = Append 'Selection of the storage path - Auswahl des Speicherpfads If SmartTags("bExtension") =0 Then path ="\Storage Card SD\datafile.txt" delimiter=vbTab gap=vbTab Else path ="\Storage Card SD\datafile.csv" delimiter=";" gap="" End If 'Starting error routine - Starten der Fehlerroutine On Error Resume Next 'Create a file object - Datei Objekt erstellen Set fo= CreateObject("FileCtl.File") 'Check if any errors happend - Auf Fehler prüfen If Err.Number<> 0 Then ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description Err.Clear Exit Sub End If 'Open or create a file - Öffnen bzw. Erstellen einer Datei fo.open path,mode 'Check if any errors happend - Auf Fehler prüfen If Err.Number<> 0 Then ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description Err.Clear Exit Sub End If 'Write Headline if File is new - Erstellen einer Kopfzeile bei neuen Dateien If fo.LOF = NEU Then fo.LinePrint("Date" & gap & gap & delimiter & "Material" & delimiter & "Presure" & delimiter & "Temperature" & delimiter) End If 'Write data into file - Daten werden in die Datein geschrieben fo.LinePrint(Now & delimiter & SmartTags("szMaterial") & gap & delimiter & SmartTags("iPressure") & delimiter & SmartTags("iTemperature") & delimiter) 'Close the file - Datei wird geschlossen fo.Close 'Release the Object - Objekt wird freigegeben Set fo = Nothing ShowSystemAlarm "Storage of data was successful!" End Sub
Manish C Posts: 22 Rating: (1)
Suggestion To thank Quote Answer

10/27/2015 4:08 PM	Rate (0)
CRSOFT Regular Member Joined: 9/3/2015 Last visit: 10/18/2023 Posts: 1 Rating: (0)	I am facing the same error. How do you came out of this situation?

Suggestion To thank Quote Answer

10/27/2015 4:57 PM	Rate (0)
H.J. Gold Member Joined: 6/3/2014 Last visit: 9/26/2024 Posts: 660 Rating: (194)	Hello Manish C, hello GioCave, I could just have a quick glance of the code. Maybe the path has to be set in quotation marks? path ="\"Storage Card SD"\datafile.csv" instead of: path ="\Storage Card SD\datafile.csv"
	Last edited by: H.J. at: 10/27/2015 4:58:06 PM ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ★ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
Suggestion To thank Quote Answer

6/29/2016 2:50 PM	Rate (0)
salrandazzo Posts: 57 Rating: (8)	I'm facing the same Error #429 ActiveX Component can’t create object” My code is just the one I copied from other users, just added some error display I'm running TIA-portal 13SP1 UPD7 with WinCC advanced 13-SP1-UPD-7 The HMI panel is KTP400 comfort The error happens just after the Set fo= CreateObject("FileCtl.File") instruction Sub vb_tempotest() Dim fo Dim path Dim mode Dim delimiter Dim gap Const NEU=0 'Initialization of Tags - Initialisierung von Variablen mode=8 '8 = Append SmartTags("bExtension") =1 ' cause we want a csv file 'Selection of the storage path - Auswahl des Speicherpfads If SmartTags("bExtension") =0 Then path ="\Storage Card SD\datafile.txt" delimiter=vbTab gap=vbTab Else path ="\Storage Card SD\datafile.csv" delimiter=";" gap="" End If 'Starting error routine - Starten der Fehlerroutine On Error Resume Next 'Check if any errors happend - Auf Fehler prüfen If Err.Number<> 0 Then SmartTags("stringa_1") = "1-er:" & CStr(Err.Number)& " "& Err.Description SmartTags("stringa_2") = Err.Description ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description 'Err.Clear Exit Sub End If 'Create a file object - Datei Objekt erstellen Set fo= CreateObject("FileCtl.File") ' <<<<<<<<<< ERROR HAPPENS HERE 'Check if any errors happend - Auf Fehler prüfen If Err.Number<> 0 Then SmartTags("stringa_1") = "2-er:" & CStr(Err.Number)& " "& Err.Description SmartTags("stringa_2") = Err.Description ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description 'Err.Clear Exit Sub End If ' ================================================================= ' I never arrive here because of error above ' ================================================================= 'Open or create a file - Öffnen bzw. Erstellen einer Datei fo.open path,mode 'Check if any errors happend - Auf Fehler prüfen If Err.Number<> 0 Then ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description Err.Clear Exit Sub End If 'Write Headline if File is new - Erstellen einer Kopfzeile bei neuen Dateien If fo.LOF = NEU Then fo.LinePrint("Date" & gap & gap & delimiter & "HOUR" & delimiter & "MINUTE" & delimiter & "SECONDS" & delimiter) End If 'Write data into file - Daten werden in die Datein geschrieben fo.LinePrint(Now & delimiter & SmartTags("db_tempo_adesso_HOUR") & gap & delimiter & SmartTags("db_tempo_adesso_MINUTE") & delimiter & SmartTags("secondi") & delimiter) 'Close the file - Datei wird geschlossen fo.Close 'Release the Object - Objekt wird freigegeben Set fo = Nothing ShowSystemAlarm "Storage of data was successful!" End Sub BTW, how is it possibile to find help about vbscript functions, methods and objects on the help system?
salrandazzo Posts: 57 Rating: (8)	Last edited by: salrandazzo at: 6/29/2016 2:51:24 PM
Suggestion To thank Quote Answer

6/29/2016 8:32 PM	Rate (1)
Michael K Gold Member Joined: 9/3/2008 Last visit: 2/12/2025 Posts: 933 Rating: (163)	Hi, Open the Online help and go to the "Contents" tab. Go to the "Visualize processes -> Working with the system functions and Runtime scripting -> Reference -> VB scripting (Panels, RT Advanced, RT Professional) -> VBScript for Windows CE (Panels) -> VBScript for Windows CE (Panels)". This shows commands that can be used on panels only (Windows CE). Here select the item "CreateObject (Panels)". It shows how you create the object for manipulating files (FileCtl.File). This cannot be used on normal Windows operating systems so if you try to run the project in the simulator you will get the ActiveX error. You can find help and examples about script also. Just notice what the help says in parentheses, like (Panels, RT Advanced) or only (RT Professional) so you know if it is only for one or the other product.
	Michael
Suggestion To thank Quote Answer

7/1/2016 3:35 PM	Rate (0)
salrandazzo Posts: 57 Rating: (8)	Hi Michael, the central point of my problems is just what you said. I was trying to simulate a KTP400 confort panel on my windows7 TIA portal machine. So I thought "KTP400 runs WinCE, thus I'll use WinCE sintax to access files". WRONG Even if KTP400 runs WinCE, TIA portal emulation is not complete, it doesn't emulate also WinCE environnement. The script runs under the TIA portal host operating system, i.e. Windows7 in my case. So I had to write a "doubleface" script, that tries to understand if the OS is Win7 or WinCE and behaves consequently. Thanks for your hint Salvatore Michael K Hi, Open the Online help and go to the "Contents" tab. Go to the "Visualize processes -> Working with the system functions and Runtime scripting -> Reference -> VB scripting (Panels, RT Advanced, RT Professional) -> VBScript for Windows CE (Panels) -> VBScript for Windows CE (Panels)". This shows commands that can be used on panels only (Windows CE). Here select the item "CreateObject (Panels)". It shows how you create the object for manipulating files (FileCtl.File). This cannot be used on normal Windows operating systems so if you try to run the project in the simulator you will get the ActiveX error. You can find help and examples about script also. Just notice what the help says in parentheses, like (Panels, RT Advanced) or only (RT Professional) so you know if it is only for one or the other product.
salrandazzo Posts: 57 Rating: (8)
Suggestion To thank Quote Answer

7/2/2016 8:24 PM	Rate (1)
PHS Silver Member Joined: 9/19/2009 Last visit: 2/4/2025 Posts: 459 Rating: (85)	Hi Here there are some information very usefull about Script WinCE Script WinCE
	Last edited by: Min_Moderator at: 7/4/2016 11:41:54 AM Edit link If my answer help you, use the Thanks or Rate Button, It is free of charge :-) The Powerful of WinCC I share my knowledge here: SCADA WinCC My contribution to the forum Library for WinCC
Suggestion To thank Quote Answer

2/15/2017 4:49 PM	Rate (0)
Willem.Cofely Regular Member Joined: 1/30/2013 Last visit: 2/5/2025 Posts: 1 Rating: (0)	Hi, What is the solution to run it under windows 7 (to test the script without having a panel yet). I try to simulate on a windows7 TIA portal machine too. How do i program CreateObject(" ???") to run it under Windows 7? hope you can help me salrandazzo Hi Michael, the central point of my problems is just what you said. I was trying to simulate a KTP400 confort panel on my windows7 TIA portal machine. So I thought "KTP400 runs WinCE, thus I'll use WinCE sintax to access files". WRONG Even if KTP400 runs WinCE, TIA portal emulation is not complete, it doesn't emulate also WinCE environnement. The script runs under the TIA portal host operating system, i.e. Windows7 in my case. So I had to write a "doubleface" script, that tries to understand if the OS is Win7 or WinCE and behaves consequently. Thanks for your hint Salvatore Michael K Hi, Open the Online help and go to the "Contents" tab. Go to the "Visualize processes -> Working with the system functions and Runtime scripting -> Reference -> VB scripting (Panels, RT Advanced, RT Professional) -> VBScript for Windows CE (Panels) -> VBScript for Windows CE (Panels)". This shows commands that can be used on panels only (Windows CE). Here select the item "CreateObject (Panels)". It shows how you create the object for manipulating files (FileCtl.File). This cannot be used on normal Windows operating systems so if you try to run the project in the simulator you will get the ActiveX error. You can find help and examples about script also. Just notice what the help says in parentheses, like (Panels, RT Advanced) or only (RT Professional) so you know if it is only for one or the other product.

Suggestion To thank Quote Answer

2/22/2018 2:00 PM	Rate (0)
SummerSeaSun Bronze Member Joined: 2/5/2013 Last visit: 10/14/2024 Posts: 288 Rating: (5)	Dear Sirs, I've just downloaded the sample for Tia 14, made by Siemens available at: https://support.industry.siemens.com/cs/ww/en/view/59604194 An it return the #429 error. Why a working sample provided from Siemens should return an error? I've disarchived the project, added an alarm view, started simulation and pushed Datei speichern. The data folder exist on the PC, if I add an historical log with the same path it work. Am I doing something wrong? Please let us kwnow, thanks, BR
	Last edited by: Jen_Moderator at: 2/22/2018 2:38:06 PM Optimized Link.
Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Related topics by keywords:

TIA WinCC Adv System functions/Scripting

Follow us on