Bueno chicos!
Guscando por ahi he encontrado este script, espero que os ayude:
Código:
' These should be valid hostnames or IP addresses
arrServers = Array("NameServer01", "NameServer02", "NameServer03", "NameServer04", "NameServer05", "NameServer06", "NameServer07")
' Path to text file. May be absolute or relative to the script.
strFilePath = "freespace.csv"
On Error Resume Next
Set objFso = CreateObject("Scripting.FileSystemObject")
Set oFile = objFso.OpenTextFile(strFilePath, 2, vbTrue)
If Not IsNothing(oFile) Then
For Each strComputer In arrServers
oFile.WriteLine strComputer
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
If objWMIService Then
Set colDiskDrives = objWMIService.ExecQuery _
("Select * from Win32_PerfFormattedData_PerfDisk_LogicalDisk Where " _
& "Name <> '_Total'")
For Each objDiskDrive In colDiskDrives
' oFile.WriteLine "Drive " & objDiskDrive.Name & " on " & strComputer & " has " & objDiskDrive.FreeMegabytes & " MB (" & objDiskDrive.PercentFreeSpace & "%) Free"
oFile.WriteLine "Drive;" & objDiskDrive.Name & ";" & objDiskDrive.FreeMegabytes/1024 & ";MB;" & objDiskDrive.PercentFreeSpace & "%"
Next
Else
oFile.WriteLine "Could not connect to " & strComputer
End If
Next
Else
WScript.Echo "Could not open text file."
End If
WSCript.Quit
Este codigo vbs genera un archivo csv con los nombres de los servidores y el espacio libre para cada una de las unidades.
Funciona perfecto, excepto en un servidor mio en concreto que si lo ejecuto al final, me copia los mismos valores que el penultimo, y si lo ejecuto solo me salta que no puede conectarse. Este servidor tiene Windows Server Standard 2008. Sabéis si hay algo que habilite o deshabilite las ejecuciones de script remotas o algo por el estilo?
Gracias!