implodium Posted July 28, 2005 Share Posted July 28, 2005 (edited) Are there ANY examples of how to use visual basic script to access wirelesscard ? I'd like to use wireless zero configuration service to query for thelist of available APs and read their signal strengths. I guess that would be thesimplest way, but ANYTHING is welcome. I managed to get some examples ripped out of some skin file (zipped),so far i found this :Wireless Signal StrengthVersion 2.2Created 06th September 2004Edited 09th March 2005Copyright 2005, Mike Almond There is some VB script encapsulated into xml commented with "DXScript Data File"at the beginning of file. Any c++ / delphi example code is also welcome. I did found WRAPI, butit it's a bit complex and reqiures DDK Edited July 28, 2005 by implodium Link to comment Share on other sites More sharing options...
chrismholmes Posted January 11, 2008 Share Posted January 11, 2008 Here is a script I wrote this evening to add wireless profiles to a pc. I am still very new at writing vbs but this was my last resort for adding these connections. I am using a guirunonce at the end of a image to detect what model and run certain scripts per model. This is one of those scripts. I hope it helps someone.Set Shell=WScript.CreateObject("Shell.Application")Shell.MinimizeAllDim objShellSet objShell=CreateObject("Wscript.Shell")'Begin ScriptWith objShell .Run "Control ncpa.cpl" wscript.sleep 8000 .AppActivate "Network Connections" wscript.sleep 5000 .SendKeys "w" .sendkeys "{ENTER}" wscript.sleep 3000 .SendKeys "%V" wscript.sleep 3000 .AppActivate "Wireless Network Connection" .SendKeys "+{TAB}" wscript.sleep 1000 .sendkeys "+{TAB}" wscript.sleep 1000 .sendkeys "{ENTER}" wscript.sleep 3000 .SendKeys "%A" wscript.sleep 3000 .SendKeys "Corp" .SendKeys "{TAB}" wscript.sleep 1000 .sendkeys "{DOWN}" wscript.sleep 1000 .sendkeys "{DOWN}" wscript.sleep 1000 .SendKeys "{TAB}" wscript.sleep 3000 .sendkeys "{UP}" wscript.sleep 1000 .SendKeys "{TAB}" wscript.sleep 1000 .sendkeys "{TAB}" wscript.sleep 1000 .sendkeys "{TAB}" wscript.sleep 1000 .sendkeys "{TAB}" wscript.sleep 1000 .sendkeys "{RIGHT}" wscript.sleep 2000 .sendkeys "{TAB}" wscript.sleep 1000 .sendkeys "{UP}" wscript.sleep 1000 .sendkeys "%R" wscript.sleep 2000 .sendkeys "%VE" wscript.sleep 1000 .sendkeys "{ENTER}" .sendkeys "{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{RIGHT}" .SendKeys "%C" .SendKeys "{ENTER}" wscript.sleep 2000 .SendKeys "%A" wscript.sleep 2000 .SendKeys "Guest" .sendkeys "+{TAB}" .sendkeys "{RIGHT}" wscript.sleep 1000 .sendkeys "%E" .sendkeys "+{TAB}" .sendkeys "{RIGHT}" wscript.sleep 2000 .sendkeys "%C" .sendkeys "{ENTER}" .sendkeys "{ENTER}" End WithSet objShell=NothingWscript.Quit'End Script Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now