Вопрос : космос вставки vb

Здравствулте!. Я имею сценарий читает архива config и восстановляет свойства архива (размер архива, version×tamp) и посылаю выход к архиву txt. Как могу я доработать сценарий для того чтобы включить следующий:
1. В настоящее время фиксация времени и дата установлены к течению (когда сценарий бежит). Те его установите к последнию разу, котор будучи восстановлянным архив был modified.
2. вклюает пространство между каждый выход сервера. Например, несколько серверов получают свойства для самана, другие для java. Хотел был космос после выхода самана и перед java.

Example вывело наружу: 2:02
2/01/2009: 19 PM: 2:02
2660352 Bytes
2/01/2009 10.x.x.1 c:\Program Files\adobe\name.exe 1.0.0.1: 19 PM: 2:02
2/01/2009
байт
2660352 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1 (1 линии космоса здесь): 19 PM: 2:02
2660352 Bytes
2/01/2009 10.x.x.3 c:\Program Files\java\name.exe 1.0.0.1: 19 PM:
2660352 Bytes

3. 10.x.x.4 c:\Program Files\java\name.exe 1.0.0.1 вклюает отсчет номера для каждого result.
Example: 2:02
1. 2/01/2009: 19 PM: 2:02
2660352 Bytes
2. 2/01/2009 10.x.x.4 c:\Program Files\java\name.exe 1.0.0.1: 19 PM: движение
2660352 Bytes

4. 10.x.x.5 c:\Program Files\java\name.exe 1.0.0.1 линия выхода размера (пример ниже) к такой же линии. В настоящее время, размер архива в выходе показывает вверх на следующем
Example line
: 2:02
2/01/2009: 19 PM: 2:02
2660352 Bytes
2/01/2009 10.x.x.1 c:\Program Files\adobe\name.exe 1.0.0.1: 19 PM: 2:02
1. 2/01/2009
байт
2660352 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1 (быть): 19 PM: 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1 2660352 2:02
2. 2/01/2009 байт: 19 PM: 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1

script 2660352 байт: objNetwork

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

Dim = objNetwork 1

Set =

ork»)/>strOutputFile = «C:\outputfile.txt " objFSO

Set =

set CreateObject («Scripting.FileSystemObject») fConfig =

Set objFSO.OpenTextFile («config.txt», ForReading, ложных) objOutputFile =

do objFSO.CreateTextFile (strOutputFile, поистине, поистине) до strLine fconfig.atendofstream
= fconfig.readline
если ое UCase, то ((strLine, 6)) = strServer = уравновешивание «СЕРВЕРА» после этого (среднее (strLine, InStr (strLine, «=") + 1))
если ое UCase, то ((strLine, 8)) = strUsername = уравновешивание «USERNAME» после этого (среднее (strLine,
InStr (strLine, «=") + 1)) если ое UCase, то ((strLine, 8)) = strPassword = уравновешивание «ПАРОЛЯ» после этого (среднее (strLine,
InStr (strLine, «=") + 1)) если ое UCase, то ((strLine, 8)) = strFileName = уравновешивание «FILENAME» после этого (среднее (strLine,
InStr (strLine, «=") + 1)) если "" <> strServer и "" <> strUsername и "" <> strPassword и "" Then
<> strFileName            Если Пинг (strServer) = поистине strServer Then
processfile, strUsername, strPassword, «z:\» & strServer StrFilename
Else
objOutputFile.WriteLine &» автономен. «strServer If
конца
= strUsername
"" = strPassword
"" = strFileName
"" = конец If
Loop

objOutputFile.Close
MsgBox
"" «закончили. «


Function ProcessFile (strSvr, strUser, strPass, strFilePath) затемняет strMsg, strVersion, timestamp
на резюме Next
objnetwork.removenetworkdrive «z ошибки: », Поистине, True
Err.Clear
objnetwork.mapnetworkdrive «z: », «\ \» & strSvr & ошибка «\ C$», ложное, strUser, strPass
если Err.Number 0/> Then
MsgBox «составляя карту» & strSvr & «. Пожалуйста проверите вас смогите составить карту к серверу.» & VbCrLf & «ошибка» & Err.Number & «: » & Err.Description
Err.Clear
Else
на ошибке переход 0
«делают конечно exists
архива если objFSO.FileExists (strFilePath) = ложное strMsg Then
= strFile & «- ый архив. «
Else
» получают вариант архива и кладут его в strVersion String
сообщения = strMsg = strSvr
objFSO.GetFileVersion (strFilePath) & ««& strFilePath &» «& strtimestamp
strVersion =
If
конца
времени () 'пишут шнур сообщения к
objOutputFile.Write выходного файла (с CR LF) теперь &»: «& strMsg & VbCrLf
установили ffile =
objoutputfile.writeline ffile.size &» байты " конец If
objnetwork.removenetworkdrive «z objfso.getfile (strFilePath)

: », Поистине, True
Err.Clear
на
Пинга ошибки переход 0
End Function

Function (strComputer) затемняет objShell, objShell boolCode
boolCode установленные =
CreateObject («WScript.Shell») =
objShell.Run («Пинга - n 1 - w 300» & strComputer, 0, поистине) если boolCode = 0 Пингов Then
= Пинг True
Else
= конец If
End Function

Thanks заранее. False
class=

Ответ : космос вставки vb

Hi, я испытывал это бит….дайте этому съемку.

Отношения,

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:

Тусклое strServer
Тусклое strUsername
Тусклое strPassword
Тусклое StrFilename
Тусклое fConfig
Тусклое objNetwork
Тусклое strPreviousFileName
Тусклое intProgramCounter

strPreviousFile = ""
intProgramCounter = 0

Const ForReading = 1

Установите objNetwork = CreateObject («WScript.Network»)

strOutputFile = «outputfile.txt»

Установите objFSO = CreateObject («Scripting.FileSystemObject»)

установите fConfig = objFSO.OpenTextFile («config.txt», ForReading, ложные)

Установите objOutputFile = objFSO.CreateTextFile (strOutputFile, поистине, поистине)

не сделать до fconfig.atendofstream
      strLine = fconfig.readline
      Если ое UCase, то ((strLine, 6)) = strServer = уравновешивание «СЕРВЕРА» после этого (среднее (strLine, InStr (strLine, «=") + 1))
      Если ое UCase, то ((strLine, 8)) = strUsername = уравновешивание «USERNAME» после этого (среднее (strLine, InStr (strLine, «=") + 1))
      Если ое UCase, то ((strLine, 8)) = strPassword = уравновешивание «ПАРОЛЯ» после этого (среднее (strLine, InStr (strLine, «=") + 1))
      Если ое UCase, то ((strLine, 8)) = strFileName = уравновешивание «FILENAME» после этого (среднее (strLine, InStr (strLine, «=") + 1))
      Если "" <> strServer и "" <> и strPassword strUsername <> "" и "" <> strFileName после этого
            Если Пинг (strServer) = True после этого
                  'processfile strServer, strUsername, strPassword, «z:\» & StrFilename
                  processfile strServer, strUsername, strPassword, strFilename
            Еще
                  strServer objOutputFile.WriteLine & «автономно.»
            Закончитесь если
            strServer = ""
            strUsername = ""
            strPassword = ""
            strFileName = ""
      Закончитесь если
Петля

objOutputFile.Close
MsgBox «закончило. Пожалуйста см.» & strOutputFile

Функция ProcessFile (strSvr, strUser, strPass, strFilePath)
	Тусклое strMsg, strVersion, фиксация времени, strDriveLetter
	На резюме ошибки затем
	objnetwork.removenetworkdrive «z: », Поистине, поистине
	Err.Clear
	strDriveLetter = о (strFilePath, 1) & «$»
	objnetwork.mapnetworkdrive «z: », «\ \» & strSvr & «\» & strDriveLetter, ложное, strUser, strPass
	Если Err.Number <> 0 после этого
		Ошибка MsgBox «составляя карту» & strSvr & «. Пожалуйста проверите вас смогите составить карту к серверу.» & VbCrLf & «ошибка» & Err.Number & «: » & Err.Description
		Err.Clear
	Еще
		На ошибке переход 0
		'Сделайте конечно архив существует
		intProgramCounter = intProgramCounter + 1
		Если objFSO.FileExists, то («Z:\» & среднее (strFilePath, 4)) = ложно после этого
			strMsg = strFilePath & «- ый архив. »
		Еще
			'Получите вариант архива и положите его в шнур сообщения
			strVersion = objFSO.GetFileVersion («Z:\» & среднее (strFilePath, 4))
			'Напишите шнур сообщения к выходному файлу (с CR LF)
			Установите ffile = objfso.getfile («Z:\» & среднее (strFilePath, 4))
			strtimestamp = ffile.DateLastModified
			Если LCase (strPreviousFileName) <> LCase (среднее (средний (strFilePath, 4), InStrRev (среднее (strFilePath, 4), «\ ") + 1)) после этого
				intProgramCounter = 1
				"" objOutputFile.WriteLine
			Закончитесь если
			strMsg = intProgramCounter & «. » & strtimestamp & ««& strSvr &» «& strFilePath &» «& strVersion &» «& ffile.size &» байты "
		Закончитесь если
		strMsg objOutputFile.WriteLine
		strPreviousFileName = средний (strFilePath, InStrRev (strFilePath, «\ ") + 1)
	Закончитесь если
	objnetwork.removenetworkdrive «z: », Поистине, поистине
	Err.Clear
	На ошибке переход 0
Функция конца

Пинг функции (strComputer)
      Тусклое objShell, boolCode
      Установите objShell = CreateObject («WScript.Shell»)
      boolCode = objShell.Run («Пинг - n 1 - w 300» & strComputer, 0, поистине)
      Если boolCode = 0 после этого
            Пинг = True
      Еще
            Пинг = ложно
      Закончитесь если
Закончите функцию
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us