Need Help with this script

Oh man! Ad-blocking software has been detected! :'(

This website is run by the community, for the community... and it needs advertisements in order to keep running. Blocking our ads means your killing our stats!
Please disable your ad-block, or become a premium member to hide all advertisements and this notice.

it suppouse to report some hardware inventory and dumb the info in a word document, but instead i get a blank doc any idea?

On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_PnPSignedDriver")

Set objWord = CreateObject("Word.Application")

objWord.Visible = True

objWord.documents.Add

For Each objItem in colItems
Echo "Device ID: " & objItem.DeviceID
Echo "Device Name: " & objItem.DeviceName
dtmWMIDate = objItem.DriverDate
strReturn = WMIDateStringToDate(dtmWMIDate)
Echo "Driver Date: " & strReturn
Echo "Driver Provider Name: " & objItem.DriverProviderName
Echo "Driver Version: " & objItem.DriverVersion
Echo "Hardware ID: " & objItem.HardWareID
Echo "INF Name: " & objItem.InfName
Echo "Is Signed: " & objItem.IsSigned
Echo "Manufacturer: " & objItem.Manufacturer
Echo
Next

Function WMIDateStringToDate(dtmWMIDate)
If Not IsNull(dtmWMIDate) Then
WMIDateStringToDate = CDate(Mid(dtmWMIDate, 5, 2) & "/" & _
Mid(dtmWMIDate, 7, 2) & "/" & Left(dtmWMIDate, 4) _
& " " & Mid (dtmWMIDate, 9, 2) & ":" & _
Mid(dtmWMIDate, 11, 2) & ":" & Mid(dtmWMIDate,13, 2))
End If
End Function

Wscript.Echo "Complete"