Problema com script

[Charles Costa]

Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
strSearchWord = "used"
Dim SERIAL 
dim scmd   


Set objNet = CreateObject("WScript.NetWork") 
Set objFSO = CreateObject("Scripting.FileSystemObject")
set WshShell =createobject("Wscript.shell") 

scmd = session.property ("SOURCEPATH")
'msgbox scmd

Set objFile = objFSO.OpenTextFile(scmd,ForReading)
 strText = objFile.ReadAll
objFile.Close
Set objFile = objFSO.OpenTextFile(scmd,ForReading)

Do While not objFile.AtEndOfStream

 Do
       strLine = objFile.ReadLine
 Loop While Not IsNumeric(strLine)

    
' Wscript.Echo strLine
'If the match does not occurs then it returns zero,goes into IF loop
If InStr(strLine,isnumeric(strSearchWord)) = 0 Then
    'msgbox "Inside first IF"
     SERIAL=strline
   
Exit Do
            
     end if 
 Loop
objFile.Close
'msgbox SERIAL   

'try = int(SERIAL)
Session.Property ("PIDKEY") = SERIAL

Str = objnet.computername
SERIAL1=SERIAL & str
'msgbox SERIAL1

WshShell.RegWrite "HKLM\SOFTWARE\ACL Software\ACL 9\Information",SERIAL1 
strNewText = replace(strText,SERIAL,SERIAL1)

Set objFile = objFSO.OpenTextFile(scmd, ForWriting)
objFile.WriteLine strNewText
objFile.Close

Eu precisava que esse script conseguisse ler letras e numeros mas ele apenas le numeros...

Preciso desse script para ler uma serial key e a mesma contem letras e numeros...

Editado Novembro 19, 2008 por kuroi
Adicionar tag CODE

[kuroi]

q codigo é esse?? foi você q fez?? onde você pegou?? o q era pra ele fazer?? o q você quer dizer com "ler" uma serial key?? é pra "ler" e fazer o q com ela?? tem q testar se é valida??

o q você acontece quando você roda o script?? e o q era pra acontece??

[Charles Costa]

esse script sera usado dentro de um instalador .msi

não fui eu quem o criou ele foi criado por um outro funcionario da empresa onde trabalho, so que ele trabalha na india.

eu preciso desse script para ele ler um serial key dentro de um arquivo txt o qual sera chamado pela custom action ("SOURCEPATH").

ele ira pegar o numero de identificacao da maquina e colará dentro desse script e apos isso outra custom action enviara esses dados ao site do fabricante do aplicativo, que gerara um activationkey que ficara registrado nos registros do computador e num arquivo .ini.

estou fazendo isso pois trabalho com empacotamento de software e é a unica maneira de solucionar o problema, quando executamos o instalador o script só funciona se dentro desse arquivo .txt existir só numeros se o serial key possuir letras ele da erro.

espero ter explicado obrigado.

[kuroi]

hum... nessa parte do codigo, tenta tirar as duas linhas apontadas:

Do '<- tira essa linha
       strLine = objFile.ReadLine
Loop While Not IsNumeric(strLine) '<- tira essa linha[/code]
dexa so a linha do meio.

[Charles Costa]

Cara muito obrigado, você não imagina o pepino que você resolveu..

muito obrigado mesmo.. :D