Charles Costa

Galera eu preciso pegar um caminho e nesse caminho verificar todas as pastas e sub-pastas existentes (apenas 4 niveis) pois a estrutura de pastas nesse caminho esta assim (FABRICANTE)_(NOME)_(VERSÃO)_(RELEASE), o script precisa verificar os nomes e jogar em um documento .txt ou planilha, depois disso preciso saber o tamanho que esta ocupando a pasta (RELEASE) bom é isso eu fiz um em programação em MS-DOS mas ele so mostra o 2º nivel de pastas @@echo off for /d %%a in (\\brcaxp0002wsd\gltbcwd$\CWD\UK\Release\*.) do for /d %%b in (%%a\*.) do echo %%b isso ai Agradeço Abraços

Po valeu cara...

Ola... Eu preciso que esse script abra um INI file, leia as entradas e substitua elas, mas o script apenas subtitui o primeiro. Abaixo o script: On Error Resume Next Const ForReading = 1 Const ForWriting = 2 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\APL\FOS10\PRD\pic.ini", ForReading) strText = objFile.ReadAll objFile.Close strNewText = Replace(strText, "C:\APL\FOS\PIC", "C:\APL\FOS10\PRD\PIC") strNewText = Replace(strText, "C:\APL\fos\PIC", "C:\APL\FOS10\PRD\PIC") strNewText = Replace(strText, "C:\APL\FOS\pic", "C:\APL\FOS10\PRD\PIC") strNewText = Replace(strText, "C:\APL\fos\pic", "C:\APL\FOS10\PRD\PIC") strNewText = Replace(strText, "C:\apl\FOS\PIC", "C:\APL\FOS10\PRD\PIC") strNewText = Replace(strText, "C:\apl\fos\PIC", "C:\APL\FOS10\PRD\PIC") strNewText = Replace(strText, "C:\apl\FOS\pic", "C:\APL\FOS10\PRD\PIC") strNewText = Replace(strText, "C:\apl\fos\pic", "C:\APL\FOS10\PRD\PIC") Set objFile = objFSO.OpenTextFile("C:\APL\FOS10\PRD\pic.ini", ForWriting) objFile.WriteLine strNewText objFile.Close Obrigado..

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

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.

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...