Programación Vbssocket
path="C:\local\sysinfo\ "
Si solo desea que este script esté en el mismo documento, elimine el apóstrofo antes de la siguiente oración.
ruta=left(WScript.ScriptFullName, instrRev(WScript.ScriptFullName, "\"))
set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Establezca colCPUs = objWMIService. instancia de(" Win32 _ Processor ")
Establecer colCaches = objWMIService. InstancesOf("Win32_CacheMemory ")
Tamaño si, FNt
SI="CPU:"
Para cada objeto en colCPUs
SI = SI ampchr(13)chr(10)" Dispositivo CPU: "; ID de dispositivo
SI = SI ampchr(13)chr(10)" CPU amp:" ltrim(objCPU.Name)
FNt=lcase(trim(objCPU.Name) )
SI = SI ampchr(13)chr(10)" Descripción de la CPU: "; Descripción
SI = SI ampchr(13)chr(10)"Fabricante: "objCPU. Fabricante
SI = SI ampchr(13)chr(10)" Especificación de interfaz: "objCPU. Diseño de socket
SI = SI ampchr(13)chr(10)"Ancho de dirección:"; Ancho y largo de la dirección. "bits"
SI = SI ampchr(13)chr(10)"ancho de datos:"; Ancho y largo de los datos. "bits"
SI = SI ampchr(13)chr(10)"voltaje de CPU"; Voltaje actual/10 amperios; " V "
SI = SI ampchr(13)chr(10)" Velocidad de frecuencia principal: "; amplificador de velocidad de reloj actual "MHz"
SI = SI ampchr(13)chr(10) "Velocidad de frecuencia externa:" ; ExtClock amp "MHz"
SI = SI ampchr(13)chr(10)" CPU cache:"
Para cada objCache en colCaches
Seleccione caso objCache . Horizontal
Caso 3
SI = SI ampchr(13)chr(10)chr(9) y amp" Tamaño de caché L1 (caché de seguimiento de caché de datos):"; MaxCacheSize amp" KB "
Caso 4
SI = SI ampchr(13)chr(10)chr(9) y amp" Tamaño de caché L2: ";objCache.
MaxCacheSize &" KB "
Caso 5
SI = SI ampchr(13)chr(10)chr(9) y amp"Tamaño de caché de nivel 3:"; MaxCacheSize amp" KB "
Finalizar selección
Luego
Luego
WScript. Echo si: WScript.quit
Fn="Intel.txt "
if instr(FNt, "amd") lt0 entonces Fn="AMD.txt "
p>
Llamar a createFolder(ruta)
set FSO = CreateObject(" scripting . file system object ")
set tfile = FSO open textfile(path). amp; FN, 8, -2)
tfile.escribir si
t archivo. Cerrar
establecer tfile=nada
Establecer FSO=nada
Subcrear carpeta (ruta)
En caso de error, continúe con el siguiente paso
Dim i
i = Instr(ruta, " \ ")
Cuando i gt0
if CreateObject(" scripting . sistema de archivos objeto "). FolderExists(Left(thePath, i)) = False Then
CreateObject(" scripting . objeto del sistema de archivos "). CreateFolder(left(thePath, i - 1))
Fin si
If InStr(Mid(thePath, i 1), "\") entonces
p>
i = i Instr(Mid(thePath, i 1), " \ ")
Otro
i = 0
Si.. , luego finalizará
Bucle
Conector final
.