Vraag : Manuscript om de het programma geopende gebruiker te controleren. Als een verschillende persoon toen e-mail vond.

Hallo,

Script om de het programma geopende gebruiker te controleren. Als een verschillende persoon toen vond hebben email.
I een txtdossier dat de machinenaam en de gebruikersnaam heeft. aan whome is de machine naam allotted.
Machine; username

I een manuscript alle machines in dit txt aftasten indienen om de 4 u. Als er een wanverhouding toen e-mail is.

powershell of vbs script.

regards
Sharath

Antwoord : Manuscript om de het programma geopende gebruiker te controleren. Als een verschillende persoon toen e-mail vond.

Ik heb de code zoals gevraagd gewijzigd.
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:

Schemerige objFile objFSO, strBuffer, arrUser, strCurrentUser
Op Fout hervat daarna
Plaats objFSO = CreateObject („Scripting.FileSystemObject“)
„Op de volgende lijn geef het dossier uit - naam en weg“
Plaats objFile = objFSO.OpenTextFile („C:\eeTesting\sharath1.txt“)
Doe tot objFile.AtEndOfStream
	strBuffer = objFile.ReadLine
	arrUser = verdeel (strBuffer, „; “)
        strCurrentUser = GetUserName (arrUser (0))
	Als strCurrentUser <> arrUser (1) Dan
		SendMsg arrUser (0), strCurrentUser, arrUser (1)
	Eind als
Lijn
objFile.Close
Vastgestelde objFile = niets
Reeks objFSO = niets
Op Fout Goto 0
WScript.Quit

Functie GetUserName (strComputer)
	Schemerige objWMIService, colItems, objItem, arrTemp
	Op Fout hervat daarna
	Const wbemFlagReturnImmediately = &h10
	Const wbemFlagForwardOnly = &h20
	Vastgestelde objWMIService = GetObject („winmgmts: \ \“ & strComputer & „\ wortel \ CIMV2“)
	Reeks colItems = objWMIService.ExecQuery („SELECTEER * UIT Win32_ComputerSystem“, „WQL“, wbemFlagReturnImmediately + wbemFlagForwardOnly)
	Voor Elke objItem in colItems
      arrTemp = verdeel (objItem.UserName, „\“)
      GetUserName = arrTemp (1)
	Daarna
	Vastgestelde objWMIService = niets
	Reeks colItems = niets
	Reeks objItem = niets
    Op Fout Goto 0
De Functie van het eind

Sub SendMsg (strComputer, strUser, strOwner)
	Schemerige olkApp, olkMsg
	Reeks olkApp = GetObject (, „Outlook.Application“)
	Reeks olkMsg = olkApp.CreateItem (0)
	Met olkMsg
		„Op de volgende lijn geef het e-mailadres uit“
		. Aan = „[email protected]“
		'Op de volgende lijn geef het onderwerp uit "
		. Het onderwerp = „Uw Onderwerp gaat hier“
		„Op de volgende lijn geef de berichttekst als gewenst uit“
		. Het lichaam wordt = de „Gebruiker“ & strUser & „het programma geopend aan de computer“ & strComputer & „waar aangezien het“ & strOwner & „'smachine.“ is
		. Verzend
	Eind met
	Reeks olkMsg = niets
	Reeks olkApp = niets
Sub van het eind
Andere oplossingen  
 
programming4us programming4us