Fråga : VB skrivar för att lista den kända disken och för att storleksanpassa och frigöra utrymme

Hi alla,

I har en text att spara som har omkring 200 som, serveren namnger. Jag behöver en vbscript att läsa in texten sparar och frambringar en rapport på läkarundersökningdisken storleksanpassar och frigör utrymme för varje hjälp för server.

Please!

Thanks
" klar "

Svar : VB skrivar för att lista den kända disken och för att storleksanpassa och frigöra utrymme

LOL! Jag tänkte att du styrkan frågar det.  Så jag hade beträffande-ser på mitt kodifierar, och jag har nu gjort det mycket mer dynamisk, var du behöver endast att specificera drevet märker dig för att önska i arrDrives.  Du kan tillfoga, eller att subtrahera så många drev märker, som du önskar.

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:
94:
95:
96:
97:
98:
99:
100:
strInputFile = ”computers.txt”,
strOutputFile = ”hard_disk_space.csv”,
Dunkla arrDrives
arrDrives = samling (”C”, ”D”, ”E”, ”F”)

Fastställd objFSO = CreateObject (”Scripting.FileSystemObject”)
Const som intForReading = 1

Const adVarChar = 200
Const MaxCharacters = 255


Dunkla DataList
Fastställda DataList = CreateObject (”ADOR.Recordset”)
DataList.Fields.Append ”server” som är adVarChar, MaxCharacters
För varje som är strDrive i arrDrives
	strDrive DataList.Fields.Append & ”storleksanpassar”, adVarChar, MaxCharacters
	strDrive DataList.Fields.Append & ”fritt utrymme” som är adVarChar, MaxCharacters
	strDrive DataList.Fields.Append & ”procent frigör”, adVarChar, MaxCharacters
Därefter
DataList.Open

Fastställdt objInputFile = objFSO.OpenTextFile (strInputFile och att intForReading),
Stunder inte objInputFile.AtEndOfStream
	strComputer = objInputFile.ReadLine
	Get_Free_Space_Details (strComputer)
Wend

Fastställdt objOutputFile = objFSO.CreateTextFile (strOutputFile, riktigt)
strHeader- = """ SERVER""",
För varje som är strDrive i arrDrives
	strHeader = strHeader & ”, """ & strDrive &” STORLEKSANPASSAR "", """ & strDrive & ”FRI UTRYMME"", """ & strDrive &” för PROCENT FRI """,
Därefter
objOutputFile.WriteLine-strHeader
DataList.MoveFirst
Stunder inte DataList.EOF
	strLine = """" & DataList (”server”) & """",
	För varje som är strDrive i arrDrives
		strLine = strLine & ”, strDrive """ & DataList (&” storleksanpassa ") & """, """ & DataList (strDrive & ”fritt utrymme”) & fria strDrive &” procent """, """ & DataList (") & """",
	Därefter
	objOutputFile.WriteLine-strLine
	DataList.MoveNext
Wend
DataList.Close
objOutputFile.Close

Gjorda MsgBox ”. Behaga ser” & strOutputFile
'==============

UnderGet_Free_Space_Details (strComputer)

	DataList.AddNew
	DataList (”server”) = strComputer
	Om pingen (strComputer) = True därefter 
		På felmeritförteckning därefter
		Fastställd objWMIService = GetObject (”winmgmts: {impersonationLevel=impersonate}! \ \” & strComputer & ”\ rotar \ cimv2”)
		Om Err.Number = 0 därefter
			Err.Clear
			På fel GoTo 0
			För varje som är strDrive i arrDrives
				Fastställda colDisks = objWMIService.ExecQuery (”valda FreeSpace, storleksanpassar från Win32_LogicalDisk var DriveType = 3 och DeviceID = ”” & strDrive & ”: ” ”)
				För varje objDisk i colDisks
					intFreeSpace = objDisk.FreeSpace
					intTotalSpace = objDisk.Size
					pctFreeSpace = intFreeSpace/intTotalSpace
					strDrive DataList (& ”storleksanpassa”), = runda (intTotalSpace/1024/1024/1024, 2) &” GB ",
					DataList (strDrive & ”fritt utrymme”) = runda (intFreeSpace/1024/1024/1024, 2) &” GB ",
					strDrive & ”procent DataList (frigör”), = FormatPercent (pctFreeSpace)
				Därefter
			Därefter			
			Fastställd objDisk = ingenting
			Fastställda colDisks = ingenting
			Fastställd objWMIService = ingenting
		Annars
			För varje som är strDrive i arrDrives
				strDrive DataList (& ”storleksanpassa”), = ”WMI-FEL”,
				DataList (strDrive & ”fritt utrymme”) = ”WMI-FEL”,
				strDrive & ”procent DataList (frigör”), = ”WMI-FEL”,
			Därefter
		Avsluta om
	Annars
		För varje som är strDrive i arrDrives
			strDrive DataList (& ”storleksanpassa”), = ”OFFLINE”,
			DataList (strDrive & ”fritt utrymme”) = ”OFFLINE”,
			strDrive & ”procent DataList (frigör”), = ”OFFLINE”,
		Därefter
	Avsluta om
	DataList.Update
Avsluta suben

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