Fråga : Microsoft VBScript det runtime felet ”800a0005” fördriver using MITT-

Läsning för förmiddag I i en text sparar en fodrar i sänder med ReadLine. Jag behöver att kontrollera varje fodrar för att se om dess en hyper-link och, om tillfoga så ”target='_blank'" till avsluta av anknyta. Jag har skriftligt en fungera som finner hyperen-link, stränger (”" somefile " ) men dess in en mitt av fodra, så jag har varit pröva att använda mitt- (stränger, startar, avslutar), men jag får detta fel på fodra med det mitt- fungerar: appell eller argument för tillvägagångssätt för

Invalid för runtime fel ”800a0005” för

Microsoft VBScript: ”mitt-” för class=" codeSnippet " för

1 för >

fungera dohref (thelinen)
dunkel thelink
a = Cint (InStr (1, Ucase (thelinen), ””, vbtextcompare))             'avsluta av stränger
c = den b-a'längden av stränger	
thelink = mitt- (theline, a, c)
thelink = byter ut (thelink, ”>”,” target='_blank'> ")
theleft = lämnade (thelinen, a-1)
theright = högert (thelinen, b+1)
theline = theleft&thelink&theright
avsluta function<-/pre>

" klar "

Svar : Microsoft VBScript det runtime felet ”800a0005” fördriver using MITT-

Mycket enkelt.
Om han förbinder från ägarens hem, vi kan säkert anta att det ska endera är från den samma PC:N eller en liten uppsättning av bekant bearbetar med maskin.
Få datoren namnger, isåfall.
Ändra därefter inloggningen skrivar att körningar för alla i TS (USRLOGON.CMD) och på avsluta tillfoga något som är lik:

OM INTE %USERNAME% == ”Goto that_particular_username ” avslutar
OM %CLIENTNAME% NEQ ”Computer_Name” TSLOGOFF
: Avsluta

Så återuppta: kontrollera, om usernamen matchar användaren som du önskar att låta. Om inte, enkelt överhopp till den menande avsluta (gör ingenting). Men, om den matchar, den ska går till det nästa fodrar och kontrollerar %CLIENTNAME%en (denna passerar datoren namnger beställaren förbinder från). Om den INTE matchar den, du önskar att låta, att köra en TSLOGOFF ska vad sparka honom ut ur systemet.
Detta vad du är, söker efter?

Cláudio Rodrigues
Citrix CTP