Frage : Index, zum des angemeldeten Benutzers zu überwachen. Wenn eine andere Person dann eMail fand.

Hallo,

Script, zum des angemeldeten Benutzers zu überwachen. Wenn eine andere Person dann email.
I fand, eine txt Akte zu haben, die den Maschinennamen und den Benutzernamen hat. zum whome ist die Maschine allotted.
Machine Name; username

I wünschen einen Index alle Maschinen in dieser txt Akte alle 4 Stunden scannen. Wenn es eine Fehlanpassung dann gibt, mailen.

powershell oder vbs script.

regards
Sharath

Antwort : Index, zum des angemeldeten Benutzers zu überwachen. Wenn eine andere Person dann eMail fand.

Ich habe den Code geändert, wie verlangt.
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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

Schwaches objFSO, objFile, strBuffer, arrUser, strCurrentUser
Auf Störungs-Zusammenfassung zunächst
objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
„Auf der folgenden Linie den Dateinamen und den Weg redigieren“
objFile einstellen = objFSO.OpenTextFile („C:\eeTesting\sharath1.txt ")
Bis objFile.AtEndOfStream tun
	strBuffer = objFile.ReadLine
	arrUser = spaltete auf sich (strBuffer, „; ")
        strCurrentUser = GetUserName (arrUser (0))
	Wenn strCurrentUser <> arrUser (1) dann
		SendMsg arrUser (0), strCurrentUser, arrUser (1)
	Beenden wenn
Schleife
objFile.Close
Gesetztes objFile = nichts
objFSO einstellen = nichts
Auf Störung Goto- 0
WScript.Quit

Funktion GetUserName (strComputer)
	Schwaches objWMIService, colItems, objItem, arrTemp
	Auf Störungs-Zusammenfassung zunächst
	Const wbemFlagReturnImmediately = &h10
	Const wbemFlagForwardOnly = &h20
	objWMIService = GetObject einstellen („winmgmts: \ \“ u. strComputer u. „\ Wurzel \ CIMV2“)
	colItems = objWMIService.ExecQuery einstellen („* von Win32_ComputerSystem“, „VON WQL“ VORWÄHLEN, wbemFlagReturnImmediately + wbemFlagForwardOnly)
	Für jedes objItem in den colItems
      arrTemp = spaltete auf sich (objItem.UserName, „\ ")
      GetUserName = arrTemp (1)
	Zunächst
	objWMIService einstellen = nichts
	colItems einstellen = nichts
	objItem einstellen = nichts
    Auf Störung Goto- 0
Enden-Funktion

VorSendMsg (strComputer, strUser, strOwner)
	Schwaches olkApp, olkMsg
	olkApp = GetObject (, „Outlook.Application“) einstellen
	olkMsg = olkApp.CreateItem (0) einstellen
	Mit olkMsg
		„Auf der folgenden Linie das email address redigieren“
		. Zu = „[email protected]“
		'Auf der folgenden Linie das vorbehaltliche redigieren "
		. Thema = „Ihr Thema geht hier“
		„Auf der folgenden Linie den Mitteilungtext redigieren, wie gewünscht“
		. Körper = „der Benutzer“ u. strUser u. „wird zum Computer“ u. zum strComputer u. „angemeldet, wo als es ist“ u. strOwner u. „'s-Maschine.“
		. Senden
	Mit beenden
	olkMsg einstellen = nichts
	olkApp einstellen = nichts
Unterseeboot beenden
Weitere Lösungen  
 
programming4us programming4us