Siemens SIMATIC PCS 7 Manuel De Configuration page 368

Utilisation de la station de maintenance PCS 7
15.17 Exportation individuelle - Exportation des données d'un composant
objXml.documentElement.selectSingleNode("/Document/b2mml:Maintenance
Information/b2mml:MaintenanceRequest/b2mml:Requestor")
objXml.documentElement.selectSingleNode("/Document/b2mml:Maintenance
Information/b2mml:MaintenanceRequest/b2mml:Status")
vbNewLine
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
new job object
false
nothing, false
loginInfo, Nothing, False
False
368
MessageText = MessageText & " / Problem=" & child.text
Set child =
MessageText = MessageText & " / Requestor=" & child.text
Set child =
MessageText = MessageText & " / Status=" & child.text
HMIRuntime.Trace "MessageText = " & MessageText &
End If
'Create and initialize Interlink and Job helper objects
Set il = HMIRuntime.DataSet("il").Value
'Set job = HMIRuntime.DataSet("job").Value ' always create a
If IsEmpty(il) Then
Set il = CreateObject("FSP3Interlink.Interlink")
'Load login info from File
Dim file
Dim logininfo
Set file = fso.OpenTextFile(LoginInfoPath)
loginInfo = file.ReadAll()
'chose connection method (default is dcom)
Dim ComputerName
Set ComputerName = HMIRuntime.Tags("@LocalMachineName")
'Set ComputerName = HMIRuntime.Tags("@ServerName")
ComputerName.Read
'il.AddGateway "tcp://localhost", 5, loginInfo, nothing,
'il.AddGateway "soap://FSP3SERVER/fsp3", 5, loginInfo,
'il.AddGateway "dcom://" & ComputerName.Value, 5,
il.AddGateway "dcom://localhost", 5, loginInfo, Nothing,
HMIRuntime.DataSet.Add "il", il
End If
If IsEmpty(job) Then
Set job = CreateObject("FSP3Interlink.Job")
HMIRuntime.DataSet.Add "job", job
End If
'Prepare Job object
Manuel de configuration, 03/2009, A5E02122465-01
Station opérateur (V7.1)