bsharath
asked on
Any good idea's on a FeedBack form that can be sent to all users and when entered it would be updated on a excel file
Hi,
Any good idea's on a FeedBack form that can be sent to all users and when entered it would be updated on a excel file.So that checking them would be easy.
I have a HTA in mind if anyone can helpon creating or a better option is invited.
Regards
Sharath
Any good idea's on a FeedBack form that can be sent to all users and when entered it would be updated on a excel file.So that checking them would be easy.
I have a HTA in mind if anyone can helpon creating or a better option is invited.
Regards
Sharath
ASKER
A hta file that has all the options.Like.
Username
Managername
Designation
What they think about the support.
Time taken for a solution.So on....
So when then user submits the hta.
It should write the data to a individual txt files.Which later i can combine to a xls file.Which would be easy to read the rating and all details in a row wise format.
Username
Managername
Designation
What they think about the support.
Time taken for a solution.So on....
So when then user submits the hta.
It should write the data to a individual txt files.Which later i can combine to a xls file.Which would be easy to read the rating and all details in a row wise format.
Sharath, we made a similar HTA here:
https://www.experts-exchange.com/questions/22799369/Need-help-on-this-Hta-file.html
so I think we could modify that to write to the text files, then you can combine those later.....which I think you already have a script for....
Regards,
Rob.
https://www.experts-exchange.com/questions/22799369/Need-help-on-this-Hta-file.html
so I think we could modify that to write to the text files, then you can combine those later.....which I think you already have a script for....
Regards,
Rob.
ASKER
Yes Rob..This is the same type i was talking about on the above post.If the same can be modifies with some radio button categories that write to the file it would be great.
ASKER
Rob & Chandru
Any help with these posts..
https://www.experts-exchange.com/questions/22914099/Move-Mailboxes-from-one-Storage-to-another-storage.html
https://www.experts-exchange.com/questions/22941119/Hta-file-that-gets-the-users-from-members-Need-the-Hta-to-even-fetch-Root-Domain-groups.html
https://www.experts-exchange.com/questions/22938501/Sort-all-the-users-in-the-file-according-to-the-Mailbox-store-mentioned-in-the-script.html
https://www.experts-exchange.com/questions/22939055/Create-50-users-with-anyname-and-onnect-the-mailboxes-that-do-not-have-a-ntlogin.html
https://www.experts-exchange.com/questions/22939309/Create-groups-in-a-specific-OU-with-all-combination-types.html
Any help with these posts..
https://www.experts-exchange.com/questions/22914099/Move-Mailboxes-from-one-Storage-to-another-storage.html
https://www.experts-exchange.com/questions/22941119/Hta-file-that-gets-the-users-from-members-Need-the-Hta-to-even-fetch-Root-Domain-groups.html
https://www.experts-exchange.com/questions/22938501/Sort-all-the-users-in-the-file-according-to-the-Mailbox-store-mentioned-in-the-script.html
https://www.experts-exchange.com/questions/22939055/Create-50-users-with-anyname-and-onnect-the-mailboxes-that-do-not-have-a-ntlogin.html
https://www.experts-exchange.com/questions/22939309/Create-groups-in-a-specific-OU-with-all-combination-types.html
Sharath,
I think you are in the process of automating the whole AD......
I will give read throught the questions and will let you know
regards
Chandru
I think you are in the process of automating the whole AD......
I will give read throught the questions and will let you know
regards
Chandru
Try this:
<head>
<title>Support Survey</title>
<HTA:APPLICATION
APPLICATIONNAME="Support Survey"
BORDER="thin"
SCROLL="no"
SINGLEINSTANCE="yes"
WINDOWSTATE="normal"
>
</head>
<script language="VBScript">
' Support Survey.hta
' https://www.experts-exchange.com/questions/22942348/Any-good-idea's-on-a-FeedBack-form-that-can-be-sent-to-all-users-and-when-entered-it-would-be-updated-on-a-excel-file.html
' Global variable to hold the path to the text files
' they are defined here to be global, but are assigned
' values in the Window_OnLoad procedure
strTextLogPath = ""
strLogFile = ""
Sub Window_OnLoad
intWidth = 800
intHeight = 600
Me.ResizeTo intWidth, intHeight
Me.MoveTo ((Screen.Width / 2) - (intWidth / 2)),((Screen.Height / 2) - (intHeight / 2))
'cbo_building.Style.Width = 180
'cbo_floor.Style.Width = 180
Set objNetwork = CreateObject("WScript.Netw ork")
txt_machinename.Value = objNetwork.ComputerName
' This line gets the path from the currently running directory of this HTA
strTextLogPath = Mid(Replace(Replace(docume nt.URL, "file://", ""), "%20", " "), 1, InStrRev(Replace(Replace(d ocument.UR L, "file://", ""), "%20", " "), "\"))
If Right(strTextLogPath, 1) <> "\" Then strTextLogPath = strTextLogPath & "\"
' This line appends username.txt to that path
strLogFile = strTextLogPath & objNetwork.UserName & ".txt"
' This retrieves the user name for the user
Set objADSysInfo = CreateObject("ADSystemInfo ")
txt_name.Value = Replace(Split(objADSysInfo .UserName, ",")(0), "CN=", "")
Set objUser = GetObject("LDAP://" & objADSysInfo.UserName)
txt_email.Value = objUser.Mail
txt_designation.Value = Left(objUser.Title, 50)
txt_manager.Value = Replace(Split(objUser.Mana ger, ",")(0), "CN=", "")
Set objFSO = CreateObject("Scripting.Fi leSystemOb ject")
If objFSO.FileExists(strLogFi le) Then
MsgBox "Your information has already been submitted. Thank you."
window.Close
End If
Set objFSO = Nothing
End Sub
Sub Default_Buttons
If Window.Event.KeyCode = 13 Then
btn_submit.Click
End If
End Sub
Sub Submit_Form
If txt_name.Value = "" Then
MsgBox "Please enter your full name in the Name field."
txt_name.Focus
ElseIf txt_designation.Value = "" Then
MsgBox "Please enter your designation in the Designation field."
txt_designation.Focus
ElseIf cbo_supportrating.Value = "opt_none" Then
MsgBox "Please select a support rating from the drop down box."
cbo_supportrating.Focus
ElseIf cbo_solutiontime.Value = "opt_none" Then
MsgBox "Please select a solution time from the drop down box."
cbo_solutiontime.Focus
Else
Set objFSO = CreateObject("Scripting.Fi leSystemOb ject")
Set objOutputFile = objFSO.CreateTextFile(strL ogFile, True)
'objOutputFile.Write """Full Name;Login Name;Employee ID;Seat Number;Designation;Machine Name;Extension Number"""
'objOutputFile.Write VbCrLf & """" & txt_name.Value & ";" & txt_loginname.Value & ";" & txt_empid.Value & ";" & txt_seatno.Value & ";" & txt_designation.Value & ";" & txt_machinename.Value & ";" & txt_extensionno.Value & """"
objOutputFile.Write "Full Name;Email;Manager;Designa tion;Machi ne Name;Support Rating;Solution Time"
objOutputFile.Write VbCrLf & txt_name.Value & ";" & txt_email.Value & ";" & txt_manager.Value & ";" & txt_designation.Value & ";" & txt_machinename.Value & ";" & cbo_supportrating.Value & ";" & cbo_solutiontime.Value
objOutputFile.Close
Set objOutputFile = Nothing
Set objFSO = Nothing
MsgBox "Thank you for submitting this survey."
window.Close
End If
End Sub
Sub Validate_Keys(strField)
If LCase(strField) = "designation" Then
If Window.Event.KeyCode >= 48 And Window.Event.KeyCode <= 57 Then Window.Event.KeyCode = Null
End If
End Sub
</script>
<body STYLE="font:14 pt arial; color:white;filter:progid: DXImageTra nsform.Mic rosoft.Gra dient
(GradientType=1, StartColorStr='#000033', EndColorStr='#0000FF')" onkeypress='vbs:Default_Bu ttons'>
<table width='90%' height = '100%' align='center' border='0'>
<tr>
<td align='center'>
<h3>Support Survey</h3><br>
</td>
</tr
<tr>
<td align='center'>
<table>
<tr>
<td>
Name:
</td>
<td>
<input type="text" maxlength="30" size="40" id="txt_name" name="txt_name" readonly>
</td>
</tr>
<tr>
<td>
Email Address:
</td>
<td>
<input type="text" maxlength="50" size="70" id="txt_email" name="txt_email" readonly>
</td>
</tr>
<tr>
<td>
Manager Name:
</td>
<td>
<input type="text" maxlength="50" size="70" id="txt_manager" name="txt_manager" readonly>
</td>
</tr>
<tr>
<td>
Designation:
</td>
<td>
<input type="text" maxlength="50" size="70" id="txt_designation" name="txt_designation" onkeypress="vbs:Validate_K eys('desig nation')" readonly>
</td>
</tr>
<tr>
<td>
Machine Name:
</td>
<td>
<input type="text" maxlength="16" size="25" id="txt_machinname" name="txt_machinename" readonly>
</td>
</tr>
<tr>
<td>
Rate the level of support:
</td>
<td>
<select size="1" id="cbo_supportrating" name="cbo_supportrating">
<option id="opt_none" value="opt_none" selected> --- Select Rating --- </option>
<option id="opt_verypoor" value="Very Poor">Very Poor</option>
<option id="opt_poor" value="Poor">Poor</option>
<option id="opt_average" value="Average">Average</o ption>
<option id="opt_good" value="Good">Good</option>
<option id="opt_excellent" value="Excellent">Excellen t</option>
</select>
</td>
</tr>
<tr>
<td>
Select average time for a solution:
</td>
<td>
<select size="1" id="cbo_solutiontime" name="cbo_solutiontime">
<option id="opt_none" value="opt_none" selected> --- Select Time Frame --- </option>
<option id="opt_lessthan10" value="Less Than 10 Minutes">Less Than 10 Minutes</option>
<option id="opt_10to30" value="Between 10 and 30 Minutes">Between 10 and 30 Minutes</option>
<option id="opt_30to60" value="Between 30 and 60 Minutes">Between 30 and 60 Minutes</option>
<option id="opt_1hrto1day" value="Between 1 Hour and 1 Day">Between 1 Hour and 1 Day</option>
<option id="opt_greaterthan1day" value="Greater than 1 Day">Greater than 1 Day</option>
</select>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align='center'>
<br>Please note that all fields are required.
</td>
</tr>
<tr>
<td align='center'>
<input type="button" value="Submit" name="btn_submit" onClick="vbs:Submit_Form"> <br><br>
</td>
</tr>
</table>
</body>
Regards,
Rob.
<head>
<title>Support Survey</title>
<HTA:APPLICATION
APPLICATIONNAME="Support Survey"
BORDER="thin"
SCROLL="no"
SINGLEINSTANCE="yes"
WINDOWSTATE="normal"
>
</head>
<script language="VBScript">
' Support Survey.hta
' https://www.experts-exchange.com/questions/22942348/Any-good-idea's-on-a-FeedBack-form-that-can-be-sent-to-all-users-and-when-entered-it-would-be-updated-on-a-excel-file.html
' Global variable to hold the path to the text files
' they are defined here to be global, but are assigned
' values in the Window_OnLoad procedure
strTextLogPath = ""
strLogFile = ""
Sub Window_OnLoad
intWidth = 800
intHeight = 600
Me.ResizeTo intWidth, intHeight
Me.MoveTo ((Screen.Width / 2) - (intWidth / 2)),((Screen.Height / 2) - (intHeight / 2))
'cbo_building.Style.Width = 180
'cbo_floor.Style.Width = 180
Set objNetwork = CreateObject("WScript.Netw
txt_machinename.Value = objNetwork.ComputerName
' This line gets the path from the currently running directory of this HTA
strTextLogPath = Mid(Replace(Replace(docume
If Right(strTextLogPath, 1) <> "\" Then strTextLogPath = strTextLogPath & "\"
' This line appends username.txt to that path
strLogFile = strTextLogPath & objNetwork.UserName & ".txt"
' This retrieves the user name for the user
Set objADSysInfo = CreateObject("ADSystemInfo
txt_name.Value = Replace(Split(objADSysInfo
Set objUser = GetObject("LDAP://" & objADSysInfo.UserName)
txt_email.Value = objUser.Mail
txt_designation.Value = Left(objUser.Title, 50)
txt_manager.Value = Replace(Split(objUser.Mana
Set objFSO = CreateObject("Scripting.Fi
If objFSO.FileExists(strLogFi
MsgBox "Your information has already been submitted. Thank you."
window.Close
End If
Set objFSO = Nothing
End Sub
Sub Default_Buttons
If Window.Event.KeyCode = 13 Then
btn_submit.Click
End If
End Sub
Sub Submit_Form
If txt_name.Value = "" Then
MsgBox "Please enter your full name in the Name field."
txt_name.Focus
ElseIf txt_designation.Value = "" Then
MsgBox "Please enter your designation in the Designation field."
txt_designation.Focus
ElseIf cbo_supportrating.Value = "opt_none" Then
MsgBox "Please select a support rating from the drop down box."
cbo_supportrating.Focus
ElseIf cbo_solutiontime.Value = "opt_none" Then
MsgBox "Please select a solution time from the drop down box."
cbo_solutiontime.Focus
Else
Set objFSO = CreateObject("Scripting.Fi
Set objOutputFile = objFSO.CreateTextFile(strL
'objOutputFile.Write """Full Name;Login Name;Employee ID;Seat Number;Designation;Machine
'objOutputFile.Write VbCrLf & """" & txt_name.Value & ";" & txt_loginname.Value & ";" & txt_empid.Value & ";" & txt_seatno.Value & ";" & txt_designation.Value & ";" & txt_machinename.Value & ";" & txt_extensionno.Value & """"
objOutputFile.Write "Full Name;Email;Manager;Designa
objOutputFile.Write VbCrLf & txt_name.Value & ";" & txt_email.Value & ";" & txt_manager.Value & ";" & txt_designation.Value & ";" & txt_machinename.Value & ";" & cbo_supportrating.Value & ";" & cbo_solutiontime.Value
objOutputFile.Close
Set objOutputFile = Nothing
Set objFSO = Nothing
MsgBox "Thank you for submitting this survey."
window.Close
End If
End Sub
Sub Validate_Keys(strField)
If LCase(strField) = "designation" Then
If Window.Event.KeyCode >= 48 And Window.Event.KeyCode <= 57 Then Window.Event.KeyCode = Null
End If
End Sub
</script>
<body STYLE="font:14 pt arial; color:white;filter:progid:
(GradientType=1, StartColorStr='#000033', EndColorStr='#0000FF')" onkeypress='vbs:Default_Bu
<table width='90%' height = '100%' align='center' border='0'>
<tr>
<td align='center'>
<h3>Support Survey</h3><br>
</td>
</tr
<tr>
<td align='center'>
<table>
<tr>
<td>
Name:
</td>
<td>
<input type="text" maxlength="30" size="40" id="txt_name" name="txt_name" readonly>
</td>
</tr>
<tr>
<td>
Email Address:
</td>
<td>
<input type="text" maxlength="50" size="70" id="txt_email" name="txt_email" readonly>
</td>
</tr>
<tr>
<td>
Manager Name:
</td>
<td>
<input type="text" maxlength="50" size="70" id="txt_manager" name="txt_manager" readonly>
</td>
</tr>
<tr>
<td>
Designation:
</td>
<td>
<input type="text" maxlength="50" size="70" id="txt_designation" name="txt_designation" onkeypress="vbs:Validate_K
</td>
</tr>
<tr>
<td>
Machine Name:
</td>
<td>
<input type="text" maxlength="16" size="25" id="txt_machinname" name="txt_machinename" readonly>
</td>
</tr>
<tr>
<td>
Rate the level of support:
</td>
<td>
<select size="1" id="cbo_supportrating" name="cbo_supportrating">
<option id="opt_none" value="opt_none" selected> --- Select Rating --- </option>
<option id="opt_verypoor" value="Very Poor">Very Poor</option>
<option id="opt_poor" value="Poor">Poor</option>
<option id="opt_average" value="Average">Average</o
<option id="opt_good" value="Good">Good</option>
<option id="opt_excellent" value="Excellent">Excellen
</select>
</td>
</tr>
<tr>
<td>
Select average time for a solution:
</td>
<td>
<select size="1" id="cbo_solutiontime" name="cbo_solutiontime">
<option id="opt_none" value="opt_none" selected> --- Select Time Frame --- </option>
<option id="opt_lessthan10" value="Less Than 10 Minutes">Less Than 10 Minutes</option>
<option id="opt_10to30" value="Between 10 and 30 Minutes">Between 10 and 30 Minutes</option>
<option id="opt_30to60" value="Between 30 and 60 Minutes">Between 30 and 60 Minutes</option>
<option id="opt_1hrto1day" value="Between 1 Hour and 1 Day">Between 1 Hour and 1 Day</option>
<option id="opt_greaterthan1day" value="Greater than 1 Day">Greater than 1 Day</option>
</select>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align='center'>
<br>Please note that all fields are required.
</td>
</tr>
<tr>
<td align='center'>
<input type="button" value="Submit" name="btn_submit" onClick="vbs:Submit_Form">
</td>
</tr>
</table>
</body>
Regards,
Rob.
ASKER
Rob thanks a lot ...Can you add the names of engineers option in the Hta.Say 7 names.Drop down menu.
Where does the txt file save.
Where does the txt file save.
ASKER
Rob a small box with 13 character that has an option to enter Case no for which the rating the engineers
ASKER
Rob a little help and this Q can be closed....
Sharath, OK, I have a bit of time to finish this....for the case number, is that mandatory, or optional for the user to enter?
Regards,
Rob.
Regards,
Rob.
ASKER
It is mandatory Rob...
Rob please dont mind me asking "When are you getting married"
Rob please dont mind me asking "When are you getting married"
Oh, and the text files are written to the same folder that the HTA is in, but can be changed to a different folder name by this line:
strTextLogPath = Mid(Replace(Replace(docume nt.URL, "file://", ""), "%20", " "), 1, InStrRev(Replace(Replace(d ocument.UR L, "file://", ""), "%20", " "), "\"))
Regards,
Rob.
strTextLogPath = Mid(Replace(Replace(docume
Regards,
Rob.
This Saturday, so I'm only at work for another two and a half days, then I will be on holiday until Christmas, so happy christmas and a happy new year! I'll see you again in 2008.
Regards,
Rob.
Regards,
Rob.
ASKER
Wish you the same Rob....
Wish you a happy married life in Advance...
Wish you a happy married life in Advance...
ASKER
Rob i shall keep all your answered posts as they are.Shall wait for your responses.I am sure no one else will finish it other than you..:-)
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Thanks Rob...
How do you want the HTA to work?
regards
Chandru