http://blogs.technet.com/b/heyscriptingguy/archive/2005/08/25/hey-scripting-guy-august-25-2005.aspxHey, Scripting Guy! How can I find all the users with remote access permissions; that is, all those with the Dial-In or VPN property set to Allow ? -- RC Hey, RC. You know, it seems like people are always looking for something: true love, happinessen-USTelligent Evolution Platform Developer Build (Build: 5.6.50428.7875)http://blogs.technet.com/b/heyscriptingguy/archive/2005/08/25/hey-scripting-guy-august-25-2005.aspx#3352878Tue, 31 Aug 2010 15:41:59 GMTd5e57398-b9ef-4490-9955-07cbb4e4a80d:3352878MPH<p>Use this:</p> <p>On Error Resume Next</p> <p>Const ADS_SCOPE_SUBTREE = 2</p> <p>Set objConnection = CreateObject(&quot;ADODB.Connection&quot;)</p> <p>Set objCommand = &nbsp; CreateObject(&quot;ADODB.Command&quot;)</p> <p>objConnection.Provider = &quot;ADsDSOObject&quot;</p> <p>objConnection.Open &quot;Active Directory Provider&quot;</p> <p>Set objCommand.ActiveConnection = objConnection</p> <p>objCommand.Properties(&quot;Page Size&quot;) = 1000</p> <p>objCommand.Properties(&quot;Searchscope&quot;) = ADS_SCOPE_SUBTREE </p> <p>objCommand.CommandText = _</p> <p> &nbsp;&quot;SELECT Name FROM &#39;LDAP://dc=fabrikam,dc=com&#39; WHERE objectCategory=&#39;user&#39;AND msNPAllowDialin = TRUE&quot;</p> <p>Set objRecordSet = objCommand.Execute</p> <p>objRecordSet.MoveFirst</p> <p>Do Until objRecordSet.EOF</p> <p> &nbsp;Wscript.Echo objRecordSet.Fields(&quot;Name&quot;).Value</p> <p> &nbsp;objRecordSet.MoveNext</p> <p>Loop</p> <div style="clear:both;"></div><img src="http://blogs.technet.com/aggbug.aspx?PostID=3352878" width="1" height="1">http://blogs.technet.com/b/heyscriptingguy/archive/2005/08/25/hey-scripting-guy-august-25-2005.aspx#3344577Fri, 16 Jul 2010 07:44:26 GMTd5e57398-b9ef-4490-9955-07cbb4e4a80d:3344577N00b to script<p>I couldn&#39;t get this to work.just keep recieving errors.</p> <div style="clear:both;"></div><img src="http://blogs.technet.com/aggbug.aspx?PostID=3344577" width="1" height="1">