<html>
<head>
<title>HTA UNC Check</title>
<HTA:APPLICATION
ID="objHTA"
APPLICATIONNAME="HTA_UNC_Check"
SINGLEINSTANCE="yes"
/>
</head>
<SCRIPT Language="VBScript">
window.resizeTo 500,200
FullName = replace(objHTA.commandLine,chr(34),"")
pos=InstrRev(FullName,"\")
FileName=Mid(FullName,pos+1)
SourceDir=Left(FullName,pos)
strUNC = "\\MYSERVER\MYSHARE"
If lcase(SourceDir) <> lcase(strUNC & "\") then window.close
</SCRIPT>
<body>
If you see this... UNC path is OK
</body>
</html>
|