Inserção De Dados No Sql Server Através Do Vbs

[Estag]

Bom vou tentar explicar:

Tenho esse scrpt:

On Error Resume Next

dim strcomputer

Set objDictionary = CreateObject("Scripting.Dictionary")

objDictionary.Add "servidor", ""

objDictionary.Add "servidor", ""

For Each strcomputer in objDictionary

On Error Resume Next

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)

For Each objItem in colItems

wscript.echo "**************** " & strcomputer & " **************"

Wscript.Echo objItem.Caption & " - " & objItem.CSDVersion & " - Version: " & objItem.Version & " (" & objItem.WindowsDirectory & ")"

Next

On Error Resume Next

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk",,48)

For Each objItem in colItems

Wscript.Echo objItem.Caption & " - " & objItem.Description & " - [" & objItem.VolumeName & "] - (" & objItem.Size & " bytes)" & " - " & " FreeSpace: " & objItem.FreeSpace & " Bytes "

Next

On Error Resume Next

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor",,48)

For Each objItem in colItems

Wscript.Echo objItem.DeviceID &" - "& objItem.Name &" - "& objItem.Description &" - "& objItem.Manufacturer &" - "& objItem.MaxClockSpeed & " MHz"

Next

On Error Resume Next

Set objWMIService = GetObject("winmgmts:\\" & strcomputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalMemoryConfiguration",,48)

For Each objItem in colItems

Wscript.Echo"TotalPhysicalMemory: " & objItem.TotalPhysicalMemory & " Bytes "

Next

Next

O resultado desse script, quero inserir em um campo chamado rec_descrição no SQL, ou seja, preciso criar uma variavel que pegue todo esse resultado e guarde. E essa mesma variavel possa ser colocada no codigo de inserção para que todo o resultado da varialvel apareça no banco de dados. Mas tudo isso tem que ser via script, pois o script de conexao e inserção já tenho, só me falta essa parte

Tomara que vocês entendam, mas tentei ser simples.

mais uma vez obrigado a todos !!!!!

[Graymalkin]

Não bastaria você pegar tudo que é escrito através de Wscript.Echo e armazenar em uma variável string? No final você teria aquele texto todo na string, não?

Abraços,

Graymalkin

[Estag]

Não, no lugar do Wscript.Echo é onde que eu quero criar a varialvel para receber os valores e nessa variavel colocar no codigo de INSERT para que no banco de dados apareça todo o resultado.

Obrigado !!

[Graymalkin]

Não, no lugar do Wscript.Echo é onde que eu quero criar a varialvel para receber os valores e nessa variavel colocar no codigo de INSERT para que no banco de dados apareça todo o resultado.

E foi *exatamente* isso que eu falei... :huh: Dê uma lida novamente no meu post acima. Mas, se você já sabe o que precisa fazer, qual é exatamente a sua dúvida?

Abraços,

Graymalkin

[Estag]

A minha duvida é, como que posso fazer pasra que esse resultado apareça na tabela do banco de dados. Por causa que já tenho o codigo com o insert mas na tabela quando roda, não aparece nada.

Esse é o codigo, eu mudei mas é p\ fazer a mesma função

On Error Resume Next

Const adOpenStatic = 3

Const adLockOptimistic = 3

dim strcomputer

dim registro, reg1

Set objDictionary = CreateObject("Scripting.Dictionary")

Set objRecordSet = CreateObject("ADODB.Recordset")

Set objConnection = CreateObject("ADODB.Connection")

objDictionary.Add "servidor1", ""

objDictionary.Add "servidor2", ""

For Each strcomputer in objDictionary

On Error Resume Next

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)

For Each objItem in colItems

wscript.echo "**************** " & strcomputer & " **************"

reg1 = objItem.Caption & " - " & objItem.CSDVersion & " - Version: " & objItem.Version & " (" & objItem.WindowsDirectory & ")"

wscript.echo "reg1 = " & reg1 & "#"

objRecordSet.MoveFirst

Next

regn = "INSERT into recurso values (1,0,'0','" & strcomputer & "','" & reg1 & "', 1, '20060420')"

wscript.echo "regn = "& regn

objConnection.Open _

"Provider=SQLOLEDB;Data Source=em01ats2;" & _

"Trusted_Connection=Yes;Initial Catalog=Embraco_DRP;" & _

"User ID=' ';Password=' ';"

Wscript.Echo registro.objRecordSet.Open

objRecordSet.Open regn, _

objConnection, adOpenStatic, adLockOptimistic, registro

wscript.echo "fim"

Wscript.Echo Catalog

Next

[Graymalkin]

Retirar esse...

On Error Resume Next

... do começo e roda o script para você ver se ocorre algum erro (provavelmente deve estar ocorrendo). A linha acima diz para ignorar qualquer erro, então desta maneira você só diminui as chances de encontrar o problema (uma vez quando o erro ocorre ele te diz onde é).

Abraços,

Graymalkin