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
|