<div>
maybe the following?<br />

<pre><code id="code-42414">Set objUser = GetObject(&quot;ldap://cn=testuser,ou=sales,dc=mydomain,dc=com&quot;)
Set objGroup = GetObject(&quot;ldap://cn=testgroup,ou=admin,dc=mydomain,dc=com&quot;) 
If objGroup.IsMember(objUser.AdsPath) Then
   set objWSHShell = CreateObject(&quot;WScript.Shell&quot;) 
   strShortcutName = &quot;Finance Department Public Folder&quot;
   strShortcutPath = &quot;\\atl-finance-01\public&quot; 
   Set objShortcut = objWSHShell.CreateShortcut (strNetHood &amp; &quot;\&quot; &amp; strShortcutName &amp; &quot;.lnk&quot;)
   objShortcut.TargetPath = strShortcutPath
   objShortcut.Save
End If
</code></pre>
</div>


maybe the following?


Set objUser = GetObject("ldap://cn=testuser,ou=sales,dc=mydomain,dc=com")
Set objGroup = GetObject("ldap://cn=testgroup,ou=admin,dc=mydomain,dc=com") 
If objGroup.IsMember(objUser.AdsPath) Then
   set objWSHShell = CreateObject("WScript.Shell") 
   strShortcutName = "Finance Department Public Folder"
   strShortcutPath = "\\atl-finance-01\public" 
   Set objShortcut = objWSHShell.CreateShortcut (strNetHood & "\" & strShortcutName & ".lnk")
   objShortcut.TargetPath = strShortcutPath
   objShortcut.Save
End If


<div>
I need the script to be generic so that it will pick up the user name / OU automatically<br />
<br />
Set objUser = GetObject(&quot;ldap://cn=testu<wbr />ser,ou=sal<wbr />es,dc=mydo<wbr />main,dc=co<wbr />m&quot;)
</div>


I need the script to be generic so that it will pick up the user name / OU automatically

Set objUser = GetObject("ldap://cn=testuser,ou=sales,dc=mydomain,dc=com")

<div>
<div class="content wysiwyg-content">
Hi All,<br />
<br />
I want to copy a shortcut to all users desktop who are a member of the AD group 'HR-users'. &nbsp;Ideally i'd like to run this at logon.<br />
<br />
<br />
Any sugestions are welcome
</div>
</div>


Hi All,

I want to copy a shortcut to all users desktop who are a member of the AD group 'HR-users'.  Ideally i'd like to run this at logon.


Any sugestions are welcome

VBScript: If user is member of HR-users copy file to desktop

VBScript (Visual Basic Scripting Edition) is an interpreted scripting language developed by Microsoft that is modeled on Visual Basic, but with some important differences. VBScript is commonly used for automating administrative and other tasks in Windows operating systems (by means of the Windows Script Host) and for server-side scripting in ASP web applications. It is also used for client-side scripting in Internet Explorer, specifically in intranet web applications.