mmfere.blogg.se

If CompareVersions( Version2, Version1 ) = 1 Thenįunction GetNetworkPaperCutVersion( Path )ĭim strFilePath, strKey, strLeftString, strLine, strSection Version2 = Replace( f1.name, "pc-client.exe-","") If InStr(1, f1.name, "pc-client.exe-") > 0 then Set fs = CreateObject("Scripting.FileSystemObject") WshShell.Run ClientToExecute & " " & ClientArguments If objFSO.FileExists(ClientToExecute) Then Wscript.Echo "Client To Execute: " & ClientToExecute Set objFSO = CreateObject( "Scripting.FileSystemObject" ) network not foundĬlientToExecute = PapercutCachePath & "\pc-client.exe-" & LocalVersion & "\pc-client.exe"ĬlientToExecute = PapercutPath & "\pc-client-local-cache.exe" ' Local Version 'newer' then network i.e. Select Case CompareVersions( NetworkVersion, LocalVersion ) Wscript.Echo "Network: " & NetworkVersion

NetworkVersion = GetNetworkPaperCutVersion(PapercutPath) LocalVersion = GetLocalPaperCutVersion(PapercutCachePath) PapercutPath = "\\printserver\pcclient\win"ĬlientArguments = " -silent -minimized -neverrequestidentity"

Set WshShell = WScript.CreateObject("WScript.Shell")