Data Collection Via USER INPUT

[Lqqker777]

I need to collect data from users as they login to their system...

The type of data that I am after is the ASSET TAG NUMBER that is attached to the case of the system. I need the user to type in the asset number (Example - 01881) into a GUI popup, then it be recorded to a text file or entered into the registry for later collection. Once a user has entered this information the popup disappears and never request this info again. HOWEVER if a new user logins to the system the popup needs to return requesting the data once showing the new user on this asset.

Is this something that can be done, I have searched for DAYS and DAYS for this exact method of data collection and with no luck in finding it.

Mark aka Lqqker777

 

[johnwm]

Hi and welcome to Tek-Tips. Read faq222-2244 to see how to get the best from these forums.

When user logs in use GetSetting (see VBHelp) to find if this user has a key in registry for this app. If not open a dialog and get asset number. Use SaveSetting to write this user/asset number pair to registry.

For more sophisticated control over your registry you can use the registry API. See

http://allapi.mentalis.org/apilist/RegCreateKeyEx.shtml#

for examples and code

___________________________________________________________
If you want the best response to a question, please check out FAQ222-2244 first.
'If we're supposed to work in Hex, why have we only got A fingers?'
Drive a Steam Roller
Steam Engine Prints

 

[Lqqker777]

OK I got it the way I want it to work, NOW! hehehe always a BUT or NOW...

I need the script to run if the string doesnt exist but if it does to not run. I have tried all day using registrykeyexist with no luck, any thoughts?

 

[Lqqker777]

Heres the script so far:

Dim sh, v, r
Set sh = WScript.CreateObject("WScript.Shell")

v = Msgbox("Enter Asset Tag Number")
If v = 2 Then
wscript.quit
End if
r = inputbox("ASSET NUMBER")
If r = "empty" Then
sh.regwrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters\AbbottAsset\Comment", "", "REG_SZ"

Else

sh.regwrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters\AbbottAsset\Comment", "", "REG_SZ"
sh.regwrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters\AbbottAsset\Comment", r, "REG_SZ"

End if
msgbox "Asset Tag Information has been entered, Thank You!" ,0, "Finished"

 

[johnwm]

I guess you didn't have time to read the faq I pointed out to you - if you had you would discover that this is the VB6 forum, so your answer was a VB6 answer. If you are dealing with VBScript (rather different) then try forum329

___________________________________________________________
If you want the best response to a question, please check out FAQ222-2244 first.
'If we're supposed to work in Hex, why have we only got A fingers?'
Drive a Steam Roller
Steam Engine Prints

 

[Lqqker777]

Sorry, now I understand what it was you were trying to say... I have been reading till my eyes have gone crosseyed. I actually thought I was in the right forum, somehow I missed I was in Vb5/6.