Logg den tilgjengelige mengden ledig diskplass til en fil på daglig basis

Introduksjon

Følgende VBScript vil logge ledig harddiskplass (konsolidert) informasjon til en loggfil. Du kan konfigurere dette skriptet til å kjøre fra Windows. Oppstart eller enda bedre, ved å bruke Planlagt oppgave, for å kjøre den på daglig basis. De. informasjon vil bli lagret i en fil kalt FreeSpace.txt på skrivebordet. Du kan. endre banen tilsvarende hvis du vil.

Her er manuset

'FreeSpaceInfo.vbs. - 2. september 2005
'Forfatter: Ramesh Srinivasan
'Nettsted: https://www.winhelponline.com/xp
«Logger informasjonen om ledig harddiskplass til en fil.
'Kan kjøres som en planlagt oppgave eller plasseres i oppstartsmappen.

Alternativ eksplisitt
Dim iSpc, strComputer, objWMIService
Dim fso, fsHandle, MyShell, LogFileName, colItems, objItem
Sett MyShell = CreateObject("Wscript. Shell")
Sett fso = Wscript. CreateObject("Skript. FilesystemObject")
LogFileName= MyShell. SpecialFolders("Desktop") & "\FreeSpace.txt"
sett fsHandle = fso. OpenTextFile (LogFileName, 8,True)

strComputer = "."
Sett objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Sett colItems = objWMIService. ExecQuery _
("Velg * Fra Win32_LogicalDisk hvor DriveType = 3")

For hver gjenstand i kolli
'Hent ledig plass og konverter fra uint64
iSpc = cDbl (iSpc) + cDbl (objItem. Ledig plass)
Neste

iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= iSpc/1024
iSpc= FormatNumber (iSpc, 1)

'For å fange dato og klokkeslett, bruk "Nå"-funksjonen. i stedet for "dato"
fsHandle. Writeline Date & " -- " & iSpc & " GB ledig plass"
fsHandle. Skriv tomme linjer 1
fsHandle.close
sett MyShell = Ingenting
sett fso = Ingenting

Kopier linjene ovenfor til Notisblokk, og lagre filen som "FreeSpaceInfo.vbs" (med. sitater). Du kan deretter plassere dette skriptet i Windows Startup-mappen, eller konfigurere. skriptet som skal kjøres med Task Scheduler på daglig basis.

For å fange informasjon om ledig plass for hver stasjon, i stedet for en. konsolidert figur, bruk dette skriptet:

'FreeSpaceInfo2.vbs - 3. september 2005
'Forfatter: Ramesh Srinivasan
'Nettsted: https://www.winhelponline.com/xp
«Logger informasjonen om ledig harddiskplass til en loggfil.
'Kan kjøres som en planlagt oppgave eller plasseres i oppstartsmappen.

fsHandle. Skrivelinjedato
fsHandle. Skriv tomme linjer 1
strComputer = "."
Sett objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Sett colItems = objWMIService. ExecQuery _
("Velg * Fra Win32_LogicalDisk hvor DriveType = 3")

For hver gjenstand i kolli
'Hent ledig plass og konverter fra uint64
iSpc = cDbl (objItem. Ledig plass)
fsHandle. Skrivelinjeobjekt. Enhets-ID og " - " _
& FormatiSpc (iSpc) & "GB gratis"
Neste

Funksjon FormatiSpc (intSpace)
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace = intSpace/1024
intSpace= FormatNumber (intSpace, 1)
FormatiSpc = intSpace
avslutte funksjon

fsHandle. Skriv tomme linjer 2
fsHandle.close
sett MyShell = Ingenting
sett fso = Ingenting