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

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 !!

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 !!!!!

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, no codigo que você me enviu, consigo criar uma variavel para que guarde todo desse resultado 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. É isso que estou precisando. Tomara que você entenda, mas tentei ser simples.