23.10.2012 16:13 | |
Beiträge: 3037 Bewertung: (192)
|
Hallo Ralf, Der Beitrag sollte dir weiterhelfen. Bestimmung des aktiven Access Points, über den das Mobile Panel kommuniziert Tweety |
24.10.2012 16:29 | |
Beiträge: 3037 Bewertung: (192)
|
Hallo Ralf, Es gibt Unterschiedliche VBS Befehle für WinCE und Windows, siehe Hilfe. Welche VBS-Informationen und Programmierhilfen gibt es in WinCC flexible? Tweety Unterschiede zwischen den VB Skript-Funktionen von Windows und WinCE |
Zuletzt bearbeitet von: Tweety am: 24.10.2012 17:09 |
|
Für diesen Beitrag bedanken sich1 Benutzer |
25.10.2012 09:36 | |
Beigetreten: 17.06.2011 Letzter Bes: 01.08.2024 Beiträge: 79 Bewertung: (7) |
Hallo Tweety, vielen Dank für die zwei Links. Hab jetzt eine Lösung für mein Problem gefunden. Gruß _R_A_L_F_ |
25.10.2012 09:58 | |
Beiträge: 3037 Bewertung: (192)
|
Hallo Ralf, Wie hast dudas Auslesen der Mac Adresse beim Panel gelöst? Tweety |
Zuletzt bearbeitet von: Tweety am: 25.10.2012 09:58 |
|
25.10.2012 12:33 | |
Beigetreten: 22.07.2008 Letzter Bes: 14.04.2022 Beiträge: 1884 Bewertung: (174) |
Hi, hab grad das hier gefunden: " Because I couldn't find an answer:-
vIP,vMask, vMac, vHostname are internal string variables to receive the results. ' 20090518 Get the Ip Address and store it in Local Variables (From Siemens AG) ' Modified to work on Windows CE V5.0 on the MP277 Dim fso,f,temp,erg,t Set fso = CreateObject("FileCtl.FileSystem") Set f = CreateObject("FileCtl.File") 'writes the ipconfig in to a text file 'Help says hmiShowMinimizedAndInactive, but program only accepts hmiShowMaximizedAndInactive 'Command for WinCCflexible/CE 5.0 StartProgram "CMD", "/C ipconfig /all >\Flash\ip.txt", hmiShowMinimized, hmiNo 'wait until the output is ready Do Until fso.Dir("\Flash\ip.txt") = "ip.txt" Loop 'open the text file f.open "\Flash\ip.txt",1,1 'fsModeInput,fsAccessReadWrite Do temp = f.LineInputString 'read out line by line erg = InStr(temp, "IP Address ........ : ") 'wenn / if Zeile = IPAdresse If erg Then SmartTags("vIP") = Right(temp,Len(temp)-erg-21) End If erg = InStr(temp, "Subnet Mask........ : ") 'wenn / if Zeile = SubnetMask If erg Then SmartTags("vMask") = Right(temp,Len(temp)-erg-21) erg = InStr(temp, "Address............ : ") 'wenn / if Zeile = MAC-Adresse If erg Then SmartTags("vMac") = Right(temp,Len(temp)-erg-21) erg = InStr(temp, "Host name.......... : ") 'wenn / if Zeile = HostName If erg Then SmartTags("vHostName") = Right(temp,Len(temp)-erg-21) Loop While f.EOF = False f.Close 'close the text file Set f = Nothing Set fso = Nothing " Als Nachtrag noch im Anhang ein PDF VBScript Unterschiede in WinCE DateianhangC:\Documents and Settings\dea106w0\Desktop\VBScript_WinCE.pdf (383 Downloads) |
Zuletzt bearbeitet von: Servicetechniker am: 25.10.2012 12:50~(‾▿‾)~ |
|
Für diesen Beitrag bedanken sich1 Benutzer |
Folgen Sie uns auf