login script met meerdere velden

Status
Niet open voor verdere reacties.

Advanm

Gebruiker
Lid geworden
24 jun 2014
Berichten
25
Hoi

Ik heb een (VBS) script gevonden die een inhoud van een form in de evetnvwr plaatst. Nu wil ik dit script aanvullen met een extra entry veld waar ze nog wat info moeten invullen.
ik heb hiervoor het volgende script gebruikt

Code:
' Display an input dialog asking the reason for a login and writes it to the event viewer with information of the user.

Const EVENT_TYPE = "Information" 'Available Values: Success, Error, Warning, Information
Const EVENT_SOURCE = "LoginAudit" 'Setting the event source requires that the script runs with administrative privileges

firstname = GetUserFirstname()
username = GetUsername()

loginReason = ""
Do While (loginReason = "")
    loginReason = InputBox("Hallo" + firstname + ", Vul a.u.b. de reden van login in:", "Login Audit")
Loop

Waarom = ""
Do While (waarom = "" )
	waarom = InputBox("waarom" ,"vul de reden in:")
Loop

eventDescription = "Gebruiker '"  & username & "' is ingelogd met de volgende reden: " & Chr(13) & Chr(13) & loginReason

Set WshShell = WScript.CreateObject("WScript.Shell")
strCommand = "eventcreate /T " & EVENT_TYPE & " /ID 100 /L Application /SO LoginAudit /D " & _
    Chr(34) & eventDescription & Chr(34) 
    
WshShell.Run strcommand

Function GetUserFirstname()
    Set objSysInfo = CreateObject("ADSystemInfo")
    Set objCurrentUser = GetObject("LDAP://" & objSysInfo.UserName)
    GetUserFirstname = objCurrentUser.givenName
End Function

Function GetUsername()
    Set objNetwork = CreateObject("Wscript.Network")
    GetUsername = objNetwork.UserName
End Function

hoe kan ik dit script uitbreiden met een extra veld wat in hetzelfde event wordt weggeschreven, heb al gegoogled maar vindt niet direct een werkende oplossing hiervoor?
 
Erg onduidelijk wat je bedoelt.
Tevens vraag je 2x hetzelfde aan de gebruiker.
Daarnaast kan je Waarom gewoon vastplakken aan LoginReason.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan