use DFPORT

implicit none
integer*4 :: i
i=system("wmic CPU get ProcessorID")
write(*,*)i
end

你是要一个纯fortran代码，还是要可以调用系统命令的程序。如果是后者，上面的程序就可以了。