Cuestión : Escritura de VB para enumerar nombre del disco y tamaño y espacio libre

Hola todos,

I tienen un archivo de texto que tenga cerca de 200 nombres de servidor. ¡Necesito un vbscript leer adentro el archivo de texto y generar un informe en el tamaño físico del disco y el espacio libre para cada ayuda de server.

Please!

Thanks class= del

Respuesta : Escritura de VB para enumerar nombre del disco y tamaño y espacio libre

¡LOL! Pensé que usted puede ser que pida eso.  Tenía tan re-miro mi código, y ahora lo he hecho mucho más dinámico, donde usted necesita solamente especificar las letras de impulsión que usted quiere en arrDrives.  Usted puede agregar o restar tantas letras de impulsión como usted desea.

Respetos,

Robo.
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 déviles
arrDrives = arsenal (“C”, “D”, “E”, “F”)

Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)
Const intForReading = 1

Const = 200 adVarChar
Const MaxCharacters = 255


DataList dévil
Fijar DataList = CreateObject (“ADOR.Recordset”)
DataList.Fields.Append “servidor”, adVarChar, MaxCharacters
Para cada uno strDrive en arrDrives
	DataList.Fields.Append strDrive y “tamaño”, adVarChar, MaxCharacters
	DataList.Fields.Append strDrive y “espacio libre”, adVarChar, MaxCharacters
	DataList.Fields.Append strDrive y el “por ciento liberan”, adVarChar, MaxCharacters
Después
DataList.Open

objInputFile determinado = objFSO.OpenTextFile (strInputFile, intForReading)
Mientras que no objInputFile.AtEndOfStream
	strComputer = objInputFile.ReadLine
	Get_Free_Space_Details (strComputer)
Wend

Fijar objOutputFile = objFSO.CreateTextFile (strOutputFile, verdad)
""" del SERVIDOR del strHeader = del """
Para cada uno strDrive en arrDrives
	el strHeader = el strHeader y “, """ y strDrive y” CLASIFICAN el "", el """ y "" del ESPACIO strDrive y el “LIBRE, el """ y el """ LIBRE strDrive y” del POR CIENTO
Después
strHeader de objOutputFile.WriteLine
DataList.MoveFirst
Mientras que no DataList.EOF
	strLine = """" y DataList (“servidor”) y """"
	Para cada uno strDrive en arrDrives
		strLine = strLine y “, """ y DataList (strDrive y” tamaño ") y """, """ y espacio strDrive y “libre” de DataList () y """, """ y DataList (strDrive y” el por ciento liberar ") y """"
	Después
	strLine de objOutputFile.WriteLine
	DataList.MoveNext
Wend
DataList.Close
objOutputFile.Close

MsgBox “hecho. Ver por favor” y strOutputFile
'==============

Get_Free_Space_Details secundario (strComputer)

	DataList.AddNew
	DataList (“servidor”) = strComputer
	Si el silbido de bala (strComputer) = entonces verdad 
		En curriculum vitae del error después
		Fijar el objWMIService = GetObject (“winmgmts: ¡{impersonationLevel=impersonate}! \ \” y strComputer y “\ raíz \ cimv2”)
		Si Err.Number = 0 entonces
			Err.Clear
			En el error 0 indicado
			Para cada uno strDrive en arrDrives
				Fijar los colDisks = objWMIService.ExecQuery (“FreeSpace selecto, tamaño de Win32_LogicalDisk donde DriveType = 3 y DeviceID = “” y strDrive y “: ” ")
				Para cada objDisk en colDisks
					intFreeSpace = objDisk.FreeSpace
					intTotalSpace = objDisk.Size
					pctFreeSpace = intFreeSpace/intTotalSpace
					DataList (strDrive y “tamaño”) = redondo (intTotalSpace/1024/1024/1024, 2) y” GB "
					Espacio strDrive y “libre” de DataList () = redondo (intFreeSpace/1024/1024/1024, 2) y” GB "
					DataList (strDrive y el “por ciento liberar”) = FormatPercent (pctFreeSpace)
				Después
			Después			
			Fijar el objDisk = nada
			Fijar los colDisks = nada
			Fijar el objWMIService = nada
		
			Para cada uno strDrive en arrDrives
				DataList (strDrive y “tamaño”) = “ERROR de WMI”
				Espacio strDrive y “libre” de DataList () = “ERROR de WMI”
				DataList (strDrive y el “por ciento liberar”) = “ERROR de WMI”
			Después
		Terminar si
	
		Para cada uno strDrive en arrDrives
			DataList (strDrive y “tamaño”) = “FUERA DE LÍNEA”
			Espacio strDrive y “libre” de DataList () = “FUERA DE LÍNEA”
			DataList (strDrive y el “por ciento liberar”) = “FUERA DE LÍNEA”
		Después
	Terminar si
	DataList.Update
Terminar el submarino

Silbido de bala de la función (strComputer)
	objShell dévil, boolCode
	Fijar el objShell = CreateObject (“WScript.Shell”)
	boolCode = objShell.Run (“silbido de bala - n 1 - w 300” y strComputer, 0, verdades)
	Si boolCode = 0 entonces
		El silbido de bala = verdad
	
		Silbido de bala = falso
	Terminar si
Terminar la función
Otras soluciones  
 
programming4us programming4us