Discussione conto degli accessi

[603capano]

raga intanto ciao,poi vorrei chiedere un favore....vorrei sapere se conoscete una stringa di comando o un programma che visualizzi le entrate nel sistema(ora,da quale utente,ecc)giornalmenteo di lunga durata.

grazie in anticipo

peppoz

 

[ctrl_alt_canc]

avevo postato un codice vb se lo trovo te lo ripropongo

 

[603capano]

avevo postato un codice vb se lo trovo te lo ripropongo

grazie mille sempre troppo gentile...

 

[ctrl_alt_canc]

http://www.infernet-x.com/visual-basic-t-6876-3.html#pid90166

eccolo...basta modificarlo leggermente e metterlo in esecuzione automatica e ti crea un log con le info di cui hai bisogno.

 

[603capano]

http://www.infernet-x.com/visual-basic-t-6876-3.html#pid90166

eccolo...basta modificarlo leggermente e metterlo in esecuzione automatica e ti crea un log con le info di cui hai bisogno.

come lo modifico?nn sn esperto di vb.....sorry...puoi darmi le giuste indicazioni?grazie mille

 

[ctrl_alt_canc]

vabbene...anche se sono contro questi aiuti cosi diretti

se deve essere anche "invisibile" fai cosi:

'Ctrlaltcanc Corp.
'http://ctrlaltcanccorp.altervista.org

Set GG = CreateObject( "WScript.Shell" )
user=GG.ExpandEnvironmentStrings("%UserName%")
comp=GG.ExpandEnvironmentStrings("%ComputerName%")
c = Now
Set unz = CreateObject("Scripting.FileSystemObject")
Set file = unz.OpenTextFile ("c:\Mieilog.txt", 8, True)
stringa = "Ha acceduto al PC '" & comp &"' il " & c &" l'utente '" & user &"'"
    file.WriteLine(stringa)
file.Close

 

[603capano]

vabbene...anche se sono contro questi aiuti cosi diretti

se deve essere anche "invisibile" fai cosi:

'Ctrlaltcanc Corp.
'http://ctrlaltcanccorp.altervista.org

Set GG = CreateObject( "WScript.Shell" )
user=GG.ExpandEnvironmentStrings("%UserName%")
comp=GG.ExpandEnvironmentStrings("%ComputerName%")
c = Now
Set unz = CreateObject("Scripting.FileSystemObject")
Set file = unz.OpenTextFile ("c:\Mieilog.txt", 8, True)
stringa = "Ha acceduto al PC '" & comp &"' il " & c &" l'utente '" & user &"'"
    file.WriteLine(stringa)
file.Close

scusami mi da errore di cpu...nn capisco
dice....la cpu ntvdm ha incotrato un istruzione nn valida.....e poi il codice errore..e me ne da piu di uno.

---

vabbene...anche se sono contro questi aiuti cosi diretti

se deve essere anche "invisibile" fai cosi:

'Ctrlaltcanc Corp.
'http://ctrlaltcanccorp.altervista.org

Set GG = CreateObject( "WScript.Shell" )
user=GG.ExpandEnvironmentStrings("%UserName%")
comp=GG.ExpandEnvironmentStrings("%ComputerName%")
c = Now
Set unz = CreateObject("Scripting.FileSystemObject")
Set file = unz.OpenTextFile ("c:\Mieilog.txt", 8, True)
stringa = "Ha acceduto al PC '" & comp &"' il " & c &" l'utente '" & user &"'"
    file.WriteLine(stringa)
file.Close

scusami mi da errore di cpu...nn capisco
dice....la cpu ntvdm ha incotrato un istruzione nn valida.....e poi il codice errore..e me ne da piu di uno.

niente sn un cretino, nke il tuo sito...la prime 2 stringhe...scusa il disagio....fattoooo...e scusami pero...come faccio poi a controllare cio che desidero controllare?

 

[ctrl_alt_canc]

cosa?? ma su linux o su windows??

l'hai salvato come .vbs vero? non serve fare altro...è codice visual basic script

 

[603capano]

vabbene...anche se sono contro questi aiuti cosi diretti

se deve essere anche "invisibile" fai cosi:

'Ctrlaltcanc Corp.
'http://ctrlaltcanccorp.altervista.org

Set GG = CreateObject( "WScript.Shell" )
user=GG.ExpandEnvironmentStrings("%UserName%")
comp=GG.ExpandEnvironmentStrings("%ComputerName%")
c = Now
Set unz = CreateObject("Scripting.FileSystemObject")
Set file = unz.OpenTextFile ("c:\Mieilog.txt", 8, True)
stringa = "Ha acceduto al PC '" & comp &"' il " & c &" l'utente '" & user &"'"
    file.WriteLine(stringa)
file.Close

scusami mi da errore di cpu...nn capisco
dice....la cpu ntvdm ha incotrato un istruzione nn valida.....e poi il codice errore..e me ne da piu di uno.

---

vabbene...anche se sono contro questi aiuti cosi diretti

se deve essere anche "invisibile" fai cosi:

'Ctrlaltcanc Corp.
'http://ctrlaltcanccorp.altervista.org

Set GG = CreateObject( "WScript.Shell" )
user=GG.ExpandEnvironmentStrings("%UserName%")
comp=GG.ExpandEnvironmentStrings("%ComputerName%")
c = Now
Set unz = CreateObject("Scripting.FileSystemObject")
Set file = unz.OpenTextFile ("c:\Mieilog.txt", 8, True)
stringa = "Ha acceduto al PC '" & comp &"' il " & c &" l'utente '" & user &"'"
    file.WriteLine(stringa)
file.Close

scusami mi da errore di cpu...nn capisco
dice....la cpu ntvdm ha incotrato un istruzione nn valida.....e poi il codice errore..e me ne da piu di uno.

niente sn un cretino,copiavo anke il tuo sito...la prime 2 stringhe...scusa il disagio....fattoooo...e scusami pero...come faccio poi a controllare cio che desidero controllare?

---

 

[ctrl_alt_canc]

non vedi che crea un file di log in C chiamato "mieilog.txt"?

eppoi le prime due righe sono commenti XD non dovrebbero dare errore...cmq vabbe

 

[Ak3R]

Ctrl in molte configurazioni (soprattutto se il computer è in una rete ben gestita o se c'è su vista) i programmi che non hanno privilegi di amministratore non possono scrivere nella root...

 

[ctrl_alt_canc]

a lui funge...quindi perfetto.