wmic SYSDRIVER get DisplayName >sysdriver.txt

wmic SYSDRIVER get DisplayName >sysdriver1.txt
fc sysdirver.txt sysdriver1.txt

cscript //NoLogo sysdriver.vbs >sysdriver.txt

VBScript code
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
strComputer = "."
Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_SystemDriver", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo objItem.DisplayName
Next