sefanharich
Level-1
- Beiträge
- 2
- Reaktionspunkte
- 0
-> Hier kostenlos registrieren
Hallo zusammen, kann mir jemand sagen wie ich den aktuell angemeldeten Windows User in meine Soft PLC 1507S ausgelesen bekomme?
Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim DateiName , fs , f , Z , VarListe , myIP , myIPAdr
DateiName = SmartTags("Intern\Daten_Verzeichnis") + "myIP.txt"
[COLOR=#ff0000][B]StartProgram "CMD.exe" , "/c IPConfig > " & DateiName , hmiShowMinimized , hmiNo[/B][/COLOR]
Set fs = CreateObject("Scripting.FileSystemObject")
Do : Loop Until fs.FileExists (DateiName)
If fs.FileExists (DateiName) Then
Set f = fs.OpenTextFile(DateiName , ForReading , True)
On Error Resume Next
myIP = "" : myIPAdr = ""
SmartTags("Intern\IP_Adresse_VNC") = "IP-Adresse : -?-"
Do While Not f.AtEndOfStream
Z = f.ReadLine
[COLOR=#ff0000][B] If (InStr (Z , "IP-Adresse") <> 0) _
Or (InStr (Z , "IPv4-Adresse") <> 0) Then
[/B][/COLOR] VarListe = Split (Z , ":")
myIP = Trim(VarListe(1))
VarListe = Split (myIP , ".")
If myIPAdr = "" Then
myIPAdr = myIP
Else
myIPAdr = myIPAdr + " , " + myIP
End If
End If
Loop
f.Close
fs.DeleteFile DateiName , True
SmartTags("Intern\IP_Adressen") = myIPAdr
End If
Ganz so einfach ist das nicht. Das Panel müsste den Visu-Rechner dazu bringen, das der die Batch-Datei ausführt. Hast Du eine Idee, wie dieser Anstoss ausgelöst werden kann?Das Script kann ja auch ein Batch-File (*.Bat-Datei) auf dem Visu-Rechner anstossen
Wir verwenden essentielle Cookies, damit diese Website funktioniert, und optionale Cookies, um den Komfort bei der Nutzung zu verbessern.
Siehe weitere Informationen und konfiguriere deine Einstellungen