Question : Erreur d'exécution « 800a0005 » de Microsoft VBScript tout en employante MI

Je lis dans une ligne du dossier un des textes à la fois avec ReadLine. Je dois vérifier chaque ligne pour voir si son un lien hypertexte et si ajouter ainsi le « blank'" de target='_ à la fin du lien. J'ai écrit une fonction pour trouver le href= de (") mais son au milieu de la ligne, ainsi j'avais essayé d'employer mi (corde, début, extrémité) mais j'obtiens cette erreur sur la ligne avec la mi fonction : appel de procédure ou argument du

Invalid de l'erreur d'exécution « 800a0005 » du

Microsoft VBScript : « mi » class= " lineNumbers " >

1 de >

dohref de fonction (theline)
faible thelink
a = Cint (InStr (1, Ucase (theline), «  », vbtextcompare))             'extrémité de corde
c = longueur de b-a 'de corde	
thelink = mi (theline, a, c)
le thelink = remplacent (thelink, « > », » blank'> de target='_ ")
le theleft = est parti (theline, A-1)
theright = droit (theline, b+1)
theline = theleft&thelink&theright
class= >
 " clair " de l'extrémité function

class= de 

Réponse : Erreur d'exécution « 800a0005 » de Microsoft VBScript tout en employante MI

Très simple.
S'il se relie de la maison du propriétaire nous pouvons sans risque supposer qu'elle sera du même PC ou d'un petit ensemble de machines connues.
Dans ce cas, obtenir les noms d'ordinateur.
Changer alors le manuscrit d'ouverture qui des courses pour chacun dans les SOLIDES TOTAUX (USRLOGON.CMD) et à l'extrémité ajouter quelque chose comme :

SINON extrémité Goto de « that_particular_username » de == de %USERNAME%
SI quantité nette de substance explosive « Computer_Name » TSLOGOFF de %CLIENTNAME%
: Extrémité

Ainsi reprenant : vérifier si l'username assortit l'utilisateur que vous voulez permettre. Sinon, sauter simplement à l'extrémité (la signification ne font rien). Mais s'il s'assortit elle ira à la prochaine ligne et vérifiera le %CLIENTNAME% (ceci passe le nom d'ordinateur que le client se relie de). Si elle n'assortit pas celui vous voulez laisser, courir un TSLOGOFF ce qui le donnera un coup de pied hors du système.
Ce ce qui êtes vous recherche ?

Cláudio Rodrigues
Citrix PCT