I påvente av svar så laget jeg et script selv.
En kombinasjon av scriptet til @Moskus (https://www.hjemmeautomasjon.no/forums/topic/30-script-randomvaluevb-sett-en-tilfeldig-verdi-på-en-eller-flere-devicer/) og @Gjelsvik (https://www.hjemmeautomasjon.no/forums/topic/3492-script-styre-farger-på-jowiehue-trådfri/).
Siden jeg kjører på Linux så slet jeg med at jeg fikk feilmelding i loggen:
Det skyldes hs.PluginFunction (har opplevd det samme før).
Dette er visstnok "feil", men virker likevel på Windows:
hs.PluginFunction("JowiHue", "", "SetLightsRGB", {True, "hugo-ceiling-lamp", Nothing, rgbString, 5})
Riktig syntax er:
hs.PluginFunction("JowiHue", "", "SetLightsRGB", New Object(){True, "hugo-ceiling-lamp", Nothing, rgbstring,5})
Mitt script ble da slik:
Public Sub Main(ByVal param As String)
Dim generator As New System.Random
Dim r,g,b as Integer
Dim rgbstring as String
r = generator.Next(0, 255)
g = generator.Next(0, 255)
b = generator.Next(0, 255)
rgbstring = r & "," & g & "," & b
hs.writelog("rndcolor", "Lys ["& param &"] skiftet farge til " & rgbstring)
hs.PluginFunction("JowiHue", "", "SetLightsRGB", New Object(){False, param, Nothing, rgbstring,5})
End Sub