Vraag : wijzig vb manuscript om laatste het programma geopende gebruikersbenaming of vertoningsnaam ook te worden

Ik zou aan een manuscript willen toevoegen door sungenwang

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

I zou willen een kolom met laatste krijgen het programma geopend (gebruikersbenaming of vertoningsnaam) aan dit computer

so daar ben 3 kolommen in het gebeëindigde manuscript (Computername - de Markering van de Dienst - Laatste Gebruiker)

Is openen dit het programma mogelijk met vbs die?

Thank You
" codeBody " 
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:
strSourceFile Const = „C:\computers.txt“ strDestFile Const = „C:\output.txt“ Const ForReading = 1 Reeks objFSO = CreateObject („Scripting.FileSystemObject“) Vastgestelde objSourceFile = strSourceFile objFSO.OpenTextFile (, ForReading) Vastgestelde objDestFile = objFSO.CreateTextFile (strDestFile, Waar) objDestFile.WriteLine („de Markering van de Dienst Computername“) Doe terwijl niet objSourceFile.AtEndOfStream strComputer = objSourceFile.ReadLine Als (strComputer) dan pingel objDestFile.WriteLine (strComputer & „„& GetSerial (strComputer)) Beëindig als Lijn objDestFile.Close msgbox „gedaan!“ Functie GetSerial (strComputer) Vastgestelde objWMIService = GetObject („winmgmts: “ _ & „{impersonationLevel=impersonate}! \ \“ & strComputer & „\ wortel \ cimv2“) Reeks colSMBIOS = objWMIService.ExecQuery _ („Selecteer * uit Win32_SystemEnclosure“) GetSerial = "" Voor Elke objSMBIOS in colSMBIOS GetSerial = objSMBIOS.SerialNumber Uitgang voor Daarna De Functie van het eind De functie pingelt (strComputer) Het schemerige objPing, objStatus Het vastgestelde objPing = GetObject („winmgmts: {impersonationLevel=impersonate}“). _ ExecQuery („UITGEZOCHTE Replysize VAN Win32_PingStatus WAAR adres = „“ & strComputer & „“ „) Pingel = Vals Voor Elke objStatus in het objPing Als niet IsNull (objStatus.ReplySize) dan = Waar pingelt Daarna De Functie van het eind

Antwoord : wijzig vb manuscript om laatste het programma geopende gebruikersbenaming of vertoningsnaam ook te worden

Gelieve te proberen dit.

Achting,

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:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:

strSourceFile Const = „computers.txt“
strDestFile Const = „output.csv“
Const ForReading = 1
 
Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
Vastgestelde objSourceFile = strSourceFile objFSO.OpenTextFile (, ForReading)
Vastgestelde objDestFile = objFSO.CreateTextFile (strDestFile, Waar)
objDestFile.WriteLine """ Computername "", de Markering "", de Naam """ van de Dienst "" van de Gebruiker ""
 
Doe terwijl niet objSourceFile.AtEndOfStream
	strComputer = objSourceFile.ReadLine
	Als (strComputer) dan pingel
		objDestFile.WriteLine """" & strComputer & """, """ & GetSerial (strComputer) & """, """ & GetUsername (strComputer) & """"
	Eind als
Lijn
objDestFile.Close
 
msgbox „gedaan!“
 
Functie GetSerial (strComputer)
        Vastgestelde objWMIService = GetObject („winmgmts: “ _
        & „{impersonationLevel=impersonate}! \ \“ & strComputer & „\ wortel \ cimv2“)
        'Plaats colSMBIOS = objWMIService.ExecQuery („selecteer * uit Win32_SystemEnclosure“)
        Plaats colSMBIOS = objWMIService.ExecQuery („selecteer * uit Win32_BIOS“)
        
        'GetSerial = ""
        Voor Elke objSMBIOS in colSMBIOS
			'GetSerial = objSMBIOS.SerialNumber
			GetSerial = objSMBIOS.SerialNumber
			Uitgang voor
        Daarna
De Functie van het eind
 
Functie GetUsername (strComputer)
        Vastgestelde objWMIService = GetObject („winmgmts: “ _
        & „{impersonationLevel=impersonate}! \ \“ & strComputer & „\ wortel \ cimv2“)
        Reeks colComputer = objWMIService.ExecQuery _
        („Uitgezochte Gebruikersbenaming van Win32_ComputerSystem“)
        
        'GetSerial = ""
		Voor Elke objComputer in colComputer
			GetUsername = objComputer.Username
			Uitgang voor
		Daarna
De Functie van het eind
 
De functie pingelt (strComputer)
	Het schemerige objPing, objStatus
	Het vastgestelde objPing = GetObject („winmgmts: {impersonationLevel=impersonate}“). _  
				ExecQuery („UITGEZOCHTE Replysize VAN Win32_PingStatus WAAR adres = „“ & strComputer & „“ „)  
 
	Pingel = Vals
	Voor Elke objStatus in het objPing  
		Als niet IsNull (objStatus.ReplySize) dan = Waar pingelt
	Daarna  
De Functie van het eind
Andere oplossingen  
 
programming4us programming4us