Fråga : vbmellanläggsutrymme

Hälsningar. Jag har en skriva, som läser av en config sparar, och hämtar sparar rekvisita (spara storleksanpassar, version×tamp) och överför tillverkad till en txt sparar. Hur kan jag ändra skriva för att inkludera efter:
1. För närvarande tidsstämpeln och daterar är fastställd till strömmen (när skrivakörningarna). Önska den som är fastställd till sista gång som spara som hämtades, var modified.
2. inkludera ett utrymme mellan varje tillverkad server. Till exempel flera serveror får rekvisita för Adobe, andra för java. Den skulle något liknande ett utrymme efter Adoben tillverkar, och för java.

Example tillverkar: 2:02 för
2/01/2009: 19 PM: 2:02 för
2660352 Bytes
2/01/2009 för 10.x.x.1 c:\Program Files\adobe\name.exe 1.0.0.1: 19 PM: 2:02 för
2/01/2009 för
för byte för
2660352 för 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1 (1 fodrar utrymme här): 19 PM: 2:02 för
2660352 Bytes
2/01/2009 för 10.x.x.3 c:\Program Files\java\name.exe 1.0.0.1: 19 PM:
2660352 Bytes

3 för 10.x.x.4 c:\Program Files\java\name.exe 1.0.0.1. Inkludera en numreraräkning för varje result.
Example:
1. 2/01/2009 2:02: 19 PM:
2660352 Bytes
2 för 10.x.x.4 c:\Program Files\java\name.exe 1.0.0.1. 2/01/2009 2:02: 19 PM:
2660352 Bytes

4 för 10.x.x.5 c:\Program Files\java\name.exe 1.0.0.1. Flyttning som den tillverkade storleksanpassa fodrar (det nedanföra exemplet) till samma fodrar. För närvarande spara storleksanpassar i tillverkad är visningen upp på den nästa Example för line
: 2:02 för
2/01/2009: 19 PM: 2:02 för
2660352 Bytes
2/01/2009 för 10.x.x.1 c:\Program Files\adobe\name.exe 1.0.0.1: 19 PM:
1 för
för byte för
2660352 för 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1 (bör vara). 2/01/2009 2:02: 19 PM: 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1 2660352 byte
2. 2/01/2009 2:02: 19 PM: 10.x.x.2 c:\Program Files\adobe\name.exe 1.0.0.1 2660352 byte

script: objNetwork

Const ForReading för fConfig
dim för strPassword
Dim StrFilename
Dim för strUsername
Dim för strServer
Dim för

Dim = objNetwork för 1

Set = CreateObject (”WScript.Network”)

strOutputFile = = objOutputFile

Set för objFSO.OpenTextFile objFSO ”för C:\outputfile.txt "

Set = fConfig för CreateObject (”Scripting.FileSystemObject”)

set (”config.txt”, ForReading som, är falsk) =

do för objFSO.CreateTextFile (strOutputFile, riktigt, riktigt) till strLinen = fconfig.readline
för fconfig.atendofstream
, om lämnade, UCase ((strLine, 6)) = strServer = mitt-, klippning ”för SERVER” därefter ((strLinen, InStr (strLine, ”=”) + 1))
, om lämnade, UCase ((strLine, 8)) = strUsername = mitt-, klippning ”för USERNAME” därefter ((strLinen, InStr (strLine, ”=”) + 1))
, om lämnade, UCase ((strLine, 8)) = strPassword = mitt-, klippning ”för LÖSENORD” därefter ((strLinen, InStr (strLine, ”=”) + 1))
, om lämnade, UCase ((strLine, 8)) = strFileName = mitt-, klippning ”för FILENAME” därefter ((strLinen, InStr (strLine, ”=”) + 1))
om strServer<>"" och strUsername<>"" och strPassword<>"" och strFileName<>"" Then
, om pingen (strServer) = den riktig Then
processfile strServer, strUsername, strPassworden, ”z:\” & StrFilename
Else
objOutputFile.WriteLine strServer &” är offline-. ”
avslutar If
strServer = strUsername för ""
= strPassword för ""
= strFileName för ""
= ""
avslutar If
Loop

objOutputFile.Close
MsgBox ”avslutade sig. strMsg för
”för

Function ProcessFile (strSvr, strUser, strPass, strFilePath) dunkel, strVersion, timestamp
på felmeritförteckningen Next
objnetwork.removenetworkdrive ”z: ” Riktigt, True
Err.Clear
objnetwork.mapnetworkdrive ”z: ”, ”\ \” & strSvr & ”\ C$”, falskt, strUser, strPass
om Err.Number 0/> Then
MsgBox ”fel som kartlägger”, & strSvr & ”. Behaga kontrollen som du kan kartlägga till serveren.”, & VbCrLf & ”fel” & Err.Number & ”: ” & Err.Description
Err.Clear
Else
på felet GoTo 0
”ser till sparaexists om objFSO.FileExists (strFilePath) = falsk Then
strMsg = strFile & ”- spara inte funnit. ”
Else
” får versionen av spara och sätter den i en meddelandeString
strVersion = strMsg = strSvr för
för objFSO.GetFileVersion (strFilePath), & ””& strFilePath &” ”& strtimestamp för strVersion
=
för tid () avslutar If

'skriver meddelandet stränger till tillverkad sparar (med CR LF)
objOutputFile.Write nu &”: ”& strMsg & VbCrLf
fastställda ffile =
objoutputfile.writeline ffile.size &” byte "
för objfso.getfile (strFilePath) för
avslutar If
objnetwork.removenetworkdrive ”z: ” Riktigt, True
Err.Clear
på objShell för
för Ping för fel GoTo 0
End Function

Function (strComputer) dunkel, fastställd objShell för boolCode
= boolCode för CreateObject (”WScript.Shell”)
=
för objShell.Run (”Ping - n 1 - w 300” & strComputer, 0, True), om boolCode = 0 Then
Ping = den True
Else
pingen = False
avslutar If
End Function

Thanks i advance. " klar "

Svar : vbmellanläggsutrymme

Hi har jag testat som denna, a bet….,ge detta skjuten.

Hälsningar,

Råna.

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:



Dunkel strServer
Dunkel strUsername
Dunkel strPassword
Dunkla StrFilename
Dunkel fConfig
Dunkel objNetwork
Dunkel strPreviousFileName
Dunkel intProgramCounter

strPreviousFile = "",
intProgramCounter = 0

Const ForReading = 1

Fastställd objNetwork = CreateObject (”WScript.Network”)

strOutputFile = ”outputfile.txt”,

Fastställd objFSO = CreateObject (”Scripting.FileSystemObject”)

fastställd fConfig = objFSO.OpenTextFile (”config.txt”, ForReading som, är falska)

Fastställdt objOutputFile = objFSO.CreateTextFile (strOutputFile, riktigt, riktigt)

gör till fconfig.atendofstream
      strLine = fconfig.readline
      Om lämnade, UCase ((strLine, 6)) = strServer = mitt-, klippning ”för SERVER” därefter ((strLinen, InStr (strLine, ”=”) + 1))
      Om lämnade, UCase ((strLine, 8)) = strUsername = mitt-, klippning ”för USERNAME” därefter ((strLinen, InStr (strLine, ”=”) + 1))
      Om lämnade, UCase ((strLine, 8)) = strPassword = mitt-, klippning ”för LÖSENORD” därefter ((strLinen, InStr (strLine, ”=”) + 1))
      Om lämnade, UCase ((strLine, 8)) = strFileName = mitt-, klippning ”för FILENAME” därefter ((strLinen, InStr (strLine, ”=”) + 1))
      Om strServer <> "" och strUsername <> ""- och strPassword <> "" och strFileName <> "" därefter
            Om pingen (strServer) = True därefter
                  'processfile strServer, strUsername, strPassword, ”z:\” & StrFilename
                  processfile strServer, strUsername, strPassword, strFilename
            Annars
                  objOutputFile.WriteLine-strServer & ”är offline-.”,
            Avsluta om
            strServer = "",
            strUsername = "",
            strPassword = "",
            strFileName = "",
      Avsluta om
Kretsa

objOutputFile.Close
MsgBox ”avslutade sig. Behaga ser” & strOutputFile

Fungera ProcessFile (strSvr, strUser, strPass, strFilePath)
	Dunkel strMsg, strVersion, tidsstämpel, strDriveLetter
	På felmeritförteckning därefter
	objnetwork.removenetworkdrive ”z: ” Riktigt, riktigt
	Err.Clear
	strDriveLetter = lämnat (strFilePath, 1) & ”$”,
	objnetwork.mapnetworkdrive ”z: ”, ”\ \” & strSvr & ”\” & strDriveLetter som är falsk, strUser, strPass
	Om Err.Number <> 0 därefter
		MsgBox ”fel som kartlägger”, & strSvr & ”. Behaga kontrollen som du kan kartlägga till serveren.”, & VbCrLf & ”fel” & Err.Number & ”: ” & Err.Description
		Err.Clear
	Annars
		På fel GoTo 0
		'Se till att spara finns
		intProgramCounter = intProgramCounter + 1
		Om objFSO.FileExists (”Z:\” & mitt- (strFilePath, 4)) = falskt därefter
			strMsg = strFilePath & ”- spara inte funnit. ”,
		Annars
			'Få versionen av spara och sätt den i ett meddelande stränger
			strVersion = objFSO.GetFileVersion (”Z:\” & mitt- (strFilePath, 4))
			'Skriv meddelandet stränger till tillverkad sparar (med CR LF)
			Fastställdt ffile = objfso.getfile (”Z:\” & mitt- (strFilePath, 4))
			strtimestamp = ffile.DateLastModified
			Om LCase (strPreviousFileName) <> mitt-, LCase ((mitt- (strFilePath, 4), mitt- InStrRev ((strFilePath, 4), ”\”) + 1)) Därefter
				intProgramCounter = 1
				objOutputFile.WriteLine-"",
			Avsluta om
			strMsg = intProgramCounter & ”. ” & strtimestamp & ””& strSvr &” ”& strFilePath &” ”& strVersion &” ”& ffile.size &” byte ",
		Avsluta om
		objOutputFile.WriteLine-strMsg
		strPreviousFileName = mitt- (strFilePath, InStrRev (strFilePath, ”\”) + 1)
	Avsluta om
	objnetwork.removenetworkdrive ”z: ” Riktigt, riktigt
	Err.Clear
	På fel GoTo 0
Avsluta fungerar

Fungera pingen (strComputer)
      Dunkel objShell, boolCode
      Fastställd objShell = CreateObject (”WScript.Shell”)
      boolCode = objShell.Run (”Ping - n 1 - w 300” & strComputer, 0 som, är riktiga)
      Om boolCode = 0 därefter
            Pingen = True
      Annars
            Ping = falskt
      Avsluta om
Avsluta fungerar

Andra lösningar

Hur många skrivar av sidor r där i SQL-server?

OMA och OWA

Missa över mellan GLÅMIGA anslutningar för aktiv/för aktiv på en Cisco Router

ASP.Net tappar skuggar verkställer

Vad är ämna av ”den MAKEFILE” makroen i en makefile?

Ett rengöringsdukundantag uppstod därför att en HTTP 401 - det obehöriga svaret mottogs från okända

Funktionen måste använda en Updateable Query

PHP passerar parametrar till den on-line aktiveringssidan

Ethernetövergångskabel förbinder

döda ett processaa vid styrka, hur kan jag