Windows 10 has this kiosk feature that we're trying to implement for our callcenter as a wallboard, we're wanting this to be a no-touch for the call center, we've setup a kiosk pc in our own department for network monitoring, and it's been succesful.
The problem I'm running into is creating a script to open and sign into CMS automatically. I've looked through the threads for automatic scripts but they don't quite accomplish what I'm looking for.
Here's what would happen:
When the kiosk pc is started it's in a particular shell that only opens a script or program, in this case CMS, but I need the script to be a combination of automatic and interactive. Automatic in the sense that it logs in automatically but interactive in that it runs the report in the foreground and keeps it open. Has anyone done this? Here's the sample of the script I have so far:
'LANGUAGE=ENU
'SERVERNAME=sv-av-cms
Public Sub Main()
'## cvs_cmd_begin
'## ID = 2001
'## Description = "Report: Integrated: Designer: CSC Wallboard: Display"
'## Parameters.Add "Report: Integrated: Designer: CSC Wallboard: Display","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "4","_Action"
'## Parameters.Add "0","_Quit"
'## Parameters.Add "Integrated\Designer\CSC Wallboard","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "-120","_Top"
'## Parameters.Add "-120","_Left"
'## Parameters.Add "29040","_Width"
'## Parameters.Add "15840","_Height"
'## Parameters.Add "default","_TimeZone"
'## Parameters.Add "5","_RefreshInterval"
'## Parameters.Add "The report Integrated\Designer\CSC Wallboard was not found on ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "111-121;210-214","Splits/Skills"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
On Error Resume Next
Dim cmsApplication As ACSUP.cvsApplication 'acsApp.exe
Dim cmsServer As ACSUPSRV.cvsServer 'acsSRV.exe
Dim cmsConnection As ACSCN.cvsConnection 'cvsconn.dll
Dim cmsCatalog As ACSCTLG.cvsCatalog 'cvsctlg.dll
Dim cmsReport As ACSREP.cvsReport 'acsRep.exe
Dim myLog As String, myPass As String
set myLog = "(usernamehere)"
set myPass = "(passwordhere)"
set objApp = CreateObject("ACSUP.cvsApplication")
set objConn = CreateObject("ACSCN.cvsConnection")
set objSrv = CreateObject("ACSUPSRV.cvsServer")
set cvsApp = new objapp
set cvsConn = new objconn
set cvsSrv = new objsrv
If cvsApp.CreateServer(myLog, myPass, "", "sv-av-cms", False, "ENU", cvsSvr, cvsConn) Then
If cvsConn.Login(myLog, myPass, "", "sv-av-cms", "ENU") Then
End IF
END IF
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Integrated\Designer\CSC Wallboard")
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Integrated\Designer\CSC Wallboard was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "The report Integrated\Designer\CSC Wallboard was not found on ACD 1."
Set Log = Nothing
End If
Else
b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then
Rep.Window.Top = -120
Rep.Window.Left = -120
Rep.Window.Width = 29040
Rep.Window.Height = 15840
Rep.TimeZone = "default"
Rep.SetProperty "Splits/Skills","111-121;210-214"
Rep.RefreshInterval = 5
b = Rep.Run
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If
End If
Set Info = Nothing
'## cvs_cmd_end
End Sub
I'm not familiar with VBA at all, have some experience in powershell and bash but it's been a while. I feel like I need to call the actually controller or something so that the program is launched rather than the utilities that run in the background?
Any help is appreciated.