let desc="/tmpdesc"
let server=param(0)
let passwd=param(1)
if(len(%passwd))
  let opt=strcat("-P=", %passwd)
else
  let opt="-n"
endif
if(len(%server))
  let service="//"
  let service = strcat(%service, %server)
  let service = strcat(%service, "/")
  let service = strcat(%service, "IPC$")
  smbmount %desc %service -t=3 %opt
  echo 
  echo "Available resources on" %server ":"
  echo 
  echo "Sharename        Type    Comment"
  echo "---------------- ------- ----------------"
* Main command ;)
  list %desc@
  smbmount %desc -u
else
  echo "Copyright (C) 1997-1998 by Ilja V.Levinson"
  echo "Usage: smbview server [password]"
  echo "Function: display available resources on given MS server"
  echo "Options: none" 
endif

