Questione : Scritto per controllare l'utente entrato. Se una persona differente trovasse allora il email.

Ciao,

Script per controllare l'utente entrato. Se una persona differente trovasse allora email.
I per avere una lima del txt che ha il nome della macchina ed il nome di utente. a whome la macchina è nome di allotted.
Machine; il username

I vuole uno scritto esplorare tutte le macchine in questa lima del txt ogni 4 ore. Se ci è un disadattamento allora inviare con la posta elettronica.

powershell o vbs script.

regards
Sharath
 class= del

Risposta : Scritto per controllare l'utente entrato. Se una persona differente trovasse allora il email.

Ho modificato il codice come chiesto.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

objFSO fioco, objFile, strBuffer, arrUser, strCurrentUser
Sul riassunto di errore dopo
Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)
“Sulla linea seguente pubblicare il nome di schedario ed il percorso„
Regolar objFile = objFSO.OpenTextFile (“C:\eeTesting\sharath1.txt ")
Fare fino a objFile.AtEndOfStream
	strBuffer = objFile.ReadLine
	il arrUser = ha spaccato (strBuffer, “; ")
        strCurrentUser = GetUserName (arrUser (0))
	Se arrUser <> dello strCurrentUser (1) allora
		arrUser di SendMsg (0), strCurrentUser, arrUser (1)
	Concluder se
Ciclo
objFile.Close
objFile stabilito = niente
Regolare il objFSO = niente
Sull'errore 0 di avanzamento
WScript.Quit

Funzione GetUserName (strComputer)
	objWMIService fioco, colItems, objItem, arrTemp
	Sul riassunto di errore dopo
	Const wbemFlagReturnImmediately = &h10
	Const wbemFlagForwardOnly = &h20
	Regolare il objWMIService = GetObject (“winmgmts: \ \„ & strComputer & “\ radice \ CIMV2„)
	Regolare i colItems = objWMIService.ExecQuery (“SELEZIONARE * A PARTIRE da Win32_ComputerSystem„, “DA WQL„, wbemFlagReturnImmediately + wbemFlagForwardOnly)
	Per ogni objItem nei colItems
      il arrTemp = ha spaccato (objItem.UserName, “\ ")
      GetUserName = arrTemp (1)
	Dopo
	Regolare il objWMIService = niente
	Regolare i colItems = niente
	Regolare il objItem = niente
    Sull'errore 0 di avanzamento
Funzione di conclusione

SendMsg secondario (strComputer, strUser, strOwner)
	olkApp fioco, olkMsg
	Regolare il olkApp = GetObject (, “Outlook.Application„)
	Regolare il olkMsg = olkApp.CreateItem (0)
	Con olkMsg
		“Sulla linea seguente pubblicare il email address„
		. Per = “[email protected]„
		'Sulla linea seguente pubblicare il soggetto "
		. L'oggetto = “il vostro oggetto va qui„
		“Sulla linea seguente pubblicare il testo di messaggio come voluto„
		. Il corpo = “l'utente„ & strUser & “è entrato al calcolatore„ & allo strComputer & “dove come esso è„ & lo strOwner & “'macchina di s.„
		. Trasmettere
	Concluder con
	Regolare il olkMsg = niente
	Regolare il olkApp = niente
Concludere il sommergibile
Altre soluzioni  
 
programming4us programming4us