'v7.2***************************************************** 

' File:   disk0-test.vbs 

' Autor:  dieseyer@gmx.de  

'         dieseyer.de 

' 

' Zeigt Infos zu Laufwerk C:, die von DISKPART.EXE stammen. 

'********************************************************* 

 

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl 

 

' Dim fso         : Set fso       = WScript.CreateObject("Scripting.FileSystemObject") 

Dim WSHShell    : Set WSHShell  = WScript.CreateObject("WScript.Shell") 

 

Dim Txt, Tst, i 

 

Dim oExec 

 

Const HDD = "DISK 0" 

 

  ' Größe der HDD ermitteln 

  '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

    Set               oExec = WSHShell.Exec( "diskpart.exe" )  

    Do While Not      oExec.StdOut.AtEndOfStream  

      WScript.Sleep 15 

 

                       Txt = oExec.StdOut.ReadLine 

 

           Tst = Tst & Txt & vbCRLF 

               ' MsgBox Txt & vbCRLF & vbCRLF & Tst, , "0029 :: " ' zeigt in der ersten Zeile die letzte Ausgabe  

 

      If InStr( UCase( Txt ), "COMPUTER" ) > 0 Then oExec.StdIn.Write "list disk"  & vbCRLF  

      If InStr( UCase( Txt ), "GB "      ) > 0 Then oExec.StdIn.Write "exit"       & vbCRLF : Exit Do 

 

      WScript.Sleep 15 

    Loop  

        oExec.Terminate 

    Set oExec = nothing 

 

  MsgBox Tst, , "0039 :: " ' Anwendung ist beendet 

 

    Tst = Split(Txt, " ", -1) 

 

    For i = LBound( Tst ) to UBound( Tst ) 

      If InStr( Tst(i), "GB" ) Then Txt = Tst(i-1) ' Größe der HDD in GB 

    Next 

 

            Txt = "Laufwerk C: ist " & Txt & " GB groß." 

  WSHShell.Popup Txt ,30 , "0048 :: " & WScript.ScriptName, 4096 + 256  

 

WScript.Quit