Podemos cambiar el nombre del disco con API pero también podemos hacerlo utilizando WMI.
objWMI = GetObject("winmgmts:\")
cCadWMI = "Select * from Win32_LogicalDisk where DeviceID = 'C:'"
oRoot = objWMI.ExecQuery(cCadWMI)
For Each oDisco in oRoot
oDisco.VolumeName = "MiDisco"
oDisco.Put_
Next
Con WMI podemos manipular las cuentas de los usuarios de Windows, en este caso vamos a mostrar cuales son.
objWMI = GetObject("winmgmts:\")
cCadWMI = "Select * from Win32_Account"
oUsers = objWMI.ExecQuery(cCadWMI)
For Each oU in oUsers
? Transform(oU.Name) + " - " + Transform(oU.Caption)
Next
Con WinXP y creo que 2000 se puede comprimir el contenido de la carpeta para que ocupe menos espacio en disco cuando la partición es NTFS... no hablo de compresión ZIP.
En este caso voy a comprimir la carpeta MIDir ... para hacer la prueba escoja un directorio y mire el tamaño que tiene y luego ejecute el código y vuelva a mirar el tamaño..... se dará cuenta que fue comprimido bastante.
objWMI = GetObject("winmgmts:\")
cCadWMI = "Select * from Win32_Directory where Name = 'c:\MiDir'"
oDir = objWMI.ExecQuery(cCadWMI)
For Each oCarpeta in oDir
oCarpeta.Compress
Next