<div>
Thanks...<br />
All I have to do now is find a work around..<br />
:)
</div>


Thanks...
All I have to do now is find a work around..
:)

<div>
<div class="content wysiwyg-content">
When i run the script by user its fine but not by computer?<br />
Can someone see any errrrs?<br />
Many thanks<br />
Andy<br />
<br />
<br />
<br />
Set objNet = WScript.CreateObject(&quot;WScr<wbr />ipt.Networ<wbr />k&quot;)<br />
Set WshShell = CreateObject(&quot;WScript.Shel<wbr />l&quot;)<br />
DesktopPath = WshShell.SpecialFolders(&quot;D<wbr />esktop&quot;)<br />
<br />
'map network drive<br />
objNet.MapNetworkDrive &quot;T:&quot;, &quot;\\Bst-main\Student\_Recep<wbr />tion\Yr R 2007 - 2008&quot;, &quot;True&quot;<br />
<br />
'create a icon on the desktop<br />
Set link = WshShell.CreateShortcut(De<wbr />sktopPath &amp;&nbsp;&quot;\Yr R 2007 - 2008.lnk&quot;)<br />
link.Description = &quot;User Share Drive&quot;<br />
link.HotKey = &quot;CTRL+ALT+SHIFT+T&quot;<br />
link.IconLocation = &quot;explorer.exe,0&quot;<br />
link.TargetPath = &quot;T:&quot;<br />
link.WindowStyle = 3<br />
link.Save
</div>
</div>


When i run the script by user its fine but not by computer?
Can someone see any errrrs?
Many thanks
Andy



Set objNet = WScript.CreateObject("WScript.Network")
Set WshShell = CreateObject("WScript.Shell")
DesktopPath = WshShell.SpecialFolders("Desktop")

'map network drive
objNet.MapNetworkDrive "T:", "\\Bst-main\Student\_Reception\Yr R 2007 - 2008", "True"

'create a icon on the desktop
Set link = WshShell.CreateShortcut(DesktopPath & "\Yr R 2007 - 2008.lnk")
link.Description = "User Share Drive"
link.HotKey = "CTRL+ALT+SHIFT+T"
link.IconLocation = "explorer.exe,0"
link.TargetPath = "T:"
link.WindowStyle = 3
link.Save

When i run the script by user its fine but not by computer?

The Microsoft Server topic includes all of the legacy versions of the operating system, including the Windows NT 3.1, NT 3.5, NT 4.0 and Windows 2000 and Windows Home Server versions.