Moderator: Co-Administratoren
Vielen Dank für das Lösen dieser zwei Probleme (1x unlöschbare Variable und 1x geistiges Eigentum), denn ich halte auch die Weitergabe des Originalscripts per PN zumindest für eine Grauzone, auch wenn demjenigen, der das Problem hat, damit geholfen wird. Kann es aber nachvollziehen, denn man will helfen und hat ggf. das Werkzeug.anli hat geschrieben:Für denjenigen, der das Problem später einmal hat eine Alternative:
Ja, das sehe ich auch so. Ich habe mein Skript daher noch um einen Lizenzteil ergänztXel66 hat geschrieben:denn ich halte auch die Weitergabe des Originalscripts per PN zumindest für eine Grauzone
Code: Alles auswählen
!Geistervariablen aller Benutzer ermitteln
! homematic-forum.de by BadenPower
object lUsers = dom.GetObject(ID_USERS);
object lSysVars = dom.GetObject(ID_SYSTEM_VARIABLES);
object lUser;
string lEnum1 = "";
string lEnum2 = "";
object lEnumObj2;
integer lCountWrong = 0;
integer lCountDeleted = 0;
if((lUsers) && (lSysVars))
{
foreach(lEnum1,lUsers.EnumIDs())
{
lUser = lUsers.Get(lEnum1);
!WriteLine("User-Objekt: " # lEnum1 # "/" # lUser);
if(lUser)
{
foreach(lEnum2,lUser.UserSharedObjects())
{
lEnumObj2 = dom.GetObject(lEnum2);
!WriteLine("Enum2-Objekt: " # lEnum2 # "/" # lEnumObj2);
if(lEnumObj2)
{
if( (!lSysVars.Get(lEnum2))
|| ( (lEnumObj2.Type() <> OT_ALARMDP)
&& (lEnumObj2.Type() <> OT_VARDP)
)
)
{
!Geistervariable falscher Typ
WriteLine("Fehler:");
WriteLine("Benutzername: " # lUser.Name() # " mit der ID: " # lUser.ID())
WriteLine("Objekt mit dem Objekttyp " # lEnumObj2.TypeName() # " und der ID " # lEnum2 # " gefunden!");
WriteLine("Objektname: " # lEnumObj2.Name());
WriteLine("");
lCountWrong = lCountWrong + 1;
}
}
else
{
!Geistervariable ID nicht auf der CCU vorhanden
WriteLine("Fehler:");
WriteLine("Benutzername: " # lUser.Name() # " mit der ID: " # lUser.ID())
WriteLine("nicht vorhandenes Objekt mit der ID " # lEnum2 # " gefunden!");
WriteLine("");
lCountDeleted = lCountDeleted + 1;
}
}
}
}
if((lCountDeleted == 0) && (lCountWrong == 0))
{
WriteLine("Keine Fehler gefunden!");
}
else
{
WriteLine( (lCountDeleted + lCountWrong).ToString(0) # " Fehler gefunden!");
}
}
WriteLine("Abfrage beendet");
Nein, er hat mich auch nicht darum gebeten, hier Propaganda zu betreiben. 
DANKE!alchy hat geschrieben: Vielen Dank @ BadenPower
Was muss denn getan werden, um den Schwachsinn hier endlich rückgängig zu machen? Oder läuft das jetzt weiter über alchy, Silke, vielleicht noch andere Verwandte und deren Bekannte und Freunde?alchy hat geschrieben:Er wollte den Forum Usern helfen. und ich füge noch hinzu: trotz allem
Code: Alles auswählen
</obj>
<userlevel>8</userlevel>
<password></password>
<name></name>
<firstname>Admin</firstname>
<title></title>
<desc></desc>
<mail>xxx</mail>
<pop3svr></pop3svr>
<pop3port></pop3port>
<pop3name></pop3name>
<pop3pwd></pop3pwd>
<language></language>
<favorite>65535</favorite>
<helpmode>0</helpmode>
<showlog>1</showlog>
<phone></phone>
<client>0</client>
<usr-sobj>
<count>20</count>
<oid>4417</oid>
<oid>16874</oid>
<oid>20749</oid>
<oid>22235</oid>
<oid>24185</oid>
<oid>23549</oid>
<oid>23184</oid>
<oid>29909</oid>
<oid>31275</oid>
<oid>31408</oid>
<oid>37693</oid>
<oid>38054</oid>
<oid>38139</oid>
<oid>38976</oid>
<oid>38819</oid>
<oid>42831</oid>
<oid>43092</oid>
<oid>45049</oid>
<oid>44066</oid>
<oid>61239</oid>
</usr-sobj>
<easylinkmode>0</easylinkmode>
<pwmd5>xxxxx</pwmd5>
</user>
<oid>1010</oid>
<user>
<obj>