Jump to content

Unvollständige Variable


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Hallo Leute,

 

ich möchte gerne ein Skript schreiben, dass mich darüber informiert, wie viel freier Speicherplatz auf den Platten unserer Server ist. Das Skript soll auf meinem Notebook laufen. Ich stelle es mir in etwa so vor:

 

 

 

REM Laufwerke mappen

net use /user:domain\user \\server-1\C$ Pass

 

REM Dann freien Platz abfragen und in eine Variable schreiben:

for /f %%i in ('dir \\server-1\C$ ^|find "frei"') do @set Freierplatz=%%i

 

REM Dann den String zerhackstückeln

for /F "delims=' ' tokens=1" %%i in ("%Freierplatz%") do set sPart1=%%i

for /F "delims=' ' tokens=2" %%i in ("%Freierplatz%") do set sPart2=%%i

for /F "delims=' ' tokens=3" %%i in ("%Freierplatz%") do set sPart3=%%i

for /F "delims=' ' tokens=4" %%i in ("%Freierplatz%") do set sPart4=%%i

for /F "delims=' ' tokens=5" %%i in ("%Freierplatz%") do set sPart5=%%i

for /F "delims=' ' tokens=6" %%i in ("%Freierplatz%") do set sPart6=%%i

 

REM Und dann den Zahlenwert in eine CSV schreiben

echo %sPart3% > Freierplatz.csv

 

 

 

Mein Problem dabei ist, dass bei der Abfrage des freien Platzes (dir...) nur die Anzahl der Verzeichnisse, also das erste Textsegment, und nicht die ganze Zeile in die Variable geschrieben wird. Er macht irgendwie beim ersten Leerzeichen Schluss. Kann ich dem Compi das irgendwie abgewöhnen?

 

Eine andere Frage dabei ist, ob er später im Skript durch [delims= ] einen Leerschritt als Segmentgrenze akzeptiert.

 

Habt Ihr da Tips?

 

Dank & Gruß,

DodgerSPX

Link zu diesem Kommentar

Unter VBScript würde ich das über die Eigenschaft "FreeSpace" auslesen:

Set fs = CreateObject("Scripting.FileSystemObject")
'Laufwerk definieren, dass geprueft/geladen werden soll
Set Drive = fs.GetDrive("U:\")' in den Anfuehrungszeichen kann der Laufwerksbuchstabe getauscht werden...
'Variable definieren und von dem geladenen Laufwerk die Eigenschaft FreeSpace auslesen
free = Drive.FreeSpace
'freien speicherplatz des Laufwerks anzeigen 
MsgBox "Auf U:\ frei: " & FormatNumber(free/1024^2,2) & " MB"

Link zu diesem Kommentar

Hey blub,

 

das wäre wohl durchaus eine Möglichkeit.

Aber ich blicke ehrlich gesagt bei VBS nicht so wirklich durch.

Wie bekomme ich denn bei VBS eine Ausgabe an das Ende einer CSV-Datei angehängt?

 

Sprich wie mache in VBS einen Filehandle? Läuft das wie PHP?

 

Wie setze ich denn alternativ eine Umgebungsvariable per .VBS-Skript?

Dann könnte ich das ganze mit CLI-Mitteln so basteln, wie ich es haben möchte.

 

Dank & Gruß,

DodgerSPX

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...