'* Mp, 28.12.2009
'* Iz PotBaze prebere Pot programa. 
'* Nato pogleda iz katere mape je bil ta VbScript pognan, od tam vzame program in ga  skopira na Pot v ustrezno mapo.
'* Če je lbTudiNaVirtual=True, potem kopira tudi na "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\...."

Dim lbTudiNaVirtual, lsFilePath, lsOdKod, oFso, oTextFilein, lsReadLine, lsSelfZip
Const ForReading = 1, ForWriting = 2, ForAppending = 8
lbTudiNaVirtual=False

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"
End if

Set oTextFileIn = oFso.OpenTextFile(lsFilepath, ForReading)
lsReadLine = oTextFilein.ReadLine
lsReadLine=RTrim(Mid(lsReadLine,InStr(1,lsReadLine,"#",vbTextCompare )+1))
IF Right(lsReadLine,1)="\" Then
   lsReadLine=Left(lsReadLine, Len(lsReadLine)-1)
End IF
lsOdKod=WScript.ScriptFullName

IF Ucase(lsReadLine)=Ucase(Left(lsOdKod,Len(lsReadLine))) Then
   '* Kopiranje ni potrebno.
   WScript.Quit
End IF

IF (oFso.FolderExists(lsReadLine)) = False Then
   MsgBox "Pri kopiranju programa na mrežni disk je prišlo do napake, Mapa " & lsReadLine & " ne obstoja."
   WScript.Quit
End If

'* Pridobim UserName prijavljenega uporabnika
Dim strDomain ,lsUserName, objNet 
Set objNet = WScript.CreateObject("WScript.Network")
lsUserName = objNet.UserName

IF UCase(lsOdKod)=UCase("C:\Finesa.Xp\Bla\NaNet.Vbs") Then
   lsSelfZip = "AdeBl.exe"
   NarediMapoCeJeNi lsReadLine + "\Bla\"
   NarediMapoCeJeNi "C:\Finesa.Xp\Bla\ScriptSQL"
   oFso.CopyFile "C:\Finesa.Xp\Bla\Blagajna.Ade", lsReadLine + "\Bla\", True
   oFso.CopyFile "C:\Finesa.Xp\Bla\Blagajna.Chm", lsReadLine + "\Bla\", True
   oFso.CopyFolder "C:\Finesa.Xp\Bla\ScriptSQL", lsReadLine + "\Bla\", True
   IF lbTudiNaVirtual=True Then
      '* Mp 22.12.2009, da kopira na Virtulano postajo
      oFso.CopyFile "C:\Finesa.Xp\Bla\Blagajna.Ade", "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\Bla\", True
      oFso.CopyFile "C:\Finesa.Xp\Bla\Blagajna.Chm", "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\Bla\", True
      oFso.CopyFolder "C:\Finesa.Xp\Bla\ScriptSQL",  "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\Bla\", True
   End IF

ElseIF UCase(lsOdKod)=UCase("C:\Finesa.Xp\Bp\NaNet.Vbs") Then
   lsSelfZip = "AdeBp.exe"
   NarediMapoCeJeNi lsReadLine + "\Bp\"
   NarediMapoCeJeNi "C:\Finesa.Xp\Bp\ScriptSQL"
   oFso.CopyFile "C:\Finesa.Xp\Bp\Blagovno.Ade", lsReadLine + "\Bp\", True
   oFso.CopyFile "C:\Finesa.Xp\Bp\Blagovno.Chm", lsReadLine + "\Bp\", True
   oFso.CopyFolder "C:\Finesa.Xp\Bp\ScriptSQL",  lsReadLine + "\Bp\", True
   IF lbTudiNaVirtual=True Then
      '* Mp 22.12.2009, da kopira na Virtulano postajo
      oFso.CopyFile "C:\Finesa.Xp\Bp\Blagovno.Ade", "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\Bp\", True
      oFso.CopyFile "C:\Finesa.Xp\Bp\Blagovno.Chm", "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\Bp\", True
      oFso.CopyFolder "C:\Finesa.Xp\Bp\ScriptSQL",  "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\Bp\", True
   End IF

ElseIF UCase(lsOdKod)=UCase("C:\Finesa.Xp\Fa\NaNet.Vbs") Then
   lsSelfZip = "AdeFa.exe"
   NarediMapoCeJeNi lsReadLine + "\Fa\"
   NarediMapoCeJeNi "C:\Finesa.Xp\Fa\ScriptSQL"
   oFso.CopyFile "C:\Finesa.Xp\Fa\Fakture.Ade", lsReadLine + "\Fa\", True
   oFso.CopyFile "C:\Finesa.Xp\Fa\Fakture.Chm", lsReadLine + "\Fa\", True
   oFso.CopyFolder "C:\Finesa.Xp\Fa\ScriptSQL", lsReadLine + "\Fa\", True
   IF lbTudiNaVirtual=True Then
      '* Mp 22.12.2009, da kopira na Virtulano postajo
      oFso.CopyFile "C:\Finesa.Xp\Fa\Fakture.Ade", "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\Fa\", True
      oFso.CopyFile "C:\Finesa.Xp\Fa\Fakture.Chm", "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\Fa\", True
      oFso.CopyFolder "C:\Finesa.Xp\Fa\ScriptSQL", "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\Fa\", True
   End IF

ElseIF UCase(lsOdKod)=UCase("C:\Finesa.Xp\GkSk\NaNet.Vbs") Then
   lsSelfZip = "AdeGkSk.exe"
   NarediMapoCeJeNi lsReadLine + "\GkSk\"
   NarediMapoCeJeNi "C:\Finesa.Xp\GkSk\ScriptSQL"
   oFso.CopyFile "C:\Finesa.Xp\GkSk\GkSk.Ade", lsReadLine + "\GkSk\", True
   oFso.CopyFile "C:\Finesa.Xp\GkSk\GkSk.Chm", lsReadLine + "\GkSk\", True
   oFso.CopyFolder "C:\Finesa.Xp\GkSk\ScriptSQL", lsReadLine + "\GkSk\", True
   IF lbTudiNaVirtual=True Then
      '* Mp 22.12.2009, da kopira na Virtulano postajo
      oFso.CopyFile "C:\Finesa.Xp\GkSk\GkSk.Ade",    "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\GkSk\", True
      oFso.CopyFile "C:\Finesa.Xp\GkSk\GkSk.Chm",    "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\GkSk\", True
      oFso.CopyFolder "C:\Finesa.Xp\GkSk\ScriptSQL", "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\GkSk\", True
   End IF

ElseIF UCase(lsOdKod)=UCase("C:\Finesa.Xp\Os\NaNet.Vbs") Then
   lsSelfZip = "AdeOs.exe"
   NarediMapoCeJeNi lsReadLine + "\Os\"
   NarediMapoCeJeNi "C:\Finesa.Xp\Os\ScriptSQL"
   oFso.CopyFile "C:\Finesa.Xp\Os\Os.Ade", lsReadLine + "\Os\", True
   oFso.CopyFile "C:\Finesa.Xp\Os\Os.Chm", lsReadLine + "\Os\", True
   oFso.CopyFolder "C:\Finesa.Xp\Os\ScriptSQL", lsReadLine + "\Os\", True
   IF lbTudiNaVirtual=True Then
      '* Mp 22.12.2009, da kopira na Virtulano postajo
      oFso.CopyFile "C:\Finesa.Xp\Os\Os.Ade",      "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\Os\", True
      oFso.CopyFile "C:\Finesa.Xp\Os\Os.Chm",      "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\Os\", True
      oFso.CopyFolder "C:\Finesa.Xp\Os\ScriptSQL", "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\Os\", True
   End IF

ElseIF UCase(lsOdKod)=UCase("C:\Finesa.Xp\Di\NaNet.Vbs") Then
   lsSelfZip = "AdeDi.exe"
   NarediMapoCeJeNi lsReadLine + "\Di\"
   NarediMapoCeJeNi "C:\Finesa.Xp\Di\ScriptSQL"
   oFso.CopyFile "C:\Finesa.Xp\Di\Di.Ade", lsReadLine + "\Di\", True
   oFso.CopyFile "C:\Finesa.Xp\Di\Di.Chm", lsReadLine + "\Di\", True
   oFso.CopyFolder "C:\Finesa.Xp\Di\ScriptSQL", lsReadLine + "\Di\", True
   IF lbTudiNaVirtual=True Then
      '* Mp 22.12.2009, da kopira na Virtulano postajo
      oFso.CopyFile "C:\Finesa.Xp\Di\Di.Ade",      "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\Di\", True
      oFso.CopyFile "C:\Finesa.Xp\Di\Di.Chm",      "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\Di\", True
      oFso.CopyFolder "C:\Finesa.Xp\Di\ScriptSQL", "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\Di\", True
   End IF

ElseIF UCase(lsOdKod)=UCase("C:\Finesa.Xp\Pl\NaNet.Vbs") Then
   lsSelfZip = "AdePl.exe"
   NarediMapoCeJeNi lsReadLine + "\Pl\"
   NarediMapoCeJeNi "C:\Finesa.Xp\Pl\ScriptSQL"
   oFso.CopyFile "C:\Finesa.Xp\Pl\Place.Ade", lsReadLine + "\Pl\", True
   oFso.CopyFile "C:\Finesa.Xp\Pl\Place.Chm", lsReadLine + "\Pl\", True
   oFso.CopyFolder "C:\Finesa.Xp\Pl\ScriptSQL", lsReadLine + "\Pl\", True
   IF lbTudiNaVirtual=True Then
      '* Mp 22.12.2009, da kopira na Virtulano postajo
      oFso.CopyFile "C:\Finesa.Xp\Pl\Place.Ade",   "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\Pl\", True
      oFso.CopyFile "C:\Finesa.Xp\Pl\Place.Chm",   "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\Pl\", True
      oFso.CopyFolder "C:\Finesa.Xp\Pl\ScriptSQL", "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\Pl\", True
   End IF

ElseIF UCase(lsOdKod)=UCase("C:\Finesa.Xp\Projekti\NaNet.Vbs") Then
   lsSelfZip = "AdePr.exe"
   NarediMapoCeJeNi lsReadLine + "\Projekti\"
   NarediMapoCeJeNi "C:\Finesa.Xp\Projekti\ScriptSQL"
   oFso.CopyFile "C:\Finesa.Xp\Projekti\Projekti.Ade", lsReadLine + "\Projekti\", True
   oFso.CopyFile "C:\Finesa.Xp\Projekti\Projekti.Chm", lsReadLine + "\Projekti\", True
   oFso.CopyFolder "C:\Finesa.Xp\Projekti\ScriptSQL", lsReadLine + "\Projekti\", True
   IF lbTudiNaVirtual=True Then
      '* Mp 22.12.2009, da kopira na Virtulano postajo
      oFso.CopyFile "C:\Finesa.Xp\Projekti\Projekti.Ade", "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\Projekti\", True
      oFso.CopyFile "C:\Finesa.Xp\Projekti\Projekti.Chm", "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\Projekti\", True
      oFso.CopyFolder "C:\Finesa.Xp\Projekti\ScriptSQL",  "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\Projekti\", True
   End IF

ElseIF UCase(lsOdKod)=UCase("C:\Finesa.Xp\ProstorStFax\NaNet.Vbs") Then
   lsSelfZip = "AdeProstor.exe"
   NarediMapoCeJeNi lsReadLine + "\ProstorStFax\"
   NarediMapoCeJeNi "C:\Finesa.Xp\ProstorStFax\ScriptSQL"
   oFso.CopyFile "C:\Finesa.Xp\ProstorStFax\Prostor.Ade", lsReadLine + "\ProstorStFax\", True
   oFso.CopyFile "C:\Finesa.Xp\ProstorStFax\Prostor.Chm", lsReadLine + "\ProstorStFax\", True
   oFso.CopyFolder "C:\Finesa.Xp\ProstorStFax\ScriptSQL", lsReadLine + "\ProstorStFax\", True
   IF lbTudiNaVirtual=True Then
      '* Mp 22.12.2009, da kopira na Virtulano postajo
      oFso.CopyFile "C:\Finesa.Xp\ProstorStFax\Prostor.Ade", "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\ProstorStFax\", True
      oFso.CopyFile "C:\Finesa.Xp\ProstorStFax\Prostor.Chm", "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\ProstorStFax\", True
      oFso.CopyFolder "C:\Finesa.Xp\ProstorStFax\ScriptSQL", "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\ProstorStFax\", True
   End IF

ElseIF UCase(lsOdKod)=UCase("C:\Finesa.Xp\Ps\NaNet.Vbs") Then
   lsSelfZip = "AdePs.exe"
   NarediMapoCeJeNi lsReadLine + "\Ps\"
   NarediMapoCeJeNi "C:\Finesa.Xp\Ps\ScriptSQL"
   oFso.CopyFile "C:\Finesa.Xp\Ps\Ps.Ade", lsReadLine + "\Ps\", True
   oFso.CopyFile "C:\Finesa.Xp\Ps\Ps.Chm", lsReadLine + "\Ps\", True
   oFso.CopyFolder "C:\Finesa.Xp\Ps\ScriptSQL", lsReadLine + "\Ps\", True
   IF lbTudiNaVirtual=True Then
      '* Mp 22.12.2009, da kopira na Virtulano postajo
      oFso.CopyFile "C:\Finesa.Xp\Ps\Ps.Ade",      "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\Ps\", True
      oFso.CopyFile "C:\Finesa.Xp\Ps\Ps.Chm",      "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\Ps\", True
      oFso.CopyFolder "C:\Finesa.Xp\Ps\ScriptSQL", "C:\Documents and Settings\" + lsUserName  + "\Finesa.Xp\Ps\", True
   End IF
End If

'* Zaprem WinZipSelfExtract, če se ni že sam
sComputer = "."
Set oWmi = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")
Set colProcessList = oWmi.ExecQuery ("Select * from Win32_Process Where Name = '" & sProcessName & "'")
For Each oProcess in colProcessList
   oProcess.Terminate()
Next


'If Err.Number<>0 THEN
'   MsgBox "Pri kopiranju programa na mrežni disk (" & lsReadLine & ") je prišlo do napake."
'   WScript.Quit
'End IF

MsgBox "Program je posodobljen.",,"Posodobitev programa z www.finesa.si"


Function NarediMapoCeJeNi(argMapa)
   IF oFso.FolderExists( argMapa) = False Then
      oFso.CreateFolder(argMapa)
   End If
End Function