temporizzazione connessione account (win xp)

[Grambo]

Ciao
ho 4 account su un pc e a me servirebbe un programma che tenga il conto dei minuti di connessione al pc di ogni account (giornaliero o mensile) e che ovviamente salvi i dati

credo che una cosa simile sia gia incorporata in windows ma non ne sono sicuro e non so dove andare a trovarla,
inoltre sto cercando un po' di aiuto su google ma non ho trovato niente

qualcuno di voi saprebbe darmi un mano?

grazie infinite

[Grambo]

se non dovesse esistere c'è qualche anima pia che magari riesce a svilupparmi il sftware in vb?

praticamente deve solo vedere che utente si è collegato a che ora si è collegato e a che ora si è scollegato e salvare il tutto in un file txt

io nn ho e non conosco il vb

plz

[Grambo]

auto plz

[fabio309]

con questo script ci siamo "quasi" a quello che vuoi fare

Const cFIL = "c:\log.txt"
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objOTF
Set objOTF = objFSO.OpenTextFile(cFIL, "ForAppend", True) 
objOTF.WriteLine("log on " & date() & " " & time())
Set objOTF = Nothing
Set objFSO = Nothing

lo salvi come .vbs e mandi in esecuzione dalle group policy
stessa cosa per il log off
ho provato e l'inconveniente e che invece di aggiungere una voce al file lo sovrascrive
vedi se riesci ad aggiustarlo

[Grambo]

Mi appare l'errore:

script: c:\prova.vbs
riga: 5
carattere: 1
errore: Tipo non corrispondente: ' OpenTextFile'
codice 800A000D
origine: errore di run-time di microsoft vbscript

ho provato a dare un occhio ma mi sembra tutto ok ma come ho gia detto nn conosco il vb

a proposito grazie per l'interessamento

[Grambo]

ok mi ci son messo e son riuscito a modificarlo ora il mio programma è

Dim fsoMyFile
Dim tsTextStream
Set fsoMyFile = CreateObject("Scripting.FileSystemObject")
Set tsTextStream = fsoMyFile.OpenTextFile("c:\prova.txt", 8, True)
tsTextStream.WriteLine ("log on" & date() & " " & time())
tsTextStream.Close
fsoMyFile.CopyFile "c:\prova.txt", "C:\Documents and Settings\igrambone\Desktop\aaa.txt", True

ma ho la necessita di sapere l'accaunt che si è collegato?? sto cercando un po' in giro ma nn riesco a trovare come si fa

grazie mille

[fabio309]

per il nome utente prova

Set owshnet = CreateObject("wscript.network")
nomeUtente = (owshnet.UserName)

[Grambo]

ho trovato questo ma non riesco a farlo funzionare mi date una mano?

Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Function GetUName() As String
'************************************************* **********************
'Func.: GetUName (SB-29/03/2000; Mod.: )
'Desc.: Restituisce l'user name d'accesso a Windows
'Par. :
'Ret. : Stringa con il nome dell'utente corrente
'************************************************* **********************
Dim sBuffer As String
Dim lSize As Long
sBuffer = Space(256)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
GetUName = Left(sBuffer, lSize - 1)
Else
GetUName = ""
End If
End Function


grazie

[Grambo]

caspita nn avevo visto la tua risposta

grazie mille funziona

[MItaly]

Al di là del fatto che il codice che hai postato (edit: mi riferisco al penultimo post di Grambo) è per VB6 e non per VBS, Windows XP Pro include già delle policy di auditing che ti consentono di registrare nel registro eventi quando un utente effettua il log-in e il log-out.
Dai un'occhiata a questa discussione.