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
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?
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?