Płatnik start skrypt vbs

Po uruchomieniu Płatnika ZUS , system wyświetla nam domyślnie tabele z wszystkimi dokumentami. W przypadku dużej ilości dokumentów w bazie np 200 tys (np dział kadr i płac nie chcą archiwizować dokumentów), można zastosować skrypt, który domyślnie wyświetli nam tabele ubezpieczonych zamiast  tabele z wszystkimi dokumentami ograniczy to spowolnienie wykonywania zapytań przez innych użytkowników do bazy przez co wpłynie to na dostępność i wydajność.

Skrypt startowy Windows 7/XP 32 bit

Dim shell
Sub Run(ByVal sFile)

Const HKEY_CURRENT_USER = &H80000001

strComputer = "."

Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

strKeyPath = "Software\Asseco Poland SA\Płatnik\9.01.001\Hoover"
strValueName = "Nazwa Elementu"
strValue = "WidokRejestrUbezp"

objRegistry.SetExpandedStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue


Set shell = CreateObject("WScript.Shell")

shell.Run Chr(34) & sFile & Chr(34), 1, false
Set shell = Nothing

End Sub
Run "C:\Program Files\Asseco Poland SA\Płatnik\P2.exe"