Command Line-opdrachten (5 / 10 stap)

Stap 5: PROP ~ attribuut supervisor

Nu in VBScript.

uitschakelen
setlocal-enabledelayedexpansion

als "%1" == "/"? (
ECHO.
ECHO PROP "filepath"
ECHO.
ECHO kenmerken:
echo A - gearchiveerd
ECHO R - alleen-lezen
ECHO H - verborgen
ECHO S - systeem
ECHO C - gecomprimeerd
ECHO T - tijdelijk
ECHO.
Exit/b
)

zoniet bestaat %1)
echo die geen bestand met dezelfde naam bestaat.
ECHO.
Exit/b
)

instellen "attrib = % ~ a1"

set attrib1 =! attrib: ~ 0, 1!
set attrib2 =! attrib: ~ 1, 1!
set attrib3 =! attrib: ~ 2, 1!
set attrib4 =! attrib: ~ 3, 1!
set attrib5 =! attrib: ~ 4, 1!
set attrib6 =! attrib: ~ 5, 1!
set attrib7 =! attrib: ~ 6, 1!
set attrib8 =! attrib: ~ 7, 1!
set attrib9 =! attrib: ~ 8, 1!
Als % attrib1% equ d echo Directory
Als % attrib2% equ r echo alleen-lezen
Als % attrib3% equ een echo gearchiveerd
Als % attrib4% equ h echo verborgen
Als % attrib5% equ s echo systeembestand
Als % attrib6% equ c echo gecomprimeerd bestand
Als % attrib7% equ o echo off line bestanden
Als % attrib8% equ t echo tijdelijk bestand
Als % attrib9% equ l echo reparsepunt

ECHO.
Exit/b

Zoals u zou een commando uitvoeren

' Test als het correct is uitgevoerd.
Als wscript.fullname = "C:\Windows\system32\wscript.exe" then
WScript.echo "Gelieve gebruik""cscript/nologo prop.vbs [parameters]" "om te roepen dit script."
WScript.Quit
eind als

Set fso = createobject("scripting.filesystemobject") ' geven toegang tot bestanden.

' Test voor ongeldige argumenten, enz...
Als wscript.arguments.count = 0 then
usage(1)
anders als wscript.arguments.item(0) = '/?' dan
usage(0)
anders als niet fso.fileexists(wscript.arguments.item(0)) dan
usage(2)
eind als
eind als
eind als

' Dingen doen.
set bestand = fso.getfile(wscript.arguments.item(0))
Als bestand. Kenmerken en 0 dan
Wscript.Echo "Geen kenmerken ingesteld."
End If
Als bestand. Kenmerken en 1 Then
Wscript.Echo "Read-only."
End If
Als bestand. Kenmerken en 2 dan
Wscript.Echo "Verborgen bestand."
End If
Als bestand. Kenmerken en 4 dan
Wscript.Echo "Systeembestand."
End If
Als bestand. Kenmerken en 32 vervolgens
Wscript.Echo "Archief bit is ingesteld."
End If
Als bestand. Kenmerken en 64 dan
Wscript.Echo "Link of snelkoppeling."
End If
Als bestand. Kenmerken en vervolgens 2048
Wscript.Echo "Gecomprimeerde bestand."
End If

functie usage(errorlevel)
WScript.echo "Return bestandskenmerken."
WScript.echo
WScript.echo "gebruik:"
WScript.echo "PROP""bestand" ""
WScript.echo
WScript.Quit(ERRORLEVEL)
beëindigen