'---------------------------------------------------------- ' Script de description des Hdd dans une page web ' ---------------------------------------------------------- Dim cnt dim Aff() dim Aff0() dim Aff1() dim Aff2() dim Aff3() dim Aff4() cnt = 0 Redim Aff(cnt) Redim Aff0(cnt) Redim Aff1(cnt) Redim Aff2(cnt) Redim Aff3(cnt) Redim Aff4(cnt) Select Case WScript.Arguments.Count Case 0 ' Default if none specified is local computer (".") Set objWMIService = GetObject( "winmgmts://./root/cimv2" ) Set colItems = objWMIService.ExecQuery( "Select * from Win32_ComputerSystem", , 48 ) For Each objItem in colItems strComputer = objItem.Name Next Case 1 ' Command line parameter can either be a computer name ' or "/?" to request online help strComputer = Wscript.Arguments(0) if InStr( strComputer, "?" ) > 0 Then Syntax Case Else ' Maximum is 1 command line parameter Syntax End Select Display( strComputer ) Function Display( strComputer ) On Error Resume Next Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/cimv2" ) If Err.Number Then WScript.Echo vbCrLf & "Error # " & CStr( Err.Number ) & _ " " & Err.Description Err.Clear Syntax End If On Error GoTo 0 ' Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk where MediaType=12",,48) Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk where DriveType=3",,48) For Each objItem in colItems Aff(cnt) = strComputer Aff0(cnt) = objItem.Name & vbTab Aff1(cnt) = CStr( Int( 0.5 + ( objItem.Size / 1073741824 ) ) ) Aff2(cnt) = CStr( Int( 0.5 + ( objItem.FreeSpace / 1073741824 ) ) ) Aff4(cnt) = Aff1(cnt) - Aff2(cnt) Aff3(cnt) = CStr( Int( 0.5 + ( 100 * objItem.FreeSpace / objItem.Size) ) ) & _ vbCrLf cnt = cnt + 1 Redim Preserve Aff(cnt) Redim Preserve Aff0(cnt) Redim Preserve Aff1(cnt) Redim Preserve Aff2(cnt) Redim Preserve Aff3(cnt) Redim Preserve Aff4(cnt) Next End Function ' ---------------------------------------------------------- Dim fso Set fso = WScript.CreateObject("Scripting.FileSystemObject") DestHTML = "hd.HTML" CreateHTML DestHTML Sub CreateHTML(filename) dim ts set ts=fso.CreateTextFile(filename,true) ts.writeline "<HTML>" ts.WriteLine "" ts.WriteLine " <CENTER>Affiche les informations des HDD " ts.writeline "\" ts.writeline \"---- \" ts.writeline \"" ts.writeline "Name, \" ts.writeline \"" ts.writeline "Drive, \" ts.writeline \"" ts.writeline "Size, \" ts.writeline \"" ts.writeline "Free, \" ts.writeline \"" ts.writeline "Use, \" ts.writeline \"" ts.writeline "% Free, \" ts.writeline \"\" ts.writeline \"---- \" for i = 0 to cnt ts.writeline \"" & Aff(i) & ", \" ts.writeline \"" & Aff0(i) & ", \" ts.writeline \"" & Aff1(i) & ", \" ts.writeline \"" & Aff2(i) & ", \" ts.writeline \"" & Aff4(i) & ", \" ts.writeline \"" & Aff3(i) & ", \" ts.writeline \"\" next ts.writeline " " ts.writeline " " ts.writeline " " ts.writeline " " ts.writeline " " ts.writeline " " ts.writeline " " ts.writeline " " ts.writeline " " ts.writeline " " ts.writeline " " ts.writeline " " ts.writeline "Fait le " & now & " par Pierre NAJAFI " ts.WriteLine "</CENTER>" ts.WriteLine "</HTML>" ts.close End Sub
dim fso, text, readfile, ligne set fso = CreateObject("Scripting.FileSystemObject") set readfile = fso.OpenTextFile("c:\tonfichier.txt", 1, false) do while readfile.AtEndOfStream=false 'le traitement à faire ici ' a la fin du traitement de la ligne, on lit la suivante contents = readfile.ReadLine loop readfile.close
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question'Instruction Option Explicit: Force la déclaration explicite de toutes les variables dans un script Option Explicit ' \\Declaration des variables et des objets Dim objFSO Dim sRead Dim sReadLine Dim sReadAll Dim objTextFile const ForReading = 1 Const ForWriting = 2 const ForAppending = 8 ' \\creation de l objet Fso set objFSO = CreateObject("Scripting.fileSystemObject") ' \\localisation et verification du local du fichier a etre li set objTextFile = objFSO.OpenTextFile (":\text\text0.txt", ForReading, True) objFSO.FileExists("E:\text\text0.txt") While objTextFile.AtEndOfStream <> True sRead= objTextFile.ReadLine Wend objTextFile.Close