check box in .vbs script

Is it possible to put a checkbox in a .vbs script?

If yes, I want to make a .vbs script that will start in windows startup. It should ask what registry setting you want to run by checking an checkbox.

regards,
Martijn
mvanthofAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

David LeeCommented:
Not as far as I know.  VBScript doesn't have a GUI interface, except for the Input and Echo commands.
0
mvanthofAuthor Commented:
ok thanks, then another question(125 points) I want to display my IP / DNS-hostname / DNS-domain name ion a msg box.

I have this and want to add the options.

'display message
Message = "You have now access to:" & vbCR & vbCR
Message = Message & "- Regedit" & vbCR
Message = Message & "- Network Connections Properties" & vbCR
Message = Message & "- Internet Options Tabs" & vbCR
Message = Message & "- Changing Wallpaper" & vbCR
Message = Message & "- System in control pannel" & vbCR
Message = Message & "- C-Drive view (after restart)" & vbCR
Message = Message & "- More download connections" & vbCR
Message = Message & "- Faster internet" & vbCR
Message = Message & "- Clear History" & vbCR
Message = Message & "- Start Menu Properties" & vbCR

X = MsgBox(Message, vbOKOnly + vbInformation, "Activate script by MH")
Set WshShell = Nothing
Set fso = Nothing
0
jimbobmcgeeCommented:
If you want to show what options are available via a message box, you'll have to poll each option and only add it to Message if the permission exists...

The only way to work GUI and VBS(cript) together is via a web form.
0
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

David LeeCommented:
Here's how to get the information you want using WMI:

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True", , 48)
For Each objItem In colItems
    If objItem.IPAddress(0) <> "0.0.0.0" Then
        Wscript.Echo "DNSDomain: " & objItem.DNSDomain
        Wscript.Echo "DNSHostName: " & objItem.DNSHostName
        Wscript.Echo "IPAddress: " & objItem.IPAddress(0)
    End If
Next

I don't know how you want to integrate it into your existing message so I'll leave that to you.
0
mvanthofAuthor Commented:
Ok thanks BlueDevilFa, working great, but how to put this in a existing message box? Now I get 3 msg boxes after my own.

0
David LeeCommented:
Assuming you want to add it on to the message box you showed above, then something like this:


Message = "You have now access to:" & vbCR & vbCR
Message = Message & "- Regedit" & vbCR
Message = Message & "- Network Connections Properties" & vbCR
Message = Message & "- Internet Options Tabs" & vbCR
Message = Message & "- Changing Wallpaper" & vbCR
Message = Message & "- System in control pannel" & vbCR
Message = Message & "- C-Drive view (after restart)" & vbCR
Message = Message & "- More download connections" & vbCR
Message = Message & "- Faster internet" & vbCR
Message = Message & "- Clear History" & vbCR
Message = Message & "- Start Menu Properties" & vbCR

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True", , 48)
For Each objItem In colItems
    If objItem.IPAddress(0) <> "0.0.0.0" Then
        Message = Message & "- DNSDomain: " & objItem.DNSDomain & vbCR
        Message = Message & "- DNSHostName: " & objItem.DNSHostName & vbCR
        Message = Message & "- IPAddress: " & objItem.IPAddress(0) & vbCR
    End If
Next
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.