Dim oFso,lsFilePath, oTextFileIn, lsReadLine
Dim lSrvr,lBaza, lUser, lPwd

Set oFso = CreateObject("Scripting.FileSystemObject")
lsFilePath=left(WScript.ScriptFullName,Len(WScript.ScriptFullName) - len(WScript.ScriptName)) & "PotBaze.txt"
IF oFso.FileExists(lsFilePath) = False Then lsFilePath="C:\Finesa.Xp\PotBaze.txt"
Set oTextFileIn = oFso.OpenTextFile(lsFilepath, 1)
lsReadLine = oTextFilein.ReadLine
lsReadLine=RTrim(Mid(lsReadLine,1,InStr(1,lsReadLine,"#",vbTextCompare )-1))
lSrvr=left(lsReadLine,Instr(lsReadLine,"@")-1)
LBaza=right(lsReadline,len(lsReadLine)-len(lSrvr)-1)
'msgbox lsrvr
'msgbox lbaza
lUser=InputBox("Uporabniško ime:",lsReadLine)
lpwd=InputBox("Uporabniško geslo:",lsReadLine)
'msgbox luser
'msgbox lpwd
SET lSrvr=Wscript.CreateObject("SQLDMO.SqlServer")
lSrvr.connect cstr(lserver),cstr(luser),cstr(lpwd)
MsgBox Trim(lSrvr.Databases(lbaza).FileGroups(1).DBFiles(1).PhysicalName),,"Pot do baze (" & lsReadLine & "):"