program serial
implicit none

    character(10), parameter::outfile = "serial.txt"
    
    character(len=40)::ignore, results

    call get_serial("diskdrive", outfile)
    
    ! Load in results
    open(unit=100, file="serial.txt", status="old")
    read(100, *) ignore
    read(100, *) results
    
    print *, "Hard disk serial #: ", trim(results)
    close(100)
    
    call get_serial("bios", outfile)
    
    ! Load in results
    open(unit=100, file="serial.txt", status="old")
    read(100, *) ignore
    read(100, *) results
    
    print *, "Bios serial #: ", trim(results)
    close(100)
    
    call unlink(outfile)
    
    contains
    
    subroutine get_serial(serialid, finalfile)
    implicit none    
    
    character(*), intent(in)::serialid
    character(*), intent(in)::finalfile
    
    character(128)::serialcmd
    
        serialcmd = "wmic "//&
                    trim(serialid)//&
                    " get serialnumber > unicode.txt && type unicode.txt > "//&
                    trim(finalfile)
        
        call execute_command_line(trim(serialcmd))
        
        call unlink("unicode.txt")
    
    end subroutine get_serial
end program serial