Los VBS que utilizo son muy sencillos. No es un lenguaje de programaci�n pensado para hacer grandes cosas, tiene muchas limitaciones. Yo lo uso para hacer que los PC's ejecuten ciertas cosas que con un BAT no puedo realizar. No lo uso dentro de una web, aunque tambi�n es posible.
La programaci�n en VBS es muy simple, solo tienes que abrir un archivo de texto, pegar las instrucciones y guardarlo con extensi�n VBS. Los Windows pueden ejecutar el proceso (posteriores a W95). Para mas informaci�n sobre el lenguaje y su utilidad consulta las m�ltiples webs que hay sobre el tema.
Combinado STRPCCDM con los distintos VBS puedo hacer que el PC con la emulaci�n ejecute cosas (p.e. abrir el excel con un determinado CSV).
p.e:
AS400 CL:
STRPCO PCTA(*NO)
MONMSG
STRPCCMD PCCMD('WSCRIPT \\MYAS400\SCRIPTS\OPNEXCEL.VBS "\\MYAS400\FICHEROS\PRUEBA.CSV" ') PAUSE(*NO)
OPNEXCEL.VBS
archivo = WScript.Arguments(0)
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("EXCEL.EXE " & archivo)
MsgBox "Ya tiene los datos exportados"
Espero haberte ayudado.
Un Saludo.
Jose Vicente.
| "MELVIN ESPINOZA"
<[EMAIL PROTECTED]>
Enviado por: [EMAIL PROTECTED] 26/01/2005 19:08
|
|
me imagino que este codigo es para pagina web , yo he trabajado con VBA pero ignoro como hacerlo a traves de vbscript, si tuvieran un ejemplo mas completo abusando de su conocimiento se los agradecere
Melvin
-----Mensaje original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Jose Vicente Cercos Barres
Enviado el: Mi�rcoles, 26 de Enero de 2005 09:13 a.m.
Para: [email protected]
Asunto: Re: Conectar una ODBC pasando usuario - Contrase�a
Imagino que lo querr�s ser� acceder al AS400 desde un PC.
Si usas ADO para conectar por ODBC puedes usar una cadena de conexi�n en lugar de usar un DSN ya grabado.
Te adjunto un ejemplo en VBScript.
lobjcon.Open "Driver={Client Access ODBC Driver (32-bit)};" & _
"System=myAS400;" & _
"Uid=myUsername;" & _
"Pwd=myPassword"
if lobjcon.state <> 1 then
msgbox "no contectado", 16
else
msgbox "conectado", 64
Set lrsRecords = CreateObject("ADODB.Recordset")
lrsRecords.Open "select * from BIBLIOTECA.TABLA", lobjCoN, 2, 2, 1
Do While lrsRecords.EOF = False
MsgBox lrsRecords.FIELDS(1).Value
lrsRecords.MoveNext
Loop
lobjCoN.Close
Un Saludo.
Jose Vicente.
| [EMAIL PROTECTED] Enviado por: [EMAIL PROTECTED] 26/01/2005 09:21
|
|
Hola a todos,
Necesito saber si existe la posibilidad de hacer la conexion a una ODBC
pasando usuario - Contrase�a sin esperar a que nos pida la pantalla de
conexion.
Se que se puede hacer estableciendo en el operations navigator que conecte
con el usuaio contrase�a que ha abierto la sesion pero eso no me interesa.
Existe algun API que me permita conectar???
Gracias
Jes�s M� Arzak Capilla
Talleres de Escoriaza,S.A.(TESA)
Dpto Proceso de Datos
www.tesa.es
ADVERTENCIA/WARNING
ESTE CORREO ELECTRONICO CONTIENE INFORMACION PRIVADA Y
ESTRICTAMENTE CONFIDENCIAL. Si usted no es el destinatario del
presente mensaje no esta autorizado a leerlo, retenerlo, copiarlo o
difundirlo. Ni esta empresa ni el remitente asume ninguna responsabilidad
referente a la posible transmision de virus y es responsabilidad del
receptor realizar un escaneo del mensaje y de sus anexos (si los hubiera) .
THIS E-MAIL IS PRIVILEGED, CONFIDENTIAL AND CONTAINS PRIVATE
INFORMATION. Any reading, retention, distribution or copying of this
communication by any person other than its intended recipient is
prohibited. Neither this company nor the sender accepts any responsibility
for viruses and it is your responsibility to scan the email and attachments
(if any) .
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
