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