Command line tool
Posted: Mon 06 Dec 2010, 20:37
Hej!
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
MVH Håkan
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