Frage : vb Index ändern, um zuletzt angemeldetes username auch zu erhalten oder Namen anzuzeigen

Ich möchte einem Index hinzufügen, der durch sungenwang

http://www.experts-exchang e.com/Prog ramming/Languages/Visual_Basic/VB_Script/Q_23324842.html

I verursacht, möchte eine Spalte mit dem letzten erhalten angemeldet (username-oder Anzeigenname) zu diesem computer

so dort bin 3 Spalten im fertigen Index (Computerbezeichnung - Service-Umbau - letzter Benutzer-LOGON)

Is dieses, das mit vbs möglich ist?

Thank You 
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:

Const strSourceFile = „C:\computers.txt“
Const strDestFile = „C:\output.txt“
Const ForReading = 1
 
objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
objSourceFile einstellen = objFSO.OpenTextFile (strSourceFile, ForReading)
objDestFile einstellen = objFSO.CreateTextFile (strDestFile, zutreffend)
objDestFile.WriteLine („Computerbezeichnung-Service-Umbau“)
 
Tun während nicht objSourceFile.AtEndOfStream
        strComputer = objSourceFile.ReadLine
        Wenn Klingeln (strComputer) dann
            objDestFile.WriteLine (strComputer u. „„u. GetSerial (strComputer))
        Beenden wenn
Schleife
objDestFile.Close
 
msgbox „erfolgt!“
 
 
Funktion GetSerial (strComputer)
        objWMIService = GetObject einstellen („winmgmts: “ _
        u. „{impersonationLevel=impersonate}! \ \“ u. strComputer u. „\ Wurzel \ cimv2“)
        colSMBIOS = objWMIService.ExecQuery _ einstellen
        („* von Win32_SystemEnclosure vorwählen“)
        
        GetSerial = ""
        Für jedes objSMBIOS im colSMBIOS
                GetSerial = objSMBIOS.SerialNumber
                Für herausnehmen
        Zunächst
Enden-Funktion
 
 
Funktions-Klingeln (strComputer)
	Schwaches objPing, objStatus
	Gesetztes objPing = GetObject („winmgmts: {impersonationLevel=impersonate} "). _  
				ExecQuery („AUSERWÄHLTES Replysize VON Win32_PingStatus WO Adresse = „“ u. strComputer u. „“ ")  
 
	Klingeln = falsch
	Für jedes objStatus beim objPing  
		Wenn nicht IsNull (objStatus.ReplySize) dann Klingeln = ausrichten
	Zunächst  
Enden-Funktion

Antwort : vb Index ändern, um zuletzt angemeldetes username auch zu erhalten oder Namen anzuzeigen

Dieses bitte versuchen.

Respekt,

Rob.
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:
53:
54:
55:
56:

Const strSourceFile = „computers.txt“
Const strDestFile = „output.csv“
Const ForReading = 1
 
objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
objSourceFile einstellen = objFSO.OpenTextFile (strSourceFile, ForReading)
objDestFile einstellen = objFSO.CreateTextFile (strDestFile, zutreffend)
objDestFile.WriteLine """ Computerbezeichnung "", "" Service-Umbau "", "" Benutzername """
 
Tun während nicht objSourceFile.AtEndOfStream
	strComputer = objSourceFile.ReadLine
	Wenn Klingeln (strComputer) dann
		objDestFile.WriteLine """" u. strComputer u. """, """ u. GetSerial (strComputer) u. """, """ u. GetUsername (strComputer) u. """"
	Beenden wenn
Schleife
objDestFile.Close
 
msgbox „erfolgt!“
 
Funktion GetSerial (strComputer)
        objWMIService = GetObject einstellen („winmgmts: “ _
        u. „{impersonationLevel=impersonate}! \ \“ u. strComputer u. „\ Wurzel \ cimv2“)
        'colSMBIOS = objWMIService.ExecQuery einstellen („* von Win32_SystemEnclosure vorwählen“)
        colSMBIOS = objWMIService.ExecQuery einstellen („* von Win32_BIOS vorwählen“)
        
        'GetSerial = ""
        Für jedes objSMBIOS im colSMBIOS
			'GetSerial = objSMBIOS.SerialNumber
			GetSerial = objSMBIOS.SerialNumber
			Für herausnehmen
        Zunächst
Enden-Funktion
 
Funktion GetUsername (strComputer)
        objWMIService = GetObject einstellen („winmgmts: “ _
        u. „{impersonationLevel=impersonate}! \ \“ u. strComputer u. „\ Wurzel \ cimv2“)
        colComputer = objWMIService.ExecQuery _ einstellen
        („Auserwähltes username von Win32_ComputerSystem“)
        
        'GetSerial = ""
		Für jedes objComputer im colComputer
			GetUsername = objComputer.Username
			Für herausnehmen
		Zunächst
Enden-Funktion
 
Funktions-Klingeln (strComputer)
	Schwaches objPing, objStatus
	Gesetztes objPing = GetObject („winmgmts: {impersonationLevel=impersonate} "). _  
				ExecQuery („AUSERWÄHLTES Replysize VON Win32_PingStatus WO Adresse = „“ u. strComputer u. „“ ")  
 
	Klingeln = falsch
	Für jedes objStatus beim objPing  
		Wenn nicht IsNull (objStatus.ReplySize) dann Klingeln = ausrichten
	Zunächst  
Enden-Funktion
Weitere Lösungen  
 
programming4us programming4us