freien Festplattenspeicher über die Kommandozeile abfragen

On Error Resume Next
Pfad = "c:\hdd.txt"  
set fso = CreateObject("Scripting.FileSystemObject")  

Const CONVERSION_FACTOR = 1048576

Const WbemAuthenticationLevelPktPrivacy = 6

strUser = InputBox("Please enter the user name: ")  
strPassword = InputBox ("Please enter the Passwort: ")  
strNamespace = "root\cimv2"  

'Wiederholt so lange Host erreichbar ist bzw nicht unbekannter host als Meldung erscheint!  
do
    strComputer = InputBox ("Please enter the name of the computer you want to connect to: ")  

    If strComputer = "" Then  
    do
        strComputer = InputBox("Please enter correct Computername: ")  

    loop until strComputer <> "" OR strComputer = False  
    End If

    'Erreichbarkeit des PC's testen - Ping==================  

    Set objShell = CreateObject("WScript.Shell")  
    strCommand = "%comspec% /c ping -n 3 -w 1000 " & strComputer & "" 'Ping ausführen  
    Set objExecObject = objShell.Exec(strCommand)
	'=======================================================  
    Do While Not objExecObject.StdOut.AtEndOfStream
        strText = objExecObject.StdOut.ReadAll()
            If Instr(strText, "Anforderung") > 0 Then  
               objshell.popup "Host " & strComputer & " nicht erreichbar!",3  
            elseif Instr(strText, "Unbekannter Host " & strComputer & ".") <> 0  then  
               objshell.popup "Host " & strComputer & " nicht erreichbar!",3  
            end if
    loop
loop while  Instr(strText, "Unbekannter Host " & strComputer & ".")<>0 OR Instr(strText, "Anforderung") > 0  
'=======================================================  

'Verbindung zum WMI Namespace herstellen================  
    Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")  
    Set objWMIService = objwbemLocator.ConnectServer (strComputer, strNamespace, strUser, strPassword)
    objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy
'=======================================================  

   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk")  

   For Each objItem In colItems
      Message = Message & ("Name: " & objItem.Name) &vbcrlf  
      Message = Message & ("FreeSpace: " & objItem.FreeSpace / CONVERSION_FACTOR & " MB") &vbcrlf  
      Message = Message & ("Size: " & objItem.Size / CONVERSION_FACTOR & " MB") &vbcrlf  
   Next

    set fsoFile = fso.CreateTextFile(Pfad, true)

    'Schreibt den Inhalt der Variablen in () in die Textdatei  
    fsoFile.WriteLine(Message)
    'TextDatei schliessen und Objekte terminieren===========  
    fsoFile.close
    set fsoFile = nothing
    set fso = nothing

Function GetWMIServices()
Set GetWMIServices = GetObject("winmgmts:" UNTERSTRICH  
& "{impersonationLevel=impersonate}!\\" & strComputer & strNamespace)  
End Function

Function GetWMIServices()
Set GetWMIServices = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & strNamespace)  
End Function

::------snipp getfreespace.bat
@echo off & setlocal enabledelayedexpansion
@for %%a in (%*) do @for /f "tokens=3" %%i in ('dir /-c %%a:^|find /i "Bytes fre"') do call :calc %%a %%i  
goto disp
:calc 
(Set "Dim=GigaByte") & (set fs_drive%1=%1) & set fs_space=%2  
set /a fs_space=%fs_space:~0,-9%+0
if %fs_space% == 0 (set /a fs_space=%2/1024) && set "Dim=KByte"  
if [%Dim%]==[KByte] if %fs_space% GTR 1024 (set /a fs_space/=1024) && set "Dim=MByte"  
if [%Dim%]==[GigaByte] if %fs_space% GTR 1024 (set /a fs_space/=1024) && set "Dim=TeraByte"   
if [%Dim%]==[GigaByte] if %fs_space% GTR 1024 (set /a fs_space/=1024) && set "Dim=PetaByte"   
set "fs_space%1=%fs_space% %dim% frei"  
goto :eof

:disp
For %%i in (%*) do echo Laufwerk !fs_drive%%i!:\ !fs_space%%i!
::------snapp getfreespace.bat

::------snipp getfreespaceMitLaufwerksprüfung.bat
@echo off & setlocal enabledelayedexpansion
@for %%a in (%*) do @for /f "tokens=3" %%i in ('dir /-c %%a: ^2^>nul^|find /i "Bytes fre"') do call :calc %%a %%i  
goto disp
:calc 
(Set "Dim=GigaByte") & (set fs_drive%1=%1) & set fs_space=%2  
set /a fs_space=%fs_space:~0,-9%+0
if %fs_space% == 0 (set /a fs_space=%2/1024) && set "Dim=KByte"  
if [%Dim%]==[KByte] if %fs_space% GTR 1024 (set /a fs_space/=1024) && set "Dim=MByte"  
if [%Dim%]==[GigaByte] if %fs_space% GTR 1024 (set /a fs_space/=1024) && set "Dim=TeraByte"   
if [%Dim%]==[GigaByte] if %fs_space% GTR 1024 (set /a fs_space/=1024) && set "Dim=PetaByte"   
set "fs_space%1=%fs_space% %dim% frei"  
goto :eof

:disp
For %%i in (%*) do if exist %%i: echo Laufwerk !fs_drive%%i!:\ !fs_space%%i!
::------snapp getfreespaceMitLaufwerksprüfung.bat

On Error Resume Next
Pfad = "c:\hdd.txt"  
set fso = CreateObject("Scripting.FileSystemObject")  

Const CONVERSION_FACTOR = 1048576
Const WbemAuthenticationLevelPktPrivacy = 6

strUser = InputBox("Please enter the user name: ")  
strPassword = InputBox ("Please enter the Passwort: ")  
strComputer = InputBox ("Please enter the Computername: ")  
strNamespace = "root\cimv2"  

'Verbindung zum WMI Namespace herstellen================  
    Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")  
    Set objWMIService = objwbemLocator.ConnectServer (strComputer, strNamespace, strUser, strPassword)
    objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy
'=======================================================  
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk")  

   For Each objItem In colItems
      Message = Message & ("Name: " & objItem.Name) &vbcrlf  
      Message = Message & ("FreeSpace: " & objItem.FreeSpace / CONVERSION_FACTOR & " MB") &vbcrlf  
      Message = Message & ("Size: " & objItem.Size / CONVERSION_FACTOR & " MB") &vbcrlf  
   Next
    set fsoFile = fso.CreateTextFile(Pfad, true)
    fsoFile.WriteLine(Message)
    fsoFile.close
    set fsoFile = nothing
    set fso = nothing

fsoFile.WriteLine(Message)

MSGBOX Message