Frage : Laufzeitfehler „800a0005“ Microsoft-VBScript bei der Anwendung MITTLER

Ich lese in einer Linie der Textdatei eine auf einmal mit ReadLine. Ich muss jede Linie überprüfen, um zu sehen wenn sein ein Hyperlink und wenn „target='_ blank'" zum Ende der Verbindung so hinzufügen. Ich geschrieben eine Funktion, um die Hyperlinkschnur („das ) zu finden aber sein mitten in der Linie, also versucht ich, mittleres zu verwenden (Schnur, Anfang, Ende), aber ich erhalte diese Störung auf der Linie mit der mittleren Funktion:

Microsoft VBScript Laufzeitfehler „800a0005“

Invalid Prozeduraufruf oder Argument: „mittleres“ 

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Funktion dohref (theline)
schwaches thelink
a = Cint (InStr (1, Ucase (theline), „“, vbtextcompare))             'Ende der Schnur
c = B-a'Länge der Schnur	
thelink = mittler (theline, a, c)
thelink = ersetzen (thelink, „>“,“ target='_ blank'> ")
theleft = verließ (theline, a-1)
theright = recht (theline, b+1)
theline = theleft&thelink&theright
Ende function

Antwort : Laufzeitfehler „800a0005“ Microsoft-VBScript bei der Anwendung MITTLER

Sehr einfach.
Wenn er vom Haus des Inhabers anschließt, können wir sicher annehmen, dass es entweder vom gleichen PC oder von einem kleinen Satz bekannten Maschinen ist.
In diesem Fall die Computerbezeichnungen erhalten.
Den LOGON-Index dann ändern, der Durchläufe für jeder in TS (USRLOGON.CMD) und am Ende etwas wie hinzufügen:

WENN NICHT %USERNAME% == „that_particular_username“ Goto- Ende
WENN %CLIENTNAME% NEQ „Computer_Name“ TSLOGOFF
: Ende

So wieder.aufnehmend: überprüfen, ob das username den Benutzer zusammenbringt, den Sie erlauben möchten. Wenn nicht, zum Ende einfach überspringen (Bedeutung tun nichts). Aber, wenn es zusammenpaßt, geht sie zur folgenden Linie und überprüft das %CLIENTNAME% (diese führt die Computerbezeichnung, die der Klient von anschließt). Wenn sie NICHT das zusammenbringt, möchten Sie gewähren, ein TSLOGOFF laufen zu lassen, was ihn aus dem System heraus tritt.
Dieses, was Sie sind, sucht?

Cláudio Rodrigues
Citrix CTP
Weitere Lösungen  
 
programming4us programming4us