Newsgroup: it.comp.lang.visual-basic
Titolo: [VBS] Ping *nascosto*

Sto utilizzando la funzione riportata sotto per pingare alcuni PC in
rete, utilizzando il metodo Exec della WSHShell. Che voi sappiate, c'è
il modo per eseguire il comando senza far apparire la finestrella di
comando? La cosa si può fare usando il metodo Run, ma non saprei come
farlo con l'Exec.
Qualche dritta?
------------
Function fctIsAlive(strHostOrIP)
Dim objSh, objCmd, strCmd
strCmd     = "%ComSpec% /C %SystemRoot%\system32\ping.exe -n 1 " &
strHostOrIP & " | " _
           & "%SystemRoot%\system32\find.exe /c /i " & Chr(34) & "ttl="
& Chr(34)
Set objSh  = CreateObject("WScript.Shell")
Set objCmd = objSh.Exec(strCmd)
fctIsAlive = CBool(Trim(objCmd.StdOut.ReadAll))
Set objCmd = Nothing
Set objSh  = Nothing
End Function

 farlo con l'Exec.
NON penso che l'Exec abbia questa opzione adopera il run
set WshShell = CreateObject("WScript.Shell")
WshShell.Run ("%comspec% /c ping 
www.google.it
 > c:\ping.log"),0
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)
--
Fosco

"Prometeo"
poi vedi cosa ti rispondono di la' ... ma come detto
IMHO "nun se po' fa'" col exec
Exec Method
Runs an application in a child command-shell, providing access to the
StdIn/StdOut/StdErr streams.
object.Exec(strCommand)
strCommand
String value indicating the command line used to run the script. The command line should appear exactly as it would if
you typed it at the command prompt.
il sopra e [1] indica che ha le stesso potenzialita di un "start esegui ..."
se devi usare questo metodo IMHO ti conviene lanciare un file *.bat
(o il link allo stesso con l'opzione chiudi)
Remarks
The Exec method returns a WshScriptExec object, which provides status and error information about a script run with Exec
along with access to the StdIn, StdOut, and StdErr channels.
[1]The Exec method allows the execution of command line applications only.
--
Fosco

 ha scritto nel messaggio
news:dhjnkv$8ng$1...@newsread.albacom.net...


"Prometeo"
ecco dove l'avevo gia' visto
'> You can use the Exec method (new in WSH 5.6!) for this. Minor downside:
'> There is no way to hide the command window when using the Exec method.
comunque se ho capito cosa vuoi fare fai il ping con run con
output su txt   (> c:\ping.log)  poi col FSO  leggi la prima riga dello stesso
che e' diversa in caso di successo o insuccesso
al volo perche' non ho il tempo di testarlo :
set oShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
oShell.Run ("%comspec% /c ping 
www.google.it
 > c:\ping.log"),0,true
while not FSO.FileExists("c:\ping.log")
WScript.Sleep 100  ' aumenta se e' il caso
Wend
'oShell.Run"c:\ping.log"
Set oFile = fso.OpenTextFile("C:\ping.log", 1)
 sLine = oFile.ReadLine()
'   wscript.echo ( sLine)
      If InStr(LCase(sLine),"host sconosciuto.") Then
Msgbox "Nessuna connessione"
else
' quello che vuoi
end if
--
Fosco

 (tuttosuunarigasenononfungecopiaincollaunpezzopervolta)
emm : 
http://www.g2kweb.it/?3039
Esistono gli accorcia link (come il mio) :p
-- 
[Gigio2k]
Accorcia i link gratis e in modo semplice :
G2kSnipUrl : 
http://www.g2kweb.it/?3015
---> No alla CONFISCA delle moto : 
http://www.maxkava.com/moto
 <--- 

 Esistono gli accorcia link (come il mio) :p
Hai ragione :-)
li ho sempre evitati ma dovro' abituarmici
--
Fosco

 li ho sempre evitati ma dovro' abituarmici
Non per fare spam ( tanto ci guadagno nulla ) guarda qua:
http://www.g2kweb.it/?3015
scaricati la versione da integrare nel tuo browser, in pratica ti mette un
collegamento , tu navighi normale, quando vuoi abbreviare un link basta che
clikki sul collegamento e stop, con ie ti copia il link breve gia' negli
appunti, basta incollarlo dove ti pare !
-- 
-Gigio@work-
G2kSnipUrl : 
http://www.g2kweb.it/?3015
( il servizio accorcia link + Gigioso che conosciate ! )


 Fosco
Che dire? Sei gentile, competente e elargisci info senza lesinare.
Ho apprezzato e ringrazio.
Grazie anche a Umberto.

 G2kSnipUrl : 
http://www.g2kweb.it/?3015
Sai cosa mi piace del tuo ... che quando cliccki
su un link ti porta prima alla pagina che descrive
chi e cosa e dove ti sta' portando
quello che mi preoccupa sono le future ricerche su gooooogle :
Tipo = Temporaneo (Scadenza : 07/10/2005)
Non ho avuto il tempo di approfondire ma se tutti i link hanno
una scadenza la ricerca su google diventa un casino
--
Fosco

 una scadenza la ricerca su google diventa un casino
Ahhh ho appena visto che c'e' anche questa possibilita' :
Tipo = Permanente
quando ho un po' di tempo faro' un giro sul sito
--
Fosco

 Ho apprezzato e ringrazio.
ed io apprezzo che hai apprezzato :-)
sai se una cosa mi appassiona e' un piacere e non costa fatica
sul competente (anche se ringrazio) ci andrei cauto ,prendo
un po' di qua ed un po di la e provo a metterlo insieme,ed
alle volte o c*lo e tutto funziona :-)
--
Fosco

 quando ho un po' di tempo faro' un giro sul sito
si l'idea era dare ANCHE la possibilita' di creare link temporanei, ma
attualmente sto pensando di toglierlo perche' se qualcuno posta un link su
un ng ed e' temporaneo quando cerchi nei vecchi post non trovi na ceppa ! E
questo e' l'unica cosa brutta dei vari accorcia link... cmq il db e'
backuppato settimanalmente, i temporanei per ora non sono attivi ( cioe' son
tutti permanenti coi bigodini... quando ho un attimo di tempo gli do anche
una aggiustata grafica ! )


"Gigio2k [work]"
a me in passato (anche adesso a dire il vero) ha
sempre "dato fastidio" dover cliccare "su fiducia"
su un link del genere
http://snipurl.com/i6n5
dove veramente devi fidarti del postante perche'
NON hai nessun riferimento
mentre il lik normale
http://groups.google.it/group/it.comp.lang.visual-basic/browse_thread/thread/6f1140b183c8f20/c76cd901da3d6d57?q=return+c
ode&rnum=3&hl=it#c76cd901da3d6d57
ti dice gia' tutto ...
quest'ultimo fatto e quello che ancora mi dissuade maggiormente
nel servirmi e "farmi rendere simpatici" gli SnipUrl
e come gia detto la tua soluzione di far vedere dove si viene reindirizzati
e' gia una cosa che trovo, che almeno nel mio caso, potrebbe incentivarne l'uso
Ovviamente e miei 2 cent ...
--
Fosco