Comandos de línea de comandos (5 / 10 paso)

Paso 5: PROP ~ atribuyen Checker

Ahora en VBScript.

de
setlocal enabledelayedexpansion

¿Si "%1" == "/"? (
echo.
Eco PROP "filepath"
echo.
Eco de atributos:
Eco A - archivado
Eco R - sólo lectura
Eco H - ocultado
Eco S - sistema
Eco C - comprimido
Eco T - temporal
echo.
salida/b
)

Si no existe () %1
echo que archivo de ese nombre No existe.
echo.
salida/b
)

conjunto "attribs = % ~ a1"

Set attrib1 =! attribs: ~ 0, 1.
Set attrib2 =! attribs: ~ 1, 1!
Set attrib3 =! attribs: ~ 2, 1!
Set attrib4 =! attribs: ~ 3, 1.
Set attrib5 =! attribs: ~ 4, 1!
Set attrib6 =! attribs: ~ 5, 1!
Set attrib7 =! attribs: ~ 6, 1.
Set attrib8 =! attribs: ~ 7, 1.
Set attrib9 =! attribs: ~ 8, 1.
Si % attrib1% equ d echo directorio
Si % attrib2% equ r eco sólo lectura
Si % attrib3% equ archivado un eco
Si % attrib4% equ h echo oculto
Si % attrib5% equ s eco archivo de sistema
Si % attrib6% equ c echo archivo comprimido
Si % attrib7% equ o echo Offline archivo
Si % attrib8% equ t echo archivo temporal
Si % attrib9% equ l echo de punto de reanálisis

echo.
salida/b

Funcionamiento sería igual cualquier comando.

' Prueba si se ha ejecutado correctamente.
Si wscript.fullname = "C:\Windows\system32\wscript.exe" then
Wscript.echo "por favor utilice""cscript /nologo prop.vbs [parámetros]" "para invocar este script."
Wscript.Quit
terminar si

Set fso = createobject("scripting.filesystemobject") ' dar acceso a los archivos.

' Prueba de argumentos no válidos, etc....
Si wscript.arguments.count = 0 then
Usage(1)
else if wscript.arguments.item(0) = "¿/?" entonces
Usage(0)
otra cosa si no fso.fileexists(wscript.arguments.item(0)) entonces
Usage(2)
terminar si
terminar si
terminar si

' Hacer cosas.
Set archivo = fso.getfile(wscript.arguments.item(0))
Si archivo. Atributos y 0 entonces
Wscript.Echo "Ningún conjunto de atributos".
End If
Si archivo. Atributos y 1 luego
Wscript.Echo "Read-only."
End If
Si archivo. Atributos y 2 entonces
Wscript.Echo "Hidden file."
End If
Si archivo. Atributos y 4 entonces
Wscript.Echo "Archivo de sistema."
End If
Si archivo. Atributos y 32 entonces
Wscript.Echo "Archive bit set".
End If
Si archivo. Atributos y 64 luego
Wscript.Echo "enlace o acceso directo.
End If
Si archivo. Atributos y 2048 entonces
Wscript.Echo "Archivo comprimido."
End If

función usage(errorlevel)
Wscript.echo "atributos de archivo."
Wscript.echo
Wscript.echo "uso:"
Wscript.echo "PROP""archivo" ""
Wscript.echo
Wscript.Quit(ERRORLEVEL)
poner fin a la función