[Iska]

Вопрос таков, а можно ли это все сгрузить в какую-либо SQL-базу? »

Это самое правильное решение.

Вот примерная болванка:

читать дальше »

Код:

Option Explicit

Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = 1

Dim objDictionary

Dim objWord
Dim objSWbemObjectEx


Set objDictionary = WScript.CreateObject("Scripting.Dictionary")

With WScript.CreateObject("WScript.Network")
	objDictionary.Add "Computer name", .ComputerName
	objDictionary.Add "User name", .UserDomain & "\" & .UserName
End With

On Error Resume Next
Set objWord = WScript.CreateObject("Word.Application")

If Err.Number = 0 Then
	On Error Goto 0
	objDictionary.Add "Microsoft Office version", objWord.Build
	objWord.Quit
	
	Set objWord = Nothing
Else
	Err.Clear
	On Error Goto 0
	objDictionary.Add "Microsoft Office version", vbNull
End If

With WScript.CreateObject("InternetExplorer.Application")
	objDictionary.Add "Internet Explorer version", WScript.CreateObject("Scripting.FileSystemObject").GetFileVersion(.FullName)
	.Quit
End With

For Each objSWbemObjectEx In WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").ExecQuery("SELECT Version FROM Win32_OperatingSystem WHERE Primary='True'")
	objDictionary.Add "OS version", objSWbemObjectEx.Version
Next

WScript.CreateObject("ADODB.Recordset").Open _
	"INSERT INTO [Sample table] (" & _
		"[DateTime], [Computer name], [User name], [OS version], [Microsoft Office version], [Internet Explorer version]" & _
	") VALUES (" & _
		"GETDATE(), " & _
		"'" & objDictionary.Item("Computer name") & "', " & _
		"'" & objDictionary.Item("User name") & "', " & _
		"'" & objDictionary.Item("OS version") & "', " & _
		"'" & objDictionary.Item("Microsoft Office version") & "', " & _
		"'" & objDictionary.Item("Internet Explorer version") & "'" & _
	")", "Provider=sqloledb;Data Source=SQL;Initial Catalog=SampleDatabase;Integrated Security=SSPI;", adOpenStatic, adLockOptimistic, adCmdText

objDictionary.RemoveAll
Set objDictionary = Nothing

WScript.Quit 0

где, «SQL» — имя SQL сервера, «SampleDatabase» — имя базы данных, «Sample table» — имя таблицы в указанной базе данных, «[DateTime], [Computer name], [User name], [OS version], [Microsoft Office version], [Internet Explorer version]» — поля указанной таблицы базы данных (я добавил кроме перечисленных Вами ещё и поле «DateTime» — дату и время внесения изменений).