Visual Basic Script para comprobar la versión del shell de Windows
1
Abra su programa de edición de texto favorito ( por ejemplo, el Bloc de notas ) .
2
Declare las variables para ser utilizado en el programa:
Option Explicit
Dim fso , oShell , archivo tmp
opción fuerza la declaración explícita de todas las variables en un archivo . No se puede utilizar una variable en el programa sin declararlo. Las variables se utilizan para almacenar valores diferentes que se utilizan en el programa. Dim declara y asigna espacio de almacenamiento para las variables OIA, oShell , archivo y tmp
3
encontrar el camino de la biblioteca de vínculos dinámicos Shell32 ( dll) : .
file = "% WINDIR % \\ System32 \\ Shell32.dll "
la ruta se asigna a la variable de archivo con el nombre que se utilizará en el programa.
4
Crear un objeto de la tipo WScript y asignarlo a oShell :
Set oShell = WScript.CreateObject ( " WScript.Shell " )
el objeto WScript se asigna a la variable oShell mediante la instrucción Set
. Página 5
Expandir la variable de nombre de archivo para que el script VB puede analizar correctamente :
archivo
= oShell.ExpandEnvironmentStrings ( archivo)
la declaración ExpandEnvironmentStrings expande el nombre del archivo y vuelve a asignar a la variable de nombre de archivo
6
Crear el objeto del sistema de archivos para acceder al sistema de archivos de Windows : .
Set fso = CreateObject ( " Scripting.FileSystemObject ")
< p> la palabra clave CreateObject crea el objeto del sistema de archivos y la asigna a la variable FSO mediante la instrucción set.
7
Compruebe si el archivo Shell32.dll con la palabra clave FileExists . Si es así , compruebe el número de versión usando la palabra clave GetFileVersion y almacenarlo en la variable tmp. Compruebe si la longitud del número de versión recuperada es mayor que 0 usando la palabra clave Len . Si la longitud es mayor que 0, imprimirlo en pantalla , de lo contrario , imprimir la versión del archivo como indefinido. Si el archivo Shell32.dll no existe , escriba " Archivo no encontrado" y poner fin a la secuencia de comandos :
Si fso.FileExists ( archivo) Luego
tmp = fso.GetFileVersion (archivo)
Si Len ( tmp ) > 0 entonces
WScript.Echo "Archivo " & archivo & vbCrLf & _
"Versión :" & tmp
Otras ventas
WScript.Echo "Archivo" y archivo y vbCrLf & _
"Version : undefined "
End if
demás
< p > WScript.Echo "Archivo " y archivos y "" no encontrado "
End If se utiliza
palabra clave Echo para imprimir en pantalla. vbCrLf lleva el cursor a la siguiente línea . Aquí, un anidadas Si se utiliza loop. Si bucle comprueba una condición y , si la condición es verdadera , se ejecuta un conjunto de declaraciones , si la condición es falsa , se ejecuta un conjunto alternativo de los estados . End If marca el final de la condición If .
8
Guarde el archivo (por ejemplo , checkshellver.vbs ) . La extensión vbs . Significa VBScript.