Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 577
  • Last Modified:

restrict SSIDs from showing up only under certain conditions

We have some laptop PCs that are normally connected via CAT5 to our Active Directory network.  When they are connected in this manner, we would like to keep SSIDs from showing up.  I'd like some suggestions of how to do this.
0
verpit
Asked:
verpit
1 Solution
 
and235100Commented:
The code given by trosien here may be of use:
http://www.gpanswers.com/community/viewtopic.php?p=4447
0
 
and235100Commented:
This disables the wireless nic when the wired one is connected - I do not think that you can actually hide the wireless SSID - or do I misunderstand the question?
0
 
Jay_Jay70Commented:
unless you disable the wireless NIC, the SSID's will show - you can restrcit in AD which wireless networks they can connect too
0
Creating Active Directory Users from a Text File

If your organization has a need to mass-create AD user accounts, watch this video to see how its done without the need for scripting or other unnecessary complexities.

 
and235100Commented:
What I meant was - you cannot programatically hide the wireless SSID from the laptop - group policy can be used to restrict access to which wireless networks - but this would be pretty pointless for a few laptops.
0
 
verpitAuthor Commented:
and235100, Great answer...  I realize I'm showing my ignorance here but am wondering how I would implement this code you mentioned?
Const HKEY_LOCAL_MACHINE = &H80000002
Set objShell = CreateObject("WScript.Shell")
 
Set objWMIService_wmi = GetObject("winmgmts:\\.\root\wmi")
Set colMonitoredEvents = objWMIService_wmi.ExecNotificationQuery("Select * from MSNdis_StatusMediaConnect")
Do While True
    Set strLatestEvent = colMonitoredEvents.NextEvent
    Wscript.Echo "A network connection has been disconnected: " & strLatestEvent.InstanceName
    nicdesc = strLatestEvent.InstanceName
   Set objWMIService_cimv2 = GetObject("winmgmts:\\.\root\cimv2")
   Set colNics = objWMIService_cimv2.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where ipEnabled = True")
 
   'Determine nic which trggered the event
   For Each objItem in colNics
      If objItem.description = nicdesc & " - Packet Scheduler Miniport" then
         trig_macaddress = objItem.MacAddress
          trig_nicguid = objItem.SettingID
         trig_strKeyPath = "HKLM\SYSTEM\ControlSet001\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\" & trig_nicguid & "\Connection\MediaSubType"
         trig_subtype = objShell.RegRead(trig_strKeyPath)
         Exit For
      End If
   Next
   
   'If the nic was wired then find wireless nics and disable them
   If trig_subtype = 1 then
      For Each objItem in colNics
         nicguid = objItem.SettingID
         strKeyPath = "HKLM\SYSTEM\ControlSet001\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\" & nicguid & "\Connection\MediaSubType"
         subtype = ""
         on error resume next
         subtype = objShell.RegRead(strKeyPath)
         If err.number <> 0 then
            subtype = 0
            err.clear
            on error goto 0
         End If
         If (subtype = 2) then
            wireless_macaddress = objItem.MacAddress
            set colAdapters = objWMIService_cimv2.Execquery("Select * from Win32_NetworkAdapter where macaddress ='" & wireless_macaddress & "'")
            For Each Adapter in colAdapters
               constatus = Adapter.NetConnectionStatus
               If constatus <> "" then
                  wscript.echo SetConnState(Adapter.NetConnectionID,0)
                End If
            Next
         End If
      Next
   End If
Loop
 
 
Function SetConnState(strConn,constate)
Const CONTROL_PANEL = &H3&
Set objShell = CreateObject("Shell.Application")
Set objCP = objShell.Namespace(CONTROL_PANEL)
 
If connstate = 0 then connAction = "Disa&ble"
If connstate = 1 then connAction = "En&able"
 
Set colNetwork = Nothing
For Each clsConn in objCP.Items
   If clsConn.Name = "Network Connections" Then
      Set colNetwork = clsConn.getfolder
      Exit For
   End If
Next
 
If colNetwork is Nothing Then
   WScript.Echo "Network folder not found"
   SetConnState = False
   Exit Function
End If
 
Set clsLANConn = Nothing
For Each clsConn in colNetwork.Items
   If Instr(LCase(clsConn.name),LCase(strConn)) Then
      Set clsLANConn = clsConn
      Exit For
   End If
Next
 
If clsLANConn is Nothing Then
   WScript.Echo "Network Connection not found"
   SetConnState = False
   Exit Function
End If
 
 
bEnabled = True
Set objEnable = Nothing
Set objDisable = Nothing
For Each clsVerb in clsLANConn.verbs
   If clsVerb.name = connAction Then
      Set objAction = clsVerb
   End If
Next
 
wscript.echo REPLACE(connAction,"&","") & " " & strConn & "..."
objAction.DoIt
End Function
 
 
'The Control Panel automation derived from: http://mcpmag.com/columns/article.asp?EditorialsID=619
'NIC connect/disconnect trigger derived from: http://www.microsoft.com/technet/scriptcenter/resources/qanda/mar05/hey0321.mspx 

Open in new window

0
 
and235100Commented:
My answer was fine. SHould be accepted.
I am sorry - I didn't know I had to tell someone that you would implement the code by using a logon script.
I thought that the necessary knowledge was rather basic. - and the Asker gave himself/herself as "Advanced" on this topic.
http://www.rlmueller.net/LogonScriptFAQ.htm
0
 
Jay_Jay70Commented:
i agree with andy on this - just for the record
0
 
and235100Commented:
I apologise that I expect too much from people - but what is the point of marking yourself as "Advanced" on the topic in question, if you cannot apply a script to a GPO - especially when the subject of the question implied some sort of script for a domain as a resolution.
(I know that my "answer" is not spot-on - but as I stated - you cannot programatically hide the SSID from a laptop, as far as my "ignorance" goes.)

>> since when do we accept everything the questioner fills out in the question form as completely accurate?

That is often all we have to go on! :) Very little additional information was given in this Q by the Asker.
0
 
Jay_Jay70Commented:
Thanks Lee
0
 
Computer101Commented:
Forced accept.

Computer101
EE Admin
0
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.

Join & Write a Comment

Featured Post

Get 10% Off Your First Squarespace Website

Ready to showcase your work, publish content or promote your business online? With Squarespace’s award-winning templates and 24/7 customer service, getting started is simple. Head to Squarespace.com and use offer code ‘EXPERTS’ to get 10% off your first purchase.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now