[VB]script defrag O.O

[Pietro84]

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colVolumes = objWMIService.ExecQuery _
    ("Select * from Win32_Volume Where Name = 'C:\\'")

For Each objVolume in colVolumes
    Wscript.Echo "Please wait while drive " & objVolume.Name & " is defragged."
    Wscript.Echo
    errResult = objVolume.Defrag()

    If errResult = 0 Then
        Wscript.Echo "Drive " & objVolume.Name & " successfully defragged."
    Else
        Wscript.Echo "Drive " & objVolume.Name & " could not be defragged."
        Wscript.Echo "Error number " & errResult & " occurred."
        Err.Clear
    End If
   
Next

ho preso questo script da microzoz ma non funzia perchè objVolume non è dichiarato -.-"

come posso risolvere?

[oregon]

Dichiaralo ...

[Pietro84]

come lo dichiaro?

nn so le la classe sia questa Win32_Volume

[oregon]

In VBS basta

Dim objVolume

[Pietro84]

ma scusa come fa a dire che basta dim O.O

objVolume deve far parte di una classe che ha come metodo Defrag() altrimenti non funzionerà mai...

[oregon]

objVolume viene usato nella For Each e diventa una istanza degli oggetti della collection colVolumes. In quanto tale, puoi eseguire quel metodo.

Ma hai provato? Funziona? Non funziona? Hai errori?

[Pietro84]

Originariamente inviato da oregon
objVolume viene usato nella For Each e diventa una istanza degli oggetti della collection colVolumes. In quanto tale, puoi eseguire quel metodo.

Ma hai provato? Funziona? Non funziona? Hai errori?

certo che ho provato ma da errore

[oregon]

Originariamente inviato da Pietro84
certo che ho provato ma da errore

E non potevi dirmelo nel post precedente piuttosto che dire

"ma scusa come fa a dire che basta dim O.O" ...

??

L'immagine non e' possibile scaricarla, e cosi' piccola non si capisce ...

Con che cosa stai sviluppando il codice ?

E' VBS ?

E' VB6 ?

E' VB.NET ?

[LeleFT]

La sfera di cristallo non è ancora stata inventata (a meno che non sia io a non essere aggiornato).

Dire "non funziona" senza specificare null'altro non ha nessun senso, né nessuna utilità.

Postare un'immagine (senza darne nemmeno il link corretto) al posto di descrivere l'errore a volte è solo una perdita di tempo...

Oltretutto non hai specificato di quale versione di VB si tratta... aiutarti diventa piuttosto difficile, in queste condizioni.


Ciao.

[Pietro84]

non è colpa mia se imageshack nn funziona -.-


mi da codice di errore 80041010 e me lo da propio sulla riga di for each...non conosco il vb ma ad occhio non manca la dichiarazione di quella variabile...?

cmq è vb6