Vraag : Runtime van Microsoft VBScript fout „800a0005“ terwijl MEDIO gebruiken

Ik lees in een tekstdossier één lijn in een tijd met ReadLine. Ik moet elke lijn controleren om als zijn een hyperlink te zien en als zo „target='_ blank'" aan het eind van de verbinding toevoeg. Ik heb een functie geschreven om het hyperlinkkoord („" somefile " ) te vinden maar zijn in het midden van de lijn, zodat heb ik geprobeerd om Medio te gebruiken (koord, begin, eind) maar ik krijg deze fout op de lijn met de medio functie: de vraag of het argument runtime

Microsoft VBScript van de fouten „800a0005“

Invalid: „medio“

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

functie dohref (theline) schemerige thelink a = Cint (InStr (1, Ucase (theline), „“, vbtextcompare)) 'eind van koord c = ba 'lengte van koord thelink = medio (theline, a, c) thelink = vervang (thelink, „>“,“ target='_ blank'> ") theleft = weggegaan (theline, a-1) theright = juist (theline, b+1) theline = theleft&thelink&theright eind function

Antwoord : Runtime van Microsoft VBScript fout „800a0005“ terwijl MEDIO gebruiken

Zeer eenvoudig.
Als hij van het huis verbindt van de eigenaar kunnen wij veilig veronderstellen het of van zelfde PC of een kleine reeks bekende machines zal zijn.
In dat geval, krijg de computernamen.
Dan verander het openings van een sessiemanuscript dat voor iedereen in TS (USRLOGON.CMD) loopt en voeg aan het eind iets als toe:

ALS NIET %USERNAME% Eind == „that_particular_username “ Goto
ALS %CLIENTNAME% NEQ „Computer_Name“ TSLOGOFF
: Eind

Zo hervattend: controleer als de gebruikersbenaming de gebruiker aanpast u wilt toestaan. Als niet, sla eenvoudig aan het eind (de betekenis doet niets) over. Maar als het aanpast zal het naar de volgende lijn gaan en zal %CLIENTNAME% controleren (dit gaat de computernaam over de cliënt van verbindt). Als het niet aanpast wilt u toestaan, in werking stelt een TSLOGOFF wat hem uit het systeem zal schoppen.
Is dit wat u zoekend bent?

Cláudio Rodrigues
Citrix CTP