Just thought id let you guys have this.

We had problems with wifi users loosing their mapped drives if they went out of range.

This script checks if the S: exists
if it does it just runs sims
if it doesnt it remaps the s: and then runs sims
if it can remap the s: it displays a warning saying "your not in wifi range"

I put a shortcut to this on the desktop and gave it the sims.net icon

You will need to copy and paste this into a text file with a vbs extension and change the first line to point to your sims server.

-------------copy after here--------------
simsServer = "\\simsserver\adapps$"

'Setup Wscript object
Set WshShell = WScript.CreateObject("WScript.Shell")

Dim fso, msg
Set fso = CreateObject ("Scripting.FileSystemObject")

If fso.FileExists("s:\SIMS\connect.ini") Then

msg = "s drive exists."


Return = WshShell.Run("cmd /c net use s: " & SimsServer,0,True)

End If

If fso.FileExists("s:\SIMS\connect.ini") Then

command = "cmd /c ""C:\Program Files\SIMS\SIMS .net\Pulsar.exe"""

Return = WshShell.Run(command,0,TRUE)


MsgBox("Error: You are not connected to the Wireless network." & VbCrLf & vbCrLf & "Please move nearer to a

wireless access point and restart you pc." & VbCrLf & "You will then be able to use Sims.net")

End If
---------paste into a text file with a vbs extension-------------