2 pagine in totale: <<Indietro 1 [2]
Si dichiarano e valorizzano due variabili che serviranno a fornire il percorso dei file dei comandi.
<%
Dim PercorsoFileXutente, PercorsoFileXgruppo
PercorsoFileXutente = "C:\vostropercorso\NuovoUtente.txt"
PercorsoFileXgruppo = "C:\vostropercorso\GruppoXutente.txt"
%>Vengono adesso creati, se non esistono già, aperti e scritti i due file di testo per Addusers e Usrtogrp.
<%
Dim FileUtente
Set FileUtente = FileComandi.OpenTextFile (PercorsoFileXutente, 2, True)
FileUtente.WriteLine "[User]"
FileUtente.Writeline login & "," & nomeCompleto & "," & passwd & ",Descrizione"
FileUtente.Writeline ""
FileUtente.close
Dim FileGruppo
Set FileGruppo = FileComandi.OpenTextFile (PercorsoFileXgruppo, 2, True)
FileGruppo.WriteLine "DOMAIN: VOSTRODOMINIO"
FileGruppo.Writeline "GLOBALGROUP: " & group
FileGruppo.Writeline ""
FileGruppo.Writeline login
FileGruppo.close
%>A questo punto entra in gioco l'ASPExec tramite il quale vengono avviati i due programmi fornendo anche gli opportuni parametri.
<%
Dim Esegui, perDebugging
Set Esegui = Server.CreateObject("ASPExec.Execute")
Esegui.Application = "C:\vostropercorso\AddUsers.exe"
Esegui.Parameters = "/c C:\vostropercorso\NuovoUtente.txt \\VOSTROSERVER /p:e"
' la variabile perDebugging è utilizzabile per verificare l'esecuzione in fase
' di testing
perDebugging = Esegui.ExecuteDosApp
response.write perDebugging & "<hr>"
' la riga precedente mostrerà informazioni utili sull'esecuzione di AddUsers
Esegui.Application = "C:\vostropercorso\Usrtogrp.exe"
Esegui.Parameters = "C:\vostropercorso\GruppoXutente.txt"
perDebugging = Esegui.ExecuteDosApp
response.write perDebugging & "<hr>"
' la riga precedente mostrerà informazioni utili sull'esecuzione di Usrtogrp
%>Come buona norma, vengono infine annullate le istanze degli oggetti.
<%
Set Esegui = nothing
Set FileGruppo = nothing
Set FileUtente = nothing
Set FileComandi = nothing
%>
<% end if %>Tirando le somme
Con poche righe di codice si ha dunque la possibilità di implementare una soluzione complessa che in altri modi potrebbe richiedere competenze e sforzi ben diversi.
Se si ha inoltre la pazienza di soffermarsi sulle caratteristiche e le potenzialità dei protagonisti di questo articolo (Addusers, Usrtogrp e Resource Kit da una parte e oggetti integrati e aggiuntivi - quali il FileSystemObject e l'ASPexec - dall'altra) si avrà la chiara percezione di lavorare con un linguaggio non solo capace di generare carrelli della spesa per l'e-commerce o pagine web database-driven, ma anche ben adattabile alle esigenze di amministrazione di sistema e, tutto sommato, semplice da utilizzare.
2 pagine in totale: <<Indietro 1 [2]
Attenzione: Questo articolo contiene un allegato
Contenuti dell'articolo
Aggiungi un nuovo commento »»»
Per inserire un commento, devi registrarti alla nostra community.
Difficoltà
Stampa 
Download
