|
I am trying to use the UDF "fnMapped" function to no avail.
I am new to the UDF world and am probably missing something....
I am including some lines of script for review. Only the "fnMapped" portion is failing. Any ideas?
;---------------------- MAPPED DRIVE ERROR CHECKING -------------------------
;
;USE L: /DELETE ;(FOR DEBUGGING)
;
$DL="F:\"
IF EXIST ("F:\") GOSUB "CHECKG" ELSE GOTO "ERROR" ENDIF
;
:CHECKG
$DL="G:\"
IF EXIST ("G:\") GOSUB "CHECKG2" ELSE GOTO "ERROR" ENDIF
;
:CHECKG2
fnMapped(\\ADMIN\COMMON) ?
IF fnMapped(\\ADMIN\COMMON)=(G:\) GOSUB "CHECKH" ELSE GOTO "MISDIRECT" ENDIF
;
:CHECKH
$DL="H:\"
IF EXIST ("H:\") GOSUB "CHECKI" ELSE GOTO "ERROR" ENDIF
;
:CHECKI
$DL="I:\"
IF EXIST ("I:\") GOSUB "LOGON" ELSE GOTO "ERROR" ENDIF
;
;
;---------------------- MESSAGE BOX PROMPTED TO USER ------------------------
;
:MISDIRECT
BEEP
MESSAGEBOX
("Your login to the SUSD Network has reported an error."
+ CHR(10) + "Some network resources may not be available."
+ CHR(10) + "Your $DL network drive did not connect correctly."
+ CHR(10) + "Please report this to your I.T. Department."
+ CHR(10) + "Your account has been validated by @LSERVER."
+ CHR(10) + "The time is @DAY, @TIME, @DATE."
+ CHR(10) + " Have a nice day ;o) !!"
+ CHR(10) + "", "Sunnyside USD #12 - ERROR - $DL Drive Failed to Connect", 48, 45)
GOSUB "END"
;
:ERROR
BEEP
MESSAGEBOX
("Your login to the SUSD Network has reported an error."
+ CHR(10) + "Some network resources may not be available."
+ CHR(10) + "Your $DL network drive did not connect correctly."
+ CHR(10) + "Please report this to your I.T. Department."
+ CHR(10) + "Your account has been validated by @LSERVER."
+ CHR(10) + "The time is @DAY, @TIME, @DATE."
+ CHR(10) + " Have a nice day ;o) !!"
+ CHR(10) + "", "Sunnyside USD #12 - ERROR - $DL Drive Missing", 48, 45)
GOSUB "END"
;
;
;
;
:LOGON
MESSAGEBOX
("Welcome to the Sunnyside USD Computer Network."
+ CHR(10) + "Your account has been validated by @LSERVER."
+ CHR(10) + "The time is @DAY, @TIME, @DATE."
+ CHR(10) + " Have a nice day ;o) !!!",
"Sunnyside USD #12 - LOGIN SUCCESSFUL !!!", 64, 45)
;
:END
;----------- TELLS THE SCRIPT INTERPRETER THAT THE SCRIPT IS DONE -----------
COOKIE1
EXIT
;
; UDF DEFINITIONS
;---fnMapped---
Function fnMapped($sUNC)
Dim $oDrives,$oDrive
$oDrives = CreateObject("Scripting.FileSystemObject").Drives
If Not VarType($oDrives) & 9 Exit 1 EndIf
For Each $oDrive in $oDrives
If $oDrive.DriveType = 3 AND $sUNC = $oDrive.ShareName
$fnMapped = $oDrive.DriveLetter + ":"
EndIf
Next
EndFunction
Edited by michaeli (2005-10-19 11:00 PM)
| 
