Programación Vbssocket

Establezca la ruta al archivo txt de salida, que termine en "\"

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

.