my "check if S: exsists if not remap it then sun runs"

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."

Else

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)


Else

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-------------