Skip to Content

RNF(Antares):lblSharedSiteHeader_Logo_TitleAccessible

RNF(Antares):lblSharedSiteHeader_LoginArea_Register RNF(Antares):lblSharedSiteHeader_LoginArea_Login

Industry Online Support

Technical Forum

RNF(Antares):lblTreeNavigation_Headline

Write data to the Serial Port in VBScript

RNF(Antares):lblSharedThreadHeader_CreatedBy massy RNF(Antares):lblSharedThreadHeader_Started 4/27/2011 12:13 PM (9 RNF(Antares):lblSharedThreadHeader_Replies)

RNF(Antares):lblSharedThreadHeader_Rating (0)

RNF(Antares):lblSharedThreadHeader_Thanks 3

10 RNF(Antares):lblSharedPager_TotalItemCount_title

4/27/2011 12:13 PM	RNF(Antares):lblSharedPostList_Menutitel_Rating (0)
massy RNF(Antares):lblBadge-Members RNF(Antares):lblSharedPostList_Joined 4/27/2011 RNF(Antares):lblSharedPostList_LastVisit 1/9/2021 RNF(Antares):lblSharedPostList_Posts 4 RNF(Antares):lblSharedPostList_Rating (0)	Hi everybody, I'm using WinCC 2007 Advanced (but ifnecessary I can move to 2008) and I want to write a script in VBScript tosend data to a serial port; is there anyone that is able to explain me the way to do this? Thanks in advance to everybody!!!

RNF(Antares):lblSharedPostList_Issue RNF(Antares):lblSharedPostList_AddThankYou RNF(Antares):lblSharedPostList_AddQuote RNF(Antares):lblSharedPostList_AddPost

4/28/2011 4:51 PM	RNF(Antares):lblSharedPostList_Menutitel_Rating (0)
fbelic RNF(Antares):lblBadge-SilverMembers RNF(Antares):lblSharedPostList_Joined 2/17/2009 RNF(Antares):lblSharedPostList_LastVisit 12/1/2020 RNF(Antares):lblSharedPostList_Posts 327 RNF(Antares):lblSharedPostList_Rating (28)	Greetings I don't think you can. You have to either do this from PLC (which requires RS-232 communication module) or do it from external program. Best regards

RNF(Antares):lblSharedPostList_Issue RNF(Antares):lblSharedPostList_AddThankYou RNF(Antares):lblSharedPostList_AddQuote RNF(Antares):lblSharedPostList_AddPost

7/12/2011 8:50 PM	RNF(Antares):lblSharedPostList_Menutitel_Rating (0)
projects.jaydeep RNF(Antares):lblBadge-EngineerMembers RNF(Antares):lblSharedPostList_Joined 6/4/2008 RNF(Antares):lblSharedPostList_LastVisit 1/5/2021 RNF(Antares):lblSharedPostList_Posts 56 RNF(Antares):lblSharedPostList_Rating (1)	Kindly find the VB Script codes to handle Serial COM Data RNF(Antares):lblHtmlPost_Attachment COMPORT.pdf (1282 RNF(Antares):lblHtmlPost_DownloadCount)

RNF(Antares):lblSharedPostList_Issue RNF(Antares):lblSharedPostList_AddThankYou RNF(Antares):lblSharedPostList_AddQuote RNF(Antares):lblSharedPostList_AddPost
RNF(Antares):lblSharedPostList_ThanksArea 1 RNF(Antares):lblSharedPostList_ThanksCount mahmoudiran

7/12/2011 10:12 PM	RNF(Antares):lblSharedPostList_Menutitel_Rating (0)
fbelic RNF(Antares):lblBadge-SilverMembers RNF(Antares):lblSharedPostList_Joined 2/17/2009 RNF(Antares):lblSharedPostList_LastVisit 12/1/2020 RNF(Antares):lblSharedPostList_Posts 327 RNF(Antares):lblSharedPostList_Rating (28)	Greetings What you posted is a Visual Basic, not VB Script. Although you could use this code to build an external program a mentioned in previous post. I would reccomend some newer version, though. Best regards

RNF(Antares):lblSharedPostList_Issue RNF(Antares):lblSharedPostList_AddThankYou RNF(Antares):lblSharedPostList_AddQuote RNF(Antares):lblSharedPostList_AddPost

7/13/2011 4:59 AM	RNF(Antares):lblSharedPostList_Menutitel_Rating (0)
hdhosseini RNF(Antares):lblBadge-DiamondMembers RNF(Antares):lblSharedPostList_Joined 1/28/2009 RNF(Antares):lblSharedPostList_LastVisit 1/25/2021 RNF(Antares):lblSharedPostList_Posts 6707 RNF(Antares):lblSharedPostList_Rating (1286)	Hi Also check this: How can you send or receive data via the serial interface in WinCC Runtime? Regards
	Demo Channel on Youtube
RNF(Antares):lblSharedPostList_Issue RNF(Antares):lblSharedPostList_AddThankYou RNF(Antares):lblSharedPostList_AddQuote RNF(Antares):lblSharedPostList_AddPost
RNF(Antares):lblSharedPostList_ThanksArea 1 RNF(Antares):lblSharedPostList_ThanksCount mahmoudiran

7/13/2011 7:26 AM	RNF(Antares):lblSharedPostList_Menutitel_Rating (0)
fbelic RNF(Antares):lblBadge-SilverMembers RNF(Antares):lblSharedPostList_Joined 2/17/2009 RNF(Antares):lblSharedPostList_LastVisit 12/1/2020 RNF(Antares):lblSharedPostList_Posts 327 RNF(Antares):lblSharedPostList_Rating (28)	OK. But that is WinCC and he asked for WinCC flexible solution. Best regards

RNF(Antares):lblSharedPostList_Issue RNF(Antares):lblSharedPostList_AddThankYou RNF(Antares):lblSharedPostList_AddQuote RNF(Antares):lblSharedPostList_AddPost

7/13/2011 8:12 PM	RNF(Antares):lblSharedPostList_Menutitel_Rating (0)
projects.jaydeep RNF(Antares):lblBadge-EngineerMembers RNF(Antares):lblSharedPostList_Joined 6/4/2008 RNF(Antares):lblSharedPostList_LastVisit 1/5/2021 RNF(Antares):lblSharedPostList_Posts 56 RNF(Antares):lblSharedPostList_Rating (1)	The Correct Working Script with 6 Mobile Numbers Entering from WinCC Flexi Runtime with Unable Disable facility is written below.... This script works so perfectly... today only i have developed it & tested & found working perfectly with WinCC Flexible 2008 SP2 PC Runtime. Dim SMSSend Dim SMS Dim buffer, DAM_FT, DAM_INCH DAM_FT=(POND_WATER_DISPLAY) DAM_INCH=(Inch_Value) ' This is the name of the MSComm Control Dim S Dim NoArr(6) 'here you can add all the cell numbers you want to send to Set SMSSend = CreateObject("MSCommLib.MSComm") If ( NO1_MOBILE_INT=15 ) Then NoArr(0)=MOBILE_NO_1 End If If ( NO2_MOBILE_INT=15 ) Then NoArr(1)=MOBILE_NO_2 End If If ( NO3_MOBILE_INT=15 ) Then NoArr(2)=MOBILE_NO_3 End If If ( NO4_MOBILE_INT=15 ) Then NoArr(3)=MOBILE_NO_4 End If If ( NO5_MOBILE_INT=15 ) Then NoArr(4)=MOBILE_NO_5 End If If ( NO6_MOBILE_INT=15 ) Then NoArr(5)=MOBILE_NO_6 End If For S = 0 To 5 SMSSend.CommPort = 1 SMSSend.Settings = "9600,N,8,1" SMSSend.InputLen = 0 SMSSend.Handshaking = 0 SMSSend.PortOpen = True SMS="VASANA BARRAGE WATER STORAGE CURRENT LEVEL IS " INCREMENT_VALUE=INCREMENT_VALUE+1 If INCREMENT_VALUE = 10 Then SMSSend.Output = "AT" & Chr(13) End If 'Do 'buffer = buffer & SMSSend.Input 'Loop Until InStr(buffer, "OK") 'buffer = "" If INCREMENT_VALUE=12 Then SMSSend.Output = "AT+CMGF=1" & Chr(13) 'Do 'buffer = buffer & SMSSend.Input 'Loop Until InStr(buffer, "OK") 'buffer = "" End If If INCREMENT_VALUE=14 Then SMSSend.Output = "AT+CMGS=" & Chr(34)& NoArr(S) & Chr(34) & Chr(13) '& Len(SMS) / 2 & Chr$(13) End If 'Do 'buffer = buffer & SMSSend.Input 'Loop Until InStr(buffer, ">") 'buffer = "" If INCREMENT_VALUE =15 Then SMSSend.Output = SMS & DAM_FT & " Ft " & DAM_INCH & " Inch " + Chr(26) INCREMENT_VALUE=0 End If 'Do 'buffer = buffer & SMSSend.Input 'Loop Until InStr(buffer, "OK") ' try to force sends by closing the ports and reopen in loop SMSSend.PortOpen = False Next

RNF(Antares):lblSharedPostList_Issue RNF(Antares):lblSharedPostList_AddThankYou RNF(Antares):lblSharedPostList_AddQuote RNF(Antares):lblSharedPostList_AddPost
RNF(Antares):lblSharedPostList_ThanksArea 1 RNF(Antares):lblSharedPostList_ThanksCount fbelic

7/17/2011 6:09 PM	RNF(Antares):lblSharedPostList_Menutitel_Rating (0)
fbelic RNF(Antares):lblBadge-SilverMembers RNF(Antares):lblSharedPostList_Joined 2/17/2009 RNF(Antares):lblSharedPostList_LastVisit 12/1/2020 RNF(Antares):lblSharedPostList_Posts 327 RNF(Antares):lblSharedPostList_Rating (28)	Greetings Looks like you are right; I couldn't completely test it because I don't have serial port on this laptop, but it didn't report any errors during execution. Thanks for the tip! Best regards

RNF(Antares):lblSharedPostList_Issue RNF(Antares):lblSharedPostList_AddThankYou RNF(Antares):lblSharedPostList_AddQuote RNF(Antares):lblSharedPostList_AddPost

10/18/2011 3:32 PM	RNF(Antares):lblSharedPostList_Menutitel_Rating (0)
bezz RNF(Antares):lblSharedPostList_Posts 2 RNF(Antares):lblSharedPostList_Rating (0)	Dear friend, I tried Your script, but there was an unknown error at row: Set SMSSend = CreateObject("MSCommLib.MSComm") I found that the object is in MSComm32.ocx file. I got the file, I loaded MSComm32.ocx file into WinCC flexible, but still not working. What do I have to do to run the script correctly? In which file is the "MSCommLib.MSComm" object? How must I install it into WinCC flexible? I found that the MSComm32.ocx file is licenced. Is the problem in the licence? Where can I get that licence? How can I install it? Thanks for reply.

RNF(Antares):lblSharedPostList_Issue RNF(Antares):lblSharedPostList_AddThankYou RNF(Antares):lblSharedPostList_AddQuote RNF(Antares):lblSharedPostList_AddPost

10/18/2011 4:38 PM	RNF(Antares):lblSharedPostList_Menutitel_Rating (0)
projects.jaydeep RNF(Antares):lblBadge-EngineerMembers RNF(Antares):lblSharedPostList_Joined 6/4/2008 RNF(Antares):lblSharedPostList_LastVisit 1/5/2021 RNF(Antares):lblSharedPostList_Posts 56 RNF(Antares):lblSharedPostList_Rating (1)	dear bezz, Your problem is correct. i have got 3 laptops, amongs which this script only works with one laptop. i also have tried so many times in various 10 other desktop pcs but still this things doesnt work with wincc flexible 2008. SO i have contacted siemens germeny & they said the activx support for WinCC Flexible require tremendous execution time so it will not work on this mscomm32.ocx activx files. So instead of using Wincc flexi script you need to use some thirdparty softwares. Thanks & regards Jaydeep
	RNF(Antares):lblHtmlPostEditNotes_EditedBy RNF(Antares):lblHtmlPostEditNotes_EditedWhen contact data deleted
RNF(Antares):lblSharedPostList_Issue RNF(Antares):lblSharedPostList_AddThankYou RNF(Antares):lblSharedPostList_AddQuote RNF(Antares):lblSharedPostList_AddPost

|

RNF(Antares):lblShareBox_ShareThisPage

RNF(Antares):lblShareBox_ShareOn

RNF(Antares):lblSocialMedia_FollowUs