Cuestión : Necesito dar vuelta a este archivo del PHP en una hoja de balance

¿He jugado alrededor con algunos diversos acercamientos, pero ninguno está produciendo la clase de resultados que soy needing.

por ejemplo, hecho una ojeada el rel= " nofollow " del " _blank " del target= de " http://hihatwebdesign.com/Rainmaker/adm/report_student.php?id=1/report_student.xls " del href= del el Rainmaker/adm/report_student.php de http://hihatwebdesign.com/? id=1/report_student.xls. ¿Quiero dar vuelta a eso en una hoja de balance que tenga la misma clase de los colores y de fonts.

How? ¿el

ahora estoy utilizando el punto de congelación (se ata el código) y mientras que puedo conseguir los datos para aparecer, he tenido una dificultad en que I que hace lazos dentro de otras preguntas y la estética son menos que cuál soy for.

Suggestions? class= del

Respuesta : Necesito dar vuelta a este archivo del PHP en una hoja de balance

¡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