Questione : Scritto di VB per elencare nome del disc e formato e spazio libero

Ciao tutti, il

I hanno una lima di testo che ha circa 200 nomi di assistente. Ho bisogno di un vbscript di leggere dentro la lima di testo e di generare un rapporto sul formato fisico del disc e lo spazio libero per ogni aiuto di server.

Please!

Thanks class= del

Risposta : Scritto di VB per elencare nome del disc e formato e spazio libero

LOL! Ho pensato che potreste chiedere quello.  Così ho avuto re-osservo il mio codice ed ora lo ho reso molto più dinamico, dove dovete soltanto specificare le lettere che di azionamento volete in arrDrives.  Potete aggiungere o sottrarre altretante lettere di azionamento come desiderate.

Riguardi,

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:
94:
95:
96:
97:
98:
99:
100:

strInputFile = “computers.txt„
strOutputFile = “hard_disk_space.csv„
arrDrives fiochi
arrDrives = allineamento (“C„, “D„, “E„, “F„)

Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)
Const che intForReading = 1

Const = 200 adVarChar
Const MaxCharacters = 255


DataList fioco
Regolare DataList = CreateObject (“ADOR.Recordset„)
DataList.Fields.Append “assistente„, adVarChar, MaxCharacters
Per ciascuno strDrive in arrDrives
	DataList.Fields.Append strDrive & “formato„, adVarChar, MaxCharacters
	DataList.Fields.Append strDrive & “spazio libero„, adVarChar, MaxCharacters
	DataList.Fields.Append strDrive & “le percentuali liberano„, adVarChar, MaxCharacters
Dopo
DataList.Open

objInputFile stabilito = objFSO.OpenTextFile (strInputFile, intForReading)
Mentre non objInputFile.AtEndOfStream
	strComputer = objInputFile.ReadLine
	Get_Free_Space_Details (strComputer)
Wend

Regolar objOutputFile = objFSO.CreateTextFile (strOutputFile, allineare)
""" dell'ASSISTENTE dello strHeader = del """
Per ciascuno strDrive in arrDrives
	lo strHeader = lo strHeader & “, """ & strDrive &„ GRADUANO il "", il """ & il "" dello SPAZIO strDrive & “LIBERO, il """ & il """ secondo la misura LIBERO delle PERCENTUALI„ & strDrive
Dopo
strHeader di objOutputFile.WriteLine
DataList.MoveFirst
Mentre non DataList.EOF
	strLine = """" & DataList (“assistente„) & """"
	Per ciascuno strDrive in arrDrives
		strLine = strLine & “, """ & DataList (strDrive &„ formato ") & """, """ & spazio strDrive & “libero„ di DataList () & """, """ & DataList (strDrive &„ le percentuali liberare ") & """"
	Dopo
	strLine di objOutputFile.WriteLine
	DataList.MoveNext
Wend
DataList.Close
objOutputFile.Close

MsgBox “fatto. Vedere prego„ & strOutputFile
'==============

Get_Free_Space_Details secondario (strComputer)

	DataList.AddNew
	DataList (“assistente„) = strComputer
	Se il rumore metallico (strComputer) = allora allinea 
		Sul riassunto di errore dopo
		Regolare il objWMIService = GetObject (“winmgmts: {impersonationLevel=impersonate}! \ \„ & strComputer & “\ radice \ cimv2„)
		Se Err.Number = 0 allora
			Err.Clear
			Sull'errore 0 di avanzamento
			Per ciascuno strDrive in arrDrives
				Regolare i colDisks = objWMIService.ExecQuery (“FreeSpace prescelto, formato da Win32_LogicalDisk dove DriveType = 3 e DeviceID = “„ & strDrive & “: „ ")
				Per ogni objDisk nei colDisks
					intFreeSpace = objDisk.FreeSpace
					intTotalSpace = objDisk.Size
					pctFreeSpace = intFreeSpace/intTotalSpace
					DataList (strDrive & “formato„) = rotondo (intTotalSpace/1024/1024/1024, 2) &„ GB "
					Spazio di DataList (strDrive & “libero„) = rotondo (intFreeSpace/1024/1024/1024, 2) &„ GB "
					DataList (strDrive & “le percentuali liberare„) = FormatPercent (pctFreeSpace)
				Dopo
			Dopo			
			Regolare il objDisk = niente
			Regolare i colDisks = niente
			Regolare il objWMIService = niente
		Altrimenti
			Per ciascuno strDrive in arrDrives
				DataList (strDrive & “formato„) = “ERRORE di WMI„
				Spazio di DataList (strDrive & “libero„) = “ERRORE di WMI„
				DataList (strDrive & “le percentuali liberare„) = “ERRORE di WMI„
			Dopo
		Concluder se
	Altrimenti
		Per ciascuno strDrive in arrDrives
			DataList (strDrive & “formato„) = “FUORI LINEA„
			Spazio di DataList (strDrive & “libero„) = “FUORI LINEA„
			DataList (strDrive & “le percentuali liberare„) = “FUORI LINEA„
		Dopo
	Concluder se
	DataList.Update
Concludere il sommergibile

Rumore metallico di funzione (strComputer)
	objShell fioco, boolCode
	Regolare il objShell = CreateObject (“WScript.Shell„)
	boolCode = objShell.Run (“rumore metallico - n 1 - w 300„ & strComputer, 0, allineare)
	Se boolCode = 0 allora
		Il rumore metallico = allinea
	Altrimenti
		Rumore metallico = falso
	Concluder se
Concludere la funzione
Altre soluzioni  
 
programming4us programming4us