(davile @ 1.09.2008 16:16)

Abre el vbs y postea la sintasix aki lo mas seguro es que este infectado si no pasamelo por MP si te fija es una firma Generica
TROJAN-DOWLOADER .JS.genPuedes ver la sintasis del vbs atraves del Block de Notas
Saludos

Gracias por tu respuesta
El programa usa tres archivos vbs, adjunto copia de los tres..entiendo que es lo que me solicitas.
Archivo "GetCustomer.vbs"strURL = "http://crm.thesingularkitchen.com/WebServiceTSK/WebServiceTSK.asmx"
strPassword = "thiUs9uV1e7"
strLogin = "sedestsk\pedidoswinner"
strCustId = "000080005162"
strXml = "<?xml version=""1.0"" encoding=""utf-8""?>" & _
"<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
"<soap:Body>" & _
"<getCustomer xmlns=""http://tempuri.org/"">" & _
"<projectid>" & strCustId & "</projectid>" & _
"</getCustomer>" & _
"</soap:Body>" & _
"</soap:Envelope>"
Set objDom = CreateObject("MSXML2.DOMDocument")
' Load XML
objDom.async = False
objDom.loadXML strXml
Set objXML = CreateObject("MSXML2.XMLHTTP")
objXML.open "POST", strURL, False, strLogin, strPassword
objXML.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
objXML.setRequestHeader "SOAPAction", "http://tempuri.org/getCustomer"
objXML.send strXml
strXMLDoc = objXML.responseText
intRet = objXML.status
Set myFSO = CreateObject("Scripting.FileSystemObject")
Set WriteStuff = myFSO.OpenTextFile( "getCustomer_res.txt", 2, True)
WriteStuff.WriteLine( intRet )
WriteStuff.WriteLine( strXMLDoc )
WriteStuff.Close
SET WriteStuff = NOTHING
SET myFSO = NOTHING
Set objXML = Nothing
Archivo "GetNewOrderTrackingToken.vbs"strURL = "http://crm.thesingularkitchen.com/WebServiceTSK/WebServiceTSK.asmx"
strPassword = "thiUs9uV1e7"
strLogin = "sedestsk\pedidoswinner"
strProjectID = "000080005162"
strSupplierID = "GEBA"
strXml = "<?xml version=""1.0"" encoding=""utf-8""?>" & _
"<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
"<soap:Body>" & _
"<getNewOrderTrackingToken xmlns=""http://tempuri.org/"">" & _
"<projectid>" & strProjectID & "</projectid>" & _
"<supplierid>" & strSupplierID & "</supplierid>" & _
"</getNewOrderTrackingToken>" & _
"</soap:Body>" & _
"</soap:Envelope>"
Set objDom = CreateObject("MSXML2.DOMDocument")
' Load XML
objDom.async = False
objDom.loadXML strXml
Set objXML = CreateObject("MSXML2.XMLHTTP")
objXML.open "POST", strURL, False, strLogin, strPassword
objXML.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
objXML.setRequestHeader "SOAPAction", "http://tempuri.org/getNewOrderTrackingToken"
objXML.send strXml
strXMLDoc = objXML.responseText
intRet = objXML.status
Set myFSO = CreateObject("Scripting.FileSystemObject")
Set WriteStuff = myFSO.OpenTextFile( "getNewOrderTrackingToken_res.txt", 2, True)
WriteStuff.WriteLine( intRet )
WriteStuff.WriteLine( strXMLDoc )
WriteStuff.Close
SET WriteStuff = NOTHING
SET myFSO = NOTHING
Set objXML = Nothing
Archivo "GetOpenProjectsList.vbs"strURL = "http://crm.thesingularkitchen.com/WebServiceTSK/WebServiceTSK.asmx"
strPassword = "thiUs9uV1e7"
strLogin = "sedestsk\pedidoswinner"
strCompanyID = "9999"
strFirstName = "perico"
strName = ""
strXml = "<?xml version=""1.0"" encoding=""utf-8""?>" & _
"<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
"<soap:Body>" & _
"<getOpenProjectsList xmlns=""http://tempuri.org/"">" & _
"<companyid>" & strCompanyID & "</companyid>" & _
"<customerfirstname>" & strFirstName & "</customerfirstname>" & _
"<customerlastname>" & strName & "</customerlastname>" & _
"</getOpenProjectsList>" & _
"</soap:Body>" & _
"</soap:Envelope>"
Set objDom = CreateObject("MSXML2.DOMDocument")
' Load XML
objDom.async = False
objDom.loadXML strXml
Set objXML = CreateObject("MSXML2.XMLHTTP")
objXML.open "POST", strURL, False, strLogin, strPassword
objXML.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
objXML.setRequestHeader "SOAPAction", "http://tempuri.org/getOpenProjectsList"
objXML.send strXml
strXMLDoc = objXML.responseText
intRet = objXML.status
Set myFSO = CreateObject("Scripting.FileSystemObject")
Set WriteStuff = myFSO.OpenTextFile( "getOpenProjectsList_Res.txt", 2, True)
WriteStuff.WriteLine( intRet )
WriteStuff.WriteLine( strXMLDoc )
WriteStuff.Close
SET WriteStuff = NOTHING
SET myFSO = NOTHING
Set objXML = Nothing
Entiendo que esto es lo que me pides, si no fuera así por favor especificamelo. Gracias