Nyligen upptäckt Switch King och är precis vad jag letat efter! Har programmet MainLobby/MLServer (cinemaronline.com) för att styra pool med temperaturer ,multimedia etc. och som grafiskt gränssnitt är det ett riktigt bra program. Har lyckats att uppdatera variabler i MainLobby mha EventListener från Switch King och detta fungerar utmärkt. Jag vill också kunna styra Switch King från detta program mha command line tool. Jag kan köra en bat-fil (%comspec% /k cmdline.exe %1 %2) från kommandprompten och skicka parametrar utan problem men vill göra detsamma från ett script inifrån MLServer men får inte till det. Scriptet nedan 'borde fungera' men får felmeddelande : C:\Program inte tillgänglig - Åtkomst nekad. DOS programmering är inte min starka sida!kan någon ge ett tips hur man får till ett script som fungerar
Code: Select all
Option Explicit
'#######################################################################
' call : MLScript|S_W~Switch~turnon*1
' Switchstatus send in form : 'turnon' 1 etc
'#######################################################################
Sub Switch (Params)
Dim tmp_cmd
Dim switch_nr
Dim tmp_pos
Dim cmd_torun
tmp_cmd = Params(0)
'for debug
MLServer.SetVariable "ScriptOut", tmp_cmd
tmp_pos =( Instr(tmp_cmd,"*"))
cmd_torun = Mid(tmp_cmd,1,(tmp_pos)-1)
switch_nr = Mid(tmp_cmd,(tmp_pos)+1,1)
Dim oshell
Dim sFile
sFile = "C:\Program Files (x86)\Switch King\SwitchKing.Console.CmdLine\cmdLine.exe" & Chr(32) & cmd_torun & Chr(32) & switch_nr
'for debug
MLServer.SetVariable "ScriptOut2",sFile
Set oshell = CreateObject("WScript.Shell")
' oshell.Run Chr(34) & sFile & Chr(34),1,True
oshell.Run sFile,1,True
Set shell = Nothing
End sub
