Dim cpuInfo,fso, f
cpuInfo = ""
set moc = GetObject("Winmgmts:").InstancesOf("Win32_Processor")
for each mo in moc
cpuInfo = CStr(mo.ProcessorId)
next

set fso = CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile("processid.txt", 2, true)
f.Write(cpuInfo)
f.Close()
set f = nothing
set fso = nothing


msgbox "CPU SerialNumber is : " & cpuInfo