Commandes de ligne de commande (5 / 10 étapes)

Étape 5: PROP ~ attribut Checker

Maintenant en VBScript.

hors
setlocal enabledelayedexpansion

Si « %1 » == « / » ? (
écho.
echo PROP « filepath »
écho.
l’écho des attributs :
ECHO A - archivée
echo R - lecture seule
echo H - caché
écho S - système
echo C - compressé
echo T - temporaire
écho.
sortie/b
)

dans le cas contraire les existent () %1
ECHO que n’existe aucun fichier de ce nom.
écho.
sortie/b
)

la valeur "attributs = % ~ a1"

Set attrib1 =! attributs: ~ 0, 1 !
Set attrib2 =! attributs: ~ 1, 1 !
Set attrib3 =! attributs: ~ 2, 1 !
Set attrib4 =! attributs: ~ 3, 1 !
définir attrib5 =! attributs: ~ 4, 1 !
Set attrib6 =! attributs: ~ 5, 1 !
Set attrib7 =! attributs: ~ 6, 1 !
Set attrib8 =! attributs: ~ 7, 1 !
Set attrib9 =! attributs: ~ 8, 1 !
Si % attrib1 % equ d écho répertoire
Si % attrib2 % equ r écho à lecture seule
Si un écho de % attrib3 % equ archivées
Si % attrib4 % equ h écho masqué
Si % attrib5 equ s echo système fichier
Si % attrib6 % equ c echo fichier compressé
Si % attrib7 % equ o écho en mode hors connexion de fichiers
Si % attrib8 % equ t echo fichier temporaire
Si % attrib9 % equ l echo point d’analyse

écho.
sortie/b

Lancez que vous ça serait n’importe quelle commande.

' Test si elle a été exécutée correctement.
Si wscript.fullname = « C:\Windows\system32\wscript.exe » puis
WScript.echo "s’il vous plaît utiliser «"cscript /nologo prop.vbs [paramètres] » » pour appeler ce script".
WScript.Quit
fin si

Set fso = createobject("scripting.filesystemobject") ' donner accès aux fichiers.

' Test pour les arguments non valides, etc....
Si wscript.arguments.count = 0 then
usage(1)
sinon si wscript.arguments.item(0) = « /? » puis
usage(0)
Sinon, si pas fso.fileexists(wscript.arguments.item(0)) alors
usage(2)
fin si
fin si
fin si

"Faire des choses.
Set fichier = fso.getfile(wscript.arguments.item(0))
Si fichier. Attributs et 0 puis
Wscript.Echo « Aucun ensemble d’attributs. »
End If
Si fichier. Attributs, 1 puis
Wscript.Echo « Lecture seule ».
End If
Si fichier. Attributs et 2 puis
Wscript.Echo « Fichier caché ».
End If
Si fichier. Attributs et 4 puis
Wscript.Echo « Fichier système ».
End If
Si fichier. Attributs et 32 puis
Wscript.Echo « Archive bit défini. »
End If
Si fichier. Attributs et 64 puis
Wscript.Echo « Lien ou raccourci ».
End If
Si fichier. Attributs et 2048 puis
Wscript.Echo « Compressed file. »
End If

fonction usage(errorlevel)
WScript.Echo « attributs du fichier retour. »
WScript.Echo
WScript.echo "utilisation: »
WScript.echo "PROP""fichier" ""
WScript.Echo
WScript.Quit(ERRORLEVEL)
fin de fonction