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

[moogle33]

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