Newsgroup: it.comp.aiuto
Titolo: Richiamo di file vbs

Buongiorno al NG.
Vorrei inserire in un file .vbs il richiamo ad un altro file .vbs in modo 
che venga eseguito in coda al primo.
Nello specifico vorrei aggiungere ad ogni .vbs per l'accesso a distinte 
identita' di O.E., un altro .vbs per lanciare freepops assieme ad O.E. e 
scaricarlo all'uscita.
Si possono fondere i due script in un unico file? Ho gia' provato sia ad 
inserire in coda al prima una riga di comando per lanciare il secondo, e sia 
a copincollare l'intero contenuto del secondo in coda al primo. Ma non 
funziona...
Grzie per qualsiasi risposta (anche se temo di non essermi riuscito a 
spiegare bene...).
Parag. 

 che venga eseguito in coda al primo.
Lo pui fare semplicemente richiamando un secondo vbs
set oShell = CreateObject("WScript.Shell")
oShell.run"secondo.vbs"
ma e' meglio che tu adoperi una function all'interno del primo
http://www.google.it/search?hl=it&q=function%2Bvbs&btnG=Cerca&meta=
'esempio generico di Function
'on error resume next
Set oArgs = WScript.Arguments
theFilename = oArgs(0)
FileSearchReplace(theFilename)
'This function will search for all instances of apple and replace with Ciccio.
Function FileSearchReplace(theFilename)
Const ForReading = 1, ForWriting = 2
Dim fso, f, fileContents, findString, ReplaceString
findString="apple"
replaceString="Ciccio"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(theFilename)
Set f = fso.OpenTextFile(theFilename, ForReading)
fileContents= f.ReadAll
Set f = fso.OpenTextFile(theFilename, ForWriting, True)
f.Write Replace(fileContents, findString, replaceString,1,-1,1)
End Function
Questo sotto e' l'help del WSH con numerosi esempi ( sopra il mega)
http://www.microsoft.com/downloads/details.aspx?FamilyId=01592C48-207D-4BE1-8A76-1C4099D7BBB9&displaylang=en
http://download.microsoft.com/download/winscript56/Install/5.6/W982KMeXP/EN-US/scrdoc56en.exe
(tuttosuunarigasenononfungecopiaincollaunpezzopervolta)
Download and install WSH 5.6 from here:
http://msdn.microsoft.com/downloads/list/webdev.asp
PS:
per quello che vuoi fare e' piu' indicato AutoIt anche solo l'ActiveX
che potrei adoperare all'interno dei vbs
http://www.hiddensoft.com/autoit3/
--
Fosco

"Paragallo"
PS:
in "puro" vbs (WSH)  l'unica cosa che si avvicina a quello che
vuoi fare e'  oExec ... sempre esempio generico :
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("calc")' programma principale
'Quando il programma principale termina vengono
' terninati anche i secondari
Set oExec1 = WshShell.Exec("notepad")' programma secondario
Set oExec2 = WshShell.Exec("C:\PROGRA~1\ACCESS~1\MSPAINT.EXE")' programma secondario
Set oExec3 = WshShell.Exec("Clipbrd")' programma secondario
'Set oExec3 >> ecc
WScript.Sleep 1500
WshShell.AppActivate("calcolatrice")
msgbox"prova a chiudere la calcolatrice"
'togli le tre rige sopra che servono come demo
Do While oExec.Status = 0
     WScript.Sleep 10
Loop
''WScript.Echo "status" &" >>>"& oExec.Status &"     "  &"Closed"
oExec1.Terminate()
oExec2.Terminate()
oExec3.Terminate()
--
Fosco

 identita' di O.E., un altro .vbs per lanciare freepops
Freepops a memoria ha gia' un esempio di VBS accluso
se non hai il WMI lo devi scaricare ma se cosi fosse i ti consiglio
di passare direttamente ad Autoit3
http://snipurl.com/jazg
qui trovi altri esempi VBS+OE
http://xoomer.virgilio.it/_XOOM/dfs_oe/
http://xoomer.virgilio.it/dfs_oe/PaginaOE5_06.htm
--
Fosco

 Lo pui fare semplicemente richiamando un secondo vbs (...)
Grazie Fosco! Ho applicato il primo suggerimento e ho raggiunto il mio 
scopo.
Ma provero' anche gli altri percorsi, cosi' capiro' anche qualcosa di piu' 
sul .vbs
Sei davvero davvero gentilissimo!
Par.

 sul .vbs
Si ... questo secondo me' e' adatto
(lo ricopio ripulto ma sta' lo stesso attento al LineWrap)
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("calc")' programma principale
'Quando il programma principale termina vengono
' terninati anche i secondari
Set oExec1 = WshShell.Exec("notepad")
Set oExec2 = WshShell.Exec("Clipbrd")
'Set oExec3 >> ecc
WScript.Sleep 1000
WshShell.AppActivate("calcolatrice")
msgbox"prova a chiudere la calcolatrice"
'togli le tre rige sopra che servono come demo
Do While oExec.Status = 0
     WScript.Sleep 10
Loop
oExec1.Terminate()
oExec2.Terminate()
--
Fosco

 'esempio generico di Function
per testare la function creare un txt con all'intermo
un paio di righe contenenti la parola   apple salvarlo
e trascinarlo sopra il VBS
--
Fosco

 (...)
Ciao Fosco,
premesso che ho risolto il problema col tuo primo aiuto, e che - come mi hai
successivamente segnalato - esiste uno script bell'e pronto di freepops, ho
comunque provato per pura curiosita' a testare il prog. che mi hai proposto
per far partire e far scaricare freepops e OE contemporaneamente.
Ecco come l'ho personalizzato:
------
Set WshShell = CreateObject("WScript.Shell")
 Set oExec = WshShell.Exec("C:\Programmi\Outlook Express\msimn.exe")
  Set oExec1 = WshShell.Exec("C:\Programmi\FreePOPs\freepopsd.exe")
WScript.Sleep 1000
 Do While oExec.Status = 0
  WScript.Sleep 10
Loop
oExec.Terminate()
oExec1.Terminate()
-------
Meccanicamente funziona, pero' (c'e' sempre un pero' ;o) ) freepops per fare 
il suo mestiere deve caricarsi prima di OE.
Quindi dovrei invertire la "gerarchia" di chi fa partire chi (il che non 
sarebbe un problema, basterebe accedere ad OE attraverso Feepops) ma 
soprattutto di chi fa uscire chi (e questo sarebbe un problema, perché alla 
fine si deve uscire da OE e non da freepops).
Per puro interesse "accademico", ti chiedo, tu come faresti?
Grazie ancora per l'attenzione.
Par. 

Per puro interesse "accademico", ti chiedo, tu come faresti?
io farei con
http://www.hiddensoft.com/autoit3/
--
Fosco

 Per puro interesse "accademico", ti chiedo, tu come faresti?
Set WshShell = CreateObject("WScript.Shell")
  Set oExec = WshShell.Exec("C:\Programmi\FreePOPs\freepopsd.exe")
WScript.Sleep 1500
Set oExec1 = WshShell.Exec("C:\Programmi\Outlook Express\msimn.exe")
WScript.Sleep 1000
 Do While oExec1.Status = 0
  WScript.Sleep 10
Loop
oExec.Terminate()
oExec1.Terminate()
--
Fosco

 Per puro interesse "accademico", ti chiedo, tu come faresti?
Quello che non capisco "c'era il trucco" o c'e' qualcosa
che io NON vedo
Per uno che sa smanettare abbastanza bene come te'
non era abbastanza ovvia la soluzione ?
O come detto ... mi sfugge qualcosa ?
--
Fosco

 O come detto ... mi sfugge qualcosa ?
Ciao Fosco, non ti sfugge niente: non conosco il .vbs ed ero curioso di 
sapere come si sarebbe potuto risolvere il problema.
Cosi' effettivamente si ottiene il risultato atteso (che a "comandare" 
l'avvio e la fine di FP sia OE, ma che FP si carichi prima di OE).
Per chi smanetta la soluzione sembra ovvia, per me e' stata istruttiva.
Grazie!
Par.

 Per chi smanetta la soluzione sembra ovvia, per me e' stata istruttiva.
Ahh .. perche' sai con l'eta forse pensavo di star rin**glionendo :-)
se ti interessa l'argomento ti posto un paio di link e quendo non dai cosa
fare puoi darci una occhiata :
vai subito a ( BUONO con samples completi ) che per il momento e' qui :
http://www.jsware.net/jsware/scripts.php3
Questo sotto e' l'help del WSH con numerosi esempi ( sopra il mega)
http://www.microsoft.com/downloads/details.aspx?FamilyId=01592C48-207D-4BE1-8A76-1C4099D7BBB9&displaylang=en
http://download.microsoft.com/download/winscript56/Install/5.6/W982KMeXP/EN-US/scrdoc56en.exe
(tuttosuunarigasenononfungecopiaincollaunpezzopervolta)
Download and install WSH 5.6 from here:
http://msdn.microsoft.com/downloads/list/webdev.asp
Scripts Ufficiale
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnanchor/html/scriptinga.asp
http://www.microsoft.com/italy/scripting/
http://msdn.microsoft.com/scripting/
Basics
http://www.windowsitpro.com/Articles/Index.cfm?ArticleID=16355&DisplayTab=Article
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vtoriVBScriptFundamentals.asp
http://www.microsoft.com/technet/scriptcenter/learnit.mspx
http://www.jsware.net/jsware/scripts.html
   ( BUONO con samples completi )
http://www.jsware.net/jsware/scripts.php3#samp
http://www.w3schools.com/
InIzio wsh ( samples)
http://people.freenet.de/gborn/WSHBazaar/WSH1.htm
http://www.winscripter.com/WSH/default.aspx
http://www.robvanderwoude.com/robnav.html
Windows VBScript Utilities » 
www.billsway.com/vbspage/
Windows Tweaks & Tips » 
www.billsway.com/notes_public/
T Lavedas' WSH Scripts
 
http://www.pressroom.com/~tglbatch/wshindex.html
http://people.freenet.de/gborn/WSHBazaar/WSHBazaar.htm
ADVANCED
http://www.mvps.org/scripting/rube/
Forums
http://www.visualbasicscript.com/tt.aspx?forumid=2
http://www.winscripter.com/Forums/WSH/default.aspx
http://uphold2001.brinkster.net/vbshf/forum/forums/forum-view.asp?fid=34
http://www.scriptinganswers.com/Community/DiscussionForums/tabid/154/Default.aspx
CLR SCRIPT ("script" per modo di dire .. tutta altra cosa)
http://www.clrsoftware.com/clrscript/
AutoItX
http://www.hiddensoft.com/AutoIt/
AutoItX solo dll
http://www.hiddensoft.com/cgi-bin/countdown.pl?AutoIt/AutoItX.zip
negli esempi cambia "Untitled - Notepad" in "Senza nome - Blocco note"
e "Calculator" in "Calcolatrice"
http://directory.google.com/alpha/Top/Computers/Software/Operating_Systems/Microsoft_Windows/
Programming/Windows_Script_Host/
alll vario
http://keithdevens.com/programming
script blocking
http://www.symantec.com/avcenter/venc/data/win.script.hosting.html
--
Fosco

 (..............)
Grazie! E' proprio questo il modo a cui fcevo riferimento. Il materiale e'
vasto, ci passero' il prossimo w.e.
Par.