Impostare password Operazioni Pianificate da VB6

martedì 03 ottobre 2006 - 13.08

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

gandalf_03_75 Profilo | Junior Member

68 messaggi | Data Invio: mar 3 ott 2006 - 13:08

Ciao a tutti ho la necessità di fare un programmino in vb6 che mi permetta di cambiare la password a tutti i job contenuti nelle operazioni pianificate.

Avreste qualche esempio o idea??

Grazie mille
Per i paurosi il futuro resterà sconosciuto, per i deboli sarà irraggiungibile, per gli incoscienti offrirà nuove opportunità.

Brainkiller Profilo | Guru

7.999 messaggi | Data Invio: mar 3 ott 2006 - 15:01

>Ciao a tutti ho la necessità di fare un programmino in vb6 che
>mi permetta di cambiare la password a tutti i job contenuti nelle
>operazioni pianificate.
>Avreste qualche esempio o idea??

Utilizza il comando schtasks.exe che serve per creare, modificare, ecc. tasks delle operazioni pianificate da command line. Da Vb6.0 lo puoi richiamare tramite Shell/ShellExecute.

Istruzioni sull'uso le trovi digitando:

schtasks.exe /?

o

schtasks.exe /change /?

Ciao

David De Giacomi | Microsoft MVP
http://blogs.dotnethell.it/david/

gandalf_03_75 Profilo | Junior Member

68 messaggi | Data Invio: mar 3 ott 2006 - 22:05

Grazie mille adesso cerchero' di capire come implementarlo
per ora l'unica cosa che ero risucito a fare era raggiungere le operazioni pianificate on questo modo ma nn riesco ad andare oltre

-------------------------------------------------------------------------------------------------------------

Private Sub Command1_Click()

Dim sa As Object
Dim vFolder, ItemFold, MyItemFolder, SchedulFold, SchedWizard, Verb As Object

Set sa = CreateObject("Shell.Application")
Set vFolder = sa.NameSpace(3)
Set ItemFold = vFolder.items

found = False
For Each MyItemFolder In ItemFold
If MyItemFolder.Name = "Operazioni pianificate" Then
Set SchedulFold = MyItemFolder.getfolder
found = True
Exit For
End If
Next
If found = False Then
End
End If

Set SchededulFoldx = SchedulFold.items

Dim i As Integer
i = 1

Dim obj

For Each items In SchededulFoldx
obj = SchededulFoldx.Item(i)
i = i + 1

Next

End Sub

-------------------------------------------------------------------------------------------------------------

Avete quache consiglio su come implementare questo esempio per cambiare la password??

Grazie ancora
Per i paurosi il futuro resterà sconosciuto, per i deboli sarà irraggiungibile, per gli incoscienti offrirà nuove opportunità.

Brainkiller Profilo | Guru

7.999 messaggi | Data Invio: mer 4 ott 2006 - 10:11

>Grazie mille adesso cerchero' di capire come implementarlo
>per ora l'unica cosa che ero risucito a fare era raggiungere
>le operazioni pianificate on questo modo ma nn riesco ad andare
>oltre

Secondo me è un approccio errato, perchè fai riferimento a oggetti Shell che vengono usati principalmente con linguaggi di scripting. Il comando che ti ho indicato è molto semplice, se apri l'help come ti ho scritto, vedi già degli esempi pronti, copi incolli, e sostituisci i parametri.

Il Shell/Execute che ti ho indicato io non è quello che stai usando ma è un comando VB6, tu gli passi un batch e lui lo esegue.
Non perderti in un bicchier d'acqua.

Ciao

David De Giacomi | Microsoft MVP
http://blogs.dotnethell.it/david/

gandalf_03_75 Profilo | Junior Member

68 messaggi | Data Invio: mer 4 ott 2006 - 13:18

Ho studiato conpiu attenzione il comando che mi avevi consigliato di usare adesso l'unica cosa e' che lo devo implementare con un form VB in cui possa settare la nuova password.

Grazie ancora
Per i paurosi il futuro resterà sconosciuto, per i deboli sarà irraggiungibile, per gli incoscienti offrirà nuove opportunità.

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !