Pergunta : espaço da inserção do vb

Olá!. Eu tenho um certificado que leia de uma lima dos config e recupere propriedades de lima (tamanho de lima, version×tamp) e emito a saída a uma lima do txt. Como posso eu modificar o certificado para incluir o seguinte:
1. Atualmente o timestamp e a data estão ajustados à corrente (quando o certificado funciona). Querê-lo ajustam-se à última vez onde a lima que está sendo recuperada era modified.
2. inclui um espaço entre cada saída do usuário. Por exemplo, diversos usuários estão começ as propriedades para o adôbe, outro para java. Gostaria de um espaço após a saída do adôbe e antes de java.

Example output: 2:02 do
2/01/2009: 19 PM: 2:02 do
2660352 Bytes
2/01/2009 de 10.x.x.1 c:\Program Files\adobe\name.exe 1.0.0.1: 19 PM: 2:02 do
2/01/2009 do
dos bytes do
2660352 de 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1 (1 linha espaço aqui): 19 PM: 2:02 do
2660352 Bytes
2/01/2009 de 10.x.x.3 c:\Program Files\java\name.exe 1.0.0.1: 19 PM: o
2660352 Bytes

3. de 10.x.x.4 c:\Program Files\java\name.exe 1.0.0.1 inclui uma contagem do número para cada result.
Example: 2:02 do
1. 2/01/2009: 19 PM: 2:02 do
2660352 Bytes
2. 2/01/2009 de 10.x.x.4 c:\Program Files\java\name.exe 1.0.0.1: 19 PM: movimento do
2660352 Bytes

4. de 10.x.x.5 c:\Program Files\java\name.exe 1.0.0.1 a linha de saída do tamanho (exemplo abaixo) à mesma linha. Atualmente, o tamanho de lima na saída está aparecendo no
Example do line
: 2:02 do
2/01/2009: 19 PM: 2:02 do
2660352 Bytes
2/01/2009 de 10.x.x.1 c:\Program Files\adobe\name.exe 1.0.0.1: 19 PM: 2:02 do
1. 2/01/2009 do
dos bytes do
2660352 de 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1 (deve ser): 19 PM: 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1 2660352 2:02 do
2. 2/01/2009 dos bytes: 19 PM: 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1

script de 2660352 bytes: objNetwork

Const ForReading do fConfig
dim do strPassword
Dim StrFilename
Dim do strUsername
Dim do strServer
Dim do

Dim = objNetwork de 1

Set =

ork”)/>strOutputFile = de CreateObject objFSO do

Set de “C:\outputfile.txt " = de

set (“Scripting.FileSystemObject”) fConfig =

Set de objFSO.OpenTextFile (“config.txt”, ForReading, falso) objOutputFile =

do de objFSO.CreateTextFile (strOutputFile, verdadeiro, verdadeiro) até o strLine de fconfig.atendofstream
= o fconfig.readline
se UCase (deixado (strLine, 6)) = strServer = guarnição do “USUÁRIO” então (meados de (strLine, InStr (strLine, “=") + 1))
se UCase (deixado (strLine, 8)) = strUsername = guarnição do “username” então (meados de (strLine, InStr (strLine, “=") + 1))
se UCase (deixado (strLine, 8)) = strPassword = guarnição da “SENHA” então (meados de (strLine, InStr (strLine, “=") + 1))
se UCase (deixado (strLine, 8)) = strFileName = guarnição do “NOME DE ARQUIVO” então (meados de (strLine, InStr (strLine, “=") + 1))
se "" do <> do strServer e "" do <> do strUsername e "" do <> do strPassword e "" Then
do <> do strFileName se o sibilo (strServer) = strServer de Then
, strUsername, strPassword, “z:\” & strServer processfile verdadeiros de StrFilename
Else
objOutputFile.WriteLine &” é fora de linha. do “o strServer de If
do fim
= o strUsername do
do "" = o strPassword do
do "" = o strFileName do
do "" = a extremidade If
Loop

objOutputFile.Close
MsgBox do
do "" “terminaram. do “o

Function ProcessFile (strSvr, strUser, strPass, strFilePath) escurece o strMsg, strVersion, timestamp
no resumo Next
objnetwork.removenetworkdrive “z do erro: ”, Verdadeiro, True
Err.Clear
objnetwork.mapnetworkdrive “z: ”, “\ \” & strSvr & erro “\ C$”, falso, strUser, strPass
se Err.Number 0/> Then
MsgBox “que traçam” & strSvr & “. Verific por favor o pode traçar ao usuário.” & VbCrLf & “erro” & Err.Number & “: ” & Err.Description
Err.Clear
Else
no erro 0
“certificam-se do exists
da lima se objFSO.FileExists (strFilePath) = strMsg falso de Then
= strFile & “- lima não encontrada. o “
Else
” começ a versão da lima e põr a em um strVersion de String
da mensagem = o strMsg = o strSvr do
de objFSO.GetFileVersion (strFilePath) & ““& o strFilePath &” “& o strtimestamp do
do strVersion = o
de If
do fim do
do tempo () 'escrevem a corda da mensagem ao
objOutputFile.Write da lima de saída (com um CR LF) agora &”: “& o strMsg & VbCrLf
ajustaram-se ffile = o
objoutputfile.writeline ffile.size &” bytes do " extremidade If
objnetwork.removenetworkdrive “z de objfso.getfile (strFilePath) do

: ”, Verdadeiro, True
Err.Clear
no
do sibilo do erro 0
End Function

Function (strComputer) escurece o objShell, objShell do boolCode
boolCode = do
de CreateObject (“WScript.Shell”) =
de objShell.Run (“sibilo - n 1 - w 300” & strComputer, 0, verdadeiros) se boolCode = 0 sibilos de Then
= sibilo de True
Else
= extremidade If
End Function

Thanks adiantado. de False
class= do

Resposta : espaço da inserção do vb

Olá!, eu testei este um bocado….dar a isto um tiro.

Considerações,

Roubo.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:



strServer não ofuscante
strUsername não ofuscante
strPassword não ofuscante
StrFilename não ofuscante
fConfig não ofuscante
objNetwork não ofuscante
strPreviousFileName não ofuscante
intProgramCounter não ofuscante

strPreviousFile = ""
intProgramCounter = 0

Const ForReading = 1

Ajustar o objNetwork = o CreateObject (“WScript.Network”)

strOutputFile = “outputfile.txt”

Ajustar o objFSO = o CreateObject (“Scripting.FileSystemObject”)

ajustar o fConfig = o objFSO.OpenTextFile (“config.txt”, ForReading, falsos)

Ajustar objOutputFile = objFSO.CreateTextFile (strOutputFile, verdadeiro, verdadeiro)

fazer até fconfig.atendofstream
      strLine = fconfig.readline
      Se UCase (deixado (strLine, 6)) = strServer = guarnição do “USUÁRIO” então (meados de (strLine, InStr (strLine, “=") + 1))
      Se UCase (deixado (strLine, 8)) = strUsername = guarnição do “username” então (meados de (strLine, InStr (strLine, “=") + 1))
      Se UCase (deixado (strLine, 8)) = strPassword = guarnição da “SENHA” então (meados de (strLine, InStr (strLine, “=") + 1))
      Se UCase (deixado (strLine, 8)) = strFileName = guarnição do “NOME DE ARQUIVO” então (meados de (strLine, InStr (strLine, “=") + 1))
      Se "" <> do strServer e de "" <> e de strPassword do strUsername <> "" e "" <> do strFileName então
            Se o sibilo (strServer) = retifica então
                  'strServer, strUsername, strPassword, “z:\” & StrFilename processfile
                  strServer processfile, strUsername, strPassword, strFilename
            Mais
                  o strServer de objOutputFile.WriteLine & “é fora de linha.”
            Terminar se
            strServer = ""
            strUsername = ""
            strPassword = ""
            strFileName = ""
      Terminar se
Laço

objOutputFile.Close
MsgBox “terminou. Ver por favor” & strOutputFile

Função ProcessFile (strSvr, strUser, strPass, strFilePath)
	strMsg não ofuscante, strVersion, timestamp, strDriveLetter
	No resumo do erro em seguida
	objnetwork.removenetworkdrive “z: ”, Verdadeiro, verdadeiro
	Err.Clear
	strDriveLetter = saido (strFilePath, 1) & “$”
	objnetwork.mapnetworkdrive “z: ”, “\ \” & strSvr & “\” & strDriveLetter, falso, strUser, strPass
	Se Err.Number <> 0 então
		Erro de MsgBox “que traçam” & strSvr & “. Verific por favor o pode traçar ao usuário.” & VbCrLf & “erro” & Err.Number & “: ” & Err.Description
		Err.Clear
	Mais
		No erro 0 empreendedores
		'Certificar-se que a lima existe
		intProgramCounter = intProgramCounter + 1
		Se objFSO.FileExists (“Z:\” & meados de (strFilePath, 4)) = falso então
			strMsg = strFilePath & “- lima não encontrada. ”
		Mais
			'Começ a versão da lima e põr a em uma corda da mensagem
			strVersion = objFSO.GetFileVersion (“Z:\” & meados de (strFilePath, 4))
			'Escrever a corda da mensagem à lima de saída (com um CR O LF)
			Ajustar ffile = objfso.getfile (“Z:\” & meados de (strFilePath, 4))
			strtimestamp = ffile.DateLastModified
			Se LCase (strPreviousFileName) <> LCase (meados de (meados de (strFilePath, 4), InStrRev (meados de (strFilePath, 4), “\ ") + 1)) Então
				intProgramCounter = 1
				"" de objOutputFile.WriteLine
			Terminar se
			strMsg = intProgramCounter & “. ” & strtimestamp & ““& strSvr &” “& strFilePath &” “& strVersion &” “& ffile.size &” bytes "
		Terminar se
		strMsg de objOutputFile.WriteLine
		strPreviousFileName = meados de (strFilePath, InStrRev (strFilePath, “\ ") + 1)
	Terminar se
	objnetwork.removenetworkdrive “z: ”, Verdadeiro, verdadeiro
	Err.Clear
	No erro 0 empreendedores
Função do fim

Sibilo da função (strComputer)
      objShell não ofuscante, boolCode
      Ajustar o objShell = o CreateObject (“WScript.Shell”)
      boolCode = objShell.Run (“sibilo - n 1 - w 300” & strComputer, 0, verdadeiros)
      Se boolCode = 0 então
            O sibilo = retifica
      Mais
            Sibilo = falso
      Terminar se
Terminar a função

Outras soluções

Perguntas da entrevista do certificado de Shell da festança

lima de .vmdk

Como encontrar a contagem da fileira em Oracle DataReader em ASP.NET?

Excitador do bluetooth BCM2045 do inspiron 1720 de Dell para o profissional de Windows Xp.

Como conseguir o lightbox mostrar sobre a bandeira instantânea?

Fora do escritório o assistente que não trabalha w/Forwarding configurou

Redistribuindo o RASGO em subnets non-contiguous do OSPF.

líquidos de corpo após a sessão da natação

SQL0952N

Criando um vbscript para a chave do registro - IRPStackSize