Pytanie : vb wszywka przestrzeń

Cześć. I mieć pismo który czytać config kartoteka i odzyskiwać kartoteka własność (rozmiar pliku, version×tamp) i wysyłać the wydajność txt kartoteka. Jak móc i the pismo the następujący:
1. Obecnie timestamp i data ustawiać the prąd (gdy the pismo biegać). Chcieć ono set the ostatni raz the kartoteka być modified.
2. zawierać przestrzeń między wydajność serwer wydajność. Na przykład, kilka serwer dostawać własność dla adobe, inny dla java. Polubić przestrzeń po the adobe wydajność i przed java.

Example przesyłać:
2/01/2009 2:02: 19 PM: 10.x.x.1 c:\Program Files\adobe\name.exe 1.0.0.1
2660352 Bytes
2/01/2009 2:02: 19 PM: 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1
2660352 Bajt
((1) linia astronautyczny tutaj)
2/01/2009 2:02: 19 PM: 10.x.x.3 c:\Program Files\java\name.exe 1.0.0.1
2660352 Bytes
2/01/2009 2:02: 19 PM: 10.x.x.4 c:\Program Files\java\name.exe 1.0.0.1
2660352 Bytes

3. Zawierać liczyć obliczenie dla/>Example result.
Example:
1. 2/01/2009 2:02: 19 PM: 10.x.x.4 c:\Program Files\java\name.exe 1.0.0.1
2660352 Bytes
2. 2/01/2009 2:02: 19 PM: 10.x.x.5 c:\Program Files\java\name.exe 1.0.0.1
2660352 Bytes

4. Ruch the wielkościowy wydajność linia (przykład wielkościowy) the linia linia. Obecnie, the rozmiar pliku w the wydajność pokazywać obecnie na the następny line

Example:
2/01/2009 2:02: 19 PM: 10.x.x.1 c:\Program Files\adobe\name.exe 1.0.0.1
2660352 Bytes
2/01/2009 2:02: 19 PM: 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1
2660352 Bajt
(musieć)
1. 2/01/2009 2:02: 19 PM: 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1 2660352 Bajt
2. 2/01/2009 2:02: 19 PM: 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1 2660352 Bajt

script:

Dim strServer
Dim strUsername
Dim strPassword
Dim StrFilename
Dim fConfig
dim objNetwork

Const ForReading = 1

Set objNetwork = CreateObject ("WScript.Network")

strOutputFile = "C:\outputfile.txt "

Set objFSO = CreateObject ("Scripting.FileSystemObject")

set fConfig = objFSO.OpenTextFile ("config.txt", ForReading, Fałszywy)

Set objOutputFile = objFSO.CreateTextFile (strOutputFile, Prawdziwy, Prawdziwy)

do do fconfig.atendofstream
strLine = fconfig.readline
Jeżeli UCase (Opuszczać (strLine, 6)) = "SERWER" Wtedy strServer = Podstrzyżenie (W połowie (strLine, InStr (strLine, "=") + 1))
Jeżeli UCase (Opuszczać (strLine, 8)) = "USERNAME" Wtedy strUsername = Podstrzyżenie (W połowie (strLine, InStr (strLine, "=") + 1))
Jeżeli UCase (Opuszczać (strLine, 8)) = "HASŁO" Wtedy strPassword = Podstrzyżenie (W połowie (strLine, InStr (strLine, "=") + 1))
Jeżeli UCase (Opuszczać (strLine, 8)) = "FILENAME" Wtedy strFileName = Podstrzyżenie (W połowie (strLine, InStr (strLine, "=") + 1))
Jeżeli strServer <> "" I strUsername <> "" I strPassword <> "" I strFileName <> "" Then
Jeżeli Świst (strServer) = Prawdziwy Then
processfile strServer, strUsername, strPassword, "z:\" & StrFilename
Else
objOutputFile.WriteLine strServer &" być autonomiczny. "
Końcówka If
strServer = ""
strUsername = ""
strPassword = ""
strFileName = ""
Końcówka If
Loop

objOutputFile.Close
MsgBox "kończyć. "

Function ProcessFile (strSvr, strUser, strPass, strFilePath)
Ćmić strMsg, strVersion, timestamp
Na Błąd Życiorys Next
objnetwork.removenetworkdrive "z: ", Prawdziwy, True
Err.Clear
objnetwork.mapnetworkdrive "z: ", "\ \" & strSvr & "\ C$", Fałszywy, strUser, strPass
Jeżeli Err.Number <> (0) Then
MsgBox "Błąd" & strSvr & ". Zadawalać czek ty móc the serwer." & VbCrLf & "Błąd" & Err.Number & ": " & Err.Description
Err.Clear
Else
Na Błąd Rozpoczynający 0
"Upewniać się the kartoteka exists
Jeżeli objFSO.FileExists (strFilePath) = Fałszywy Then
strMsg = strFile & "- Segregować znajdować. "
Else
" Dostawać the Wersja the Kartoteka i stawiać ono w Wiadomość String
strVersion = objFSO.GetFileVersion (strFilePath)
strMsg = strSvr & ""& strFilePath &" "& strVersion
strtimestamp = czas ()
Końcówka If

'Pisać the Wiadomość sznurek the Wydajność Kartoteka (z CR LF)
objOutputFile.Write Teraz &": "& strMsg & VbCrLf
Ustalony ffile = objfso.getfile (strFilePath)
objoutputfile.writeline ffile.size &" Bajt "

Końcówka If
objnetwork.removenetworkdrive "z: ", Prawdziwy, True
Err.Clear
Na Błąd Rozpoczynający 0
End Function

Function Świst (strComputer)
Ćmić objShell, boolCode
Ustalony objShell = CreateObject ("WScript.Shell")
boolCode = objShell.Run ("Świst - n (1) - w 300" & strComputer, (0), Prawdziwy)
Jeżeli boolCode = (0) Then
Świst = True
Else
Świst = False
Końcówka If
End Function

Thanks w advance.

Odpowiedź : vb wszywka przestrzeń

Cześć, I badać to trochę….dawać strzał strzał.

Uwzględnienie,

Rob.

(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:



Ciemnawy strServer
Ciemnawy strUsername
Ciemnawy strPassword
Ciemnawy StrFilename
Ciemnawy fConfig
Ciemnawy objNetwork
Ciemnawy strPreviousFileName
Ciemnawy intProgramCounter

strPreviousFile = ""
intProgramCounter = (0)

Const ForReading = (1)

Ustalony objNetwork = CreateObject ("WScript.Network")

strOutputFile = "outputfile.txt"

Ustalony objFSO = CreateObject ("Scripting.FileSystemObject")

ustawiać fConfig = objFSO.OpenTextFile ("config.txt", ForReading, Fałszywy)

Ustawiać objOutputFile = objFSO.CreateTextFile (strOutputFile, Prawdziwy, Prawdziwy)

do fconfig.atendofstream
      strLine = fconfig.readline
      Jeżeli UCase (Opuszczać (strLine, 6)) = "SERWER" Wtedy strServer = Podstrzyżenie (W połowie (strLine, InStr (strLine, "=") + 1))
      Jeżeli UCase (Opuszczać (strLine, 8)) = "USERNAME" Wtedy strUsername = Podstrzyżenie (W połowie (strLine, InStr (strLine, "=") + 1))
      Jeżeli UCase (Opuszczać (strLine, 8)) = "HASŁO" Wtedy strPassword = Podstrzyżenie (W połowie (strLine, InStr (strLine, "=") + 1))
      Jeżeli UCase (Opuszczać (strLine, 8)) = "FILENAME" Wtedy strFileName = Podstrzyżenie (W połowie (strLine, InStr (strLine, "=") + 1))
      Jeżeli strServer <> "" I strUsername <> "" I strPassword <> "" I strFileName <> "" Wtedy
            Jeżeli Świst (strServer) = Prawdziwy Wtedy
                  'processfile strServer, strUsername, strPassword, "z:\" & StrFilename
                  processfile strServer, strUsername, strPassword, strFilename
            Inny
                  objOutputFile.WriteLine strServer & "być autonomiczny."
            Kończyć Jeżeli
            strServer = ""
            strUsername = ""
            strPassword = ""
            strFileName = ""
      Kończyć Jeżeli
Pętla

objOutputFile.Close
MsgBox "Kończyć. Zadawalać widzieć" & strOutputFile

Funkcja ProcessFile (strSvr, strUser, strPass, strFilePath)
	Ciemnawy strMsg, strVersion, timestamp, strDriveLetter
	Na Błąd Życiorys Następnie
	objnetwork.removenetworkdrive "z: ", Prawdziwy, Prawdziwy
	Err.Clear
	strDriveLetter = Opuszczać (strFilePath, 1) & "$"
	objnetwork.mapnetworkdrive "z: ", "\ \" & strSvr & "\" & strDriveLetter, Fałszywy, strUser, strPass
	Jeżeli Err.Number <> (0) Wtedy
		MsgBox "Błąd" & strSvr & ". Zadawalać czek ty móc the serwer." & VbCrLf & "Błąd" & Err.Number & ": " & Err.Description
		Err.Clear
	Inny
		Na Błąd Rozpoczynający (0)
		'Upewniać się the kartoteka istnieć
		intProgramCounter = intProgramCounter + (1)
		Jeżeli objFSO.FileExists ("Z:\" & W połowie (strFilePath, 4)) = Fałszywy Wtedy
			strMsg = strFilePath & "- Segregować znajdować. "
		Inny
			'Dostawać the Wersja the Kartoteka i stawiać ono w Wiadomość Sznurek
			strVersion = objFSO.GetFileVersion ("Z:\" & W połowie (strFilePath, 4))
			'Pisać the Wiadomość sznurek the Wydajność Kartoteka (z CR LF)
			Ustawiać ffile = objfso.getfile ("Z:\" & W połowie (strFilePath, 4))
			strtimestamp = ffile.DateLastModified
			Jeżeli LCase (strPreviousFileName) <> LCase (W połowie (W połowie (strFilePath, 4), InStrRev (W połowie (strFilePath, 4), "\ ") + 1)) Wtedy
				intProgramCounter = (1)
				objOutputFile.WriteLine ""
			Kończyć Jeżeli
			strMsg = intProgramCounter & ". " & strtimestamp & ""& strSvr &" "& strFilePath &" "& strVersion &" "& ffile.size &" Bajt "
		Kończyć Jeżeli
		objOutputFile.WriteLine strMsg
		strPreviousFileName = W połowie (strFilePath, InStrRev (strFilePath, "\ ") + 1)
	Kończyć Jeżeli
	objnetwork.removenetworkdrive "z: ", Prawdziwy, Prawdziwy
	Err.Clear
	Na Błąd Rozpoczynający (0)
Końcówka Funkcja

Funkcja Świst (strComputer)
      Ciemnawy objShell, boolCode
      Ustalony objShell = CreateObject ("WScript.Shell")
      boolCode = objShell.Run ("Świst - n (1) - w 300" & strComputer, (0), Prawdziwy)
      Jeżeli boolCode = (0) Wtedy
            Świst = Prawdziwy
      Inny
            Świst = Fałszywy
      Kończyć Jeżeli
Kończyć Funkcja

Inne rozwiązania

SUP7203B PFC niekompatybilność

system przywrócić punkt

IE8 Przedkładać Forma z [Wchodzić Do] Klucz, stosownie

zintegrowany wordpress w miejsce. blog pic doczepianie.

Łączyć XenServer wśród iPhone

Porzucony Windows 7 Instalacyjny odpowiedź kartoteka

SSH konsola: iść precyzować falcówka po nazwa użytkownika

Tworzyć Linux przygotowywać CD-R stylowy but dysk…

Dlaczego Sysinternals Wirusowy wyszukiwarka redirect?

MS Dojazdowy SQL Podział Dojazdowy obejście potrzebować