Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte svoj obľúbený úpravu textu programu ( napríklad Poznámkový blok ) .
2
deklarovať premenné ktoré majú byť použité v programe :
Option Explicit Dim FSO
, oShell , súbor , tmp
Option Explicit sily deklarácie všetkých premenných v súbore . Nemôžete použiť premennú v programe bez jeho vyhlásenia . Premenné sa používajú na ukladanie rôznych hodnôt použitých v programe . Dim deklaruje a alokuje úložný priestor pre premenné FSO , oShell , súbor , a tmp
3
nájsť cestu k dynamicky prepojovanej knižnici shell32 ( DLL ) súboru : .
file = " % windir % \\ System32 \\ Shell32.dll "
cesta je priradený k súboru premenné pomenované ktoré majú byť použité v programe .
4
Vytvorte objekt typ WScript a priradiť ju k oShell :
Set oShell = WScript.CreateObject ( " WScript.Shell " )
objekt WScript je priradený do premennej oShell pomocou príkazu Set
.
5
Rozbaľte názov súboru premennú tak , že VB skript môže analyzovať správne :
file = oShell.ExpandEnvironmentStrings ( súbor )
údajov ExpandEnvironmentStrings rozširuje názov súboru a priradí . je k názvu súboru premennej
6
Vytvorte objekt súborového systému pre prístup k systému súborov systému Windows :
Set FSO = CreateObject ( " Scripting.FileSystemObject " )
Kĺúčové slovo CreateObject vytvorí objekt súborového systému a priradí ju k fso premennej pomocou príkazu SET .
7
Skontrolujte , či súbor existuje Shell32.dll pomocou kľúčového slova FileExists . Ak sa tak nestane , skontrolujte číslo verzie pomocou GetFileVersion kľúčové slovo a uložiť ho do premennej tmp . Skontrolujte , či dĺžka stiahne číslo verzie je väčšie ako 0. pomocou kľúčového slova Ľan . Je-li dĺžka je väčšia ako 0 , vytlačiť ich na obrazovke , inak vytlačiť verziu súboru ako nedefinovaný . Ak neexistuje súbor Shell32.dll , print " Súbor nebol nájdený " a ukončiť skript :
Ak fso.FileExists ( súborov ) Potom
tmp = fso.GetFileVersion ( súbor )
If Ľan ( tmp ) > 0 Then
Wscript.echo " File " & Súbor & vbCrLf & _
" Verzia : " & tmp
inak
Wscript.echo " File " & Súbor & vbCrLf & _
" Verzia : nedefinované "
End , ak
Else
Wscript.echo " Súbor ' " & Súbor & " ' nebol nájdený "
End If
Echo kľúčové slovo sa používa pre tlač na obrazovke . vbCrLf sa kurzor na ďalší riadok . Tu , vnorené , ak je použitá slučka . Ak slučka skontroluje podmienku , a ak je podmienka pravdivá , vykoná určitú sadu príkazov , ak je podmienka false , vykoná alternatívne sadu príkazov . End If značky koniec stavu If .
8
Uložte súbor ( napríklad , checkshellver.vbs ) . Rozšírenie . Vbs znamená VBScript .