Option Explicit
Dim sh, fso, xml, node, stream, desktop, browser, profile, parentDir, iconPath, lnk, args, b64
Set sh = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

profile = sh.ExpandEnvironmentStrings("%LOCALAPPDATA%") & "\PKBGoldApps\member"
parentDir = fso.GetParentFolderName(profile)
If Not fso.FolderExists(parentDir) Then fso.CreateFolder parentDir
If Not fso.FolderExists(profile) Then fso.CreateFolder profile
iconPath = profile & "\app.ico"
b64 = "AAABAAEAMDAAAAEAIACoJQAAFgAAACgAAAAwAAAAYAAAAAEAIAAAAAAAgCUAAAAAAAAAAAAAAAAA" & _
  "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8+TRv/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  "AAAAAAAAPk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8A" & _
  "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/AAAAAAAAAAAAAAAAAAAAAD5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/wAAAAAAAAAA" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8AAAAAPk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8AAAAAPk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/J6LJ/yeiyf8nosn/J6LJ/yei" & _
  "yf8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/J6LJ/yeiyf8n" & _
  "osn/J6LJ/yeiyf8nosn/J6LJ/yeiyf8nosn/J6LJ/yeiyf8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8nosn/J6LJ/yeiyf8nosn/J6LJ/yeiyf8nosn/J6LJ/yeiyf8nosn/J6LJ/yeiyf8n" & _
  "osn/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/yeiyf8nosn/J6LJ/yeiyf8nosn/IioL/yIqC/8iKgv/" & _
  "IioL/yIqC/8nosn/J6LJ/yeiyf8nosn/J6LJ/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/J6LJ/yeiyf8nosn/J6LJ" & _
  "/yIqC/8iKgv/IioL/yIqC/8iKgv/IioL/yIqC/8iKgv/IioL/yeiyf8nosn/J6LJ/yeiyf8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8nosn/J6LJ/yeiyf8nosn/IioL/yIqC/8iKgv/IioL/yIqC/8iKgv/IioL/yIqC/8iKgv/IioL" & _
  "/yIqC/8nosn/J6LJ/yeiyf8nosn/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/yeiyf8nosn/J6LJ/yeiyf8iKgv/IioL/yIqC/8iKgv/IioL/yIq" & _
  "C/8iKgv/IioL/yIqC/8iKgv/IioL/yIqC/8iKgv/J6LJ/yeiyf8nosn/J6LJ/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/PUwb/zpIGv81Qxr/I5W5/yagx/8nosn/J6LJ/yIqC/8i" & _
  "Kgv/IioL/yIqC/8iKgv/IioL/yIqC/8iKgv/IioL/yIqC/8iKgv/IioL/yIqC/8iKgv/IioL/yei" & _
  "yf8nosn/J6LJ/yeiyf8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8zQhv/GT9G/x5afP8gZov/" & _
  "I2yQ/yF2nf8fhqz/IioL/yIqC/8iKgv/IioL/yIqC/8iKgv/IioL/yIqC/8iKgv/IioL/yIqC/8i" & _
  "Kgv/IioL/yIqC/8hKQv/IioL/yIqC/8nosn/J6LJ/yeiyf8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/zVEG/8dVnH/Jlls/wUUFf8EEBD/ETE3/w0mK/8gaon/Hj85/yIqC/8iKgv/IioL/yIqC/8iKgv/" & _
  "IioL/yIqC/8iKgv/IioL/yIqC/8iKgv/IioL/yIqC/8UKyn/I1Zj/yAsEv8nosn/J6LJ/yeiyf8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/M0Md/xlMYf8jXXb/I1Nk/yhfcP8bRVT/H1dp/yFXaP8TND7/Jnmc" & _
  "/x84K/8iKgv/IioL/yIqC/8iKgv/IioL/yIqC/8iKgv/IioL/yIqC/8iKgv/IioL/yIqC/8jU1X/" & _
  "H0tW/yZnef8iKgv/J6LJ/yeiyf8nosn/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/87Shv/Gk5k/x9def8peZ3/KWR6/y12" & _
  "k/9Gor7/L2+F/xpfgP8aYIH/GVdz/yl6mP8gLxj/HTAi/xxAQf8kMx3/ISkL/xgzMv8eODH/Fy4o" & _
  "/x0+Pv8ZNzj/Fzg4/xkyK/8dJg7/GT9M/yt9oP8bMyr/HHud/xt2l/8bcpH/Jzce/y5BI/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8t" & _
  "Ph//JWyK/w8uN/8ma4T/DTlR/ziNrv8rcY//CiUr/x9OWP8xbX3/L4am/xE6Rv8rZmv/FjEs/zmv" & _
  "3f8gKxD/ISkL/yRrhP8tcYT/KYSt/0Jzdf8qjbn/OnN4/y2Ksf8XUW3/PYaU/zFqfP8vfZ3/LniV" & _
  "/yttiv8tfJv/N4aj/zuJn/83WUf/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8mPiv/J2h8/xExOf9ApMr/L3iX/ziSt/9Sj57/Opi1/xpQYv8D" & _
  "DQ3/QZGn/wgcIP8+hpD/GDMw/1vP7/8zbH3/LWVt/zB4kP9Prs3/aayz/yAqDv9AnsD/O3qK/1Ki" & _
  "vP8/iqP/Qnp5/yU8LP9QfH3/V6S8/zl8mf9ets//U5Ca/1miuP89VTH/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8vRCb/ImqE/wsjKv8ibZH/" & _
  "TJ65/y9WYv9FhJn/JE9a/zF1hv85iqT/WaK0/wkkMP9cjIb/FzMw/4Li9P8UJyP/bszi/z6Hnv9n" & _
  "qrL/VImO/x4pEf9aqcD/Q25v/3fAz/8tUEz/gcHK/yArEv83Ym7/LaDE/yaexf9jtM//U4eK/zVf" & _
  "YP9klYz/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/89TBv/JGl8/wsyRv86cHr/DRwZ/zaCnf9Oud7/Vb7i/zJXWv8ZODv/PHWF/0x7iv83SC//" & _
  "HDk4/3m0tv9Fbnb/YIV7/0R2g/9YfXb/PGVs/0lrbP9ck5z/U36H/3mhnP8mMBP/RmNW/2ORkf8j" & _
  "XXv/SbLR/yeiyf9AWjX/b5iR/zlRK/9njHr/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/OUwh/ydlcP8VS2D/CBQQ/1KasP9nwd3/T7LV" & _
  "/ypRVv8QKzP/UYKN/0VaRP8iKgv/IioL/yIqC/8iKgv/IioL/yIqC/8iKgv/IioL/yIqC/8iKgv/" & _
  "IioL/yIqC/8iKgv/IioL/ycwFP9Drc7/J6LJ/yeiyf8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8qa3b/EDVD/wkVEf8wVl7/Ficl/wkcI/9gobP/L6bL/yIqC/8iKgv/IioL/yIqC/8iKgv/IioL" & _
  "/yIqC/8iKgv/IioL/yIqC/8iKgv/IioL/yIqC/8iKgv/IioL/yeiyf8nosn/J6LJ/yeiyf8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/88TBz/Om1i/zx+if9BfYn/UIeN/1+81f8yp8z/J6LJ/yei" & _
  "yf8iKgv/IioL/yIqC/8iKgv/IioL/yIqC/8iKgv/IioL/yIqC/8iKgv/IioL/yIqC/8iKgv/J6LJ" & _
  "/yeiyf8nosn/J6LJ/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8nosn/J6LJ/yeiyf8nosn/IioL/yIqC/8iKgv/IioL/yIqC/8iKgv/IioL/yIq" & _
  "C/8iKgv/IioL/yIqC/8nosn/J6LJ/yeiyf8nosn/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/J6LJ/yeiyf8nosn/J6LJ/yIqC/8i" & _
  "Kgv/IioL/yIqC/8iKgv/IioL/yIqC/8iKgv/IioL/yeiyf8nosn/J6LJ/yeiyf8+TRv/Pk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/yeiyf8nosn/J6LJ/yeiyf8nosn/IioL/yIqC/8iKgv/IioL/yIqC/8nosn/J6LJ/yeiyf8n" & _
  "osn/J6LJ/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8nosn/J6LJ/yeiyf8nosn/J6LJ/yeiyf8nosn/" & _
  "J6LJ/yeiyf8nosn/J6LJ/yeiyf8nosn/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/J6LJ" & _
  "/yeiyf8nosn/J6LJ/yeiyf8nosn/J6LJ/yeiyf8nosn/J6LJ/yeiyf8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/J6LJ/yeiyf8nosn/J6LJ/yeiyf8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8AAAAAPk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8AAAAAPk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8AAAAAPk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8AAAAAAAAAAD5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/wAAAAAAAAAA" & _
  "AAAAAAAAAAA+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5N" & _
  "G/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  "AD5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/wAAAAAAAAAAAAAAAAAA" & _
  "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+" & _
  "TRv/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  "AAA+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b" & _
  "/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/Pk0b/z5NG/8+TRv/" & _
  "Pk0b/z5NG/8+TRv/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA="

If b64 <> "" Then
  On Error Resume Next
  Set xml = CreateObject("MSXML2.DOMDocument.6.0")
  If xml Is Nothing Then Set xml = CreateObject("MSXML2.DOMDocument.3.0")
  Set node = xml.createElement("b64")
  node.dataType = "bin.base64"
  node.text = b64
  Set stream = CreateObject("ADODB.Stream")
  stream.Type = 1
  stream.Open
  stream.Write node.nodeTypedValue
  stream.SaveToFile iconPath, 2
  stream.Close
  On Error GoTo 0
End If

browser = ""
If fso.FileExists(sh.ExpandEnvironmentStrings("%ProgramFiles(x86)%") & "\Microsoft\Edge\Application\msedge.exe") Then
  browser = sh.ExpandEnvironmentStrings("%ProgramFiles(x86)%") & "\Microsoft\Edge\Application\msedge.exe"
ElseIf fso.FileExists(sh.ExpandEnvironmentStrings("%ProgramFiles%") & "\Microsoft\Edge\Application\msedge.exe") Then
  browser = sh.ExpandEnvironmentStrings("%ProgramFiles%") & "\Microsoft\Edge\Application\msedge.exe"
ElseIf fso.FileExists(sh.ExpandEnvironmentStrings("%ProgramFiles%") & "\Google\Chrome\Application\chrome.exe") Then
  browser = sh.ExpandEnvironmentStrings("%ProgramFiles%") & "\Google\Chrome\Application\chrome.exe"
ElseIf fso.FileExists(sh.ExpandEnvironmentStrings("%ProgramFiles(x86)%") & "\Google\Chrome\Application\chrome.exe") Then
  browser = sh.ExpandEnvironmentStrings("%ProgramFiles(x86)%") & "\Google\Chrome\Application\chrome.exe"
ElseIf fso.FileExists(sh.ExpandEnvironmentStrings("%LocalAppData%") & "\Google\Chrome\Application\chrome.exe") Then
  browser = sh.ExpandEnvironmentStrings("%LocalAppData%") & "\Google\Chrome\Application\chrome.exe"
End If

If browser = "" Then
  sh.Run "https://pkbgold.com/login.php"
  WScript.Quit 1
End If

args = "--app=""https://pkbgold.com/login.php"" --user-data-dir=""" & profile & """ --no-first-run --no-default-browser-check --disable-features=TranslateUI"
desktop = sh.SpecialFolders("Desktop")
If desktop = "" Then desktop = sh.ExpandEnvironmentStrings("%USERPROFILE%") & "\Desktop"
If Not fso.FolderExists(desktop) Then desktop = sh.ExpandEnvironmentStrings("%USERPROFILE%")

Set lnk = sh.CreateShortcut(desktop & "\PKB GOLD Login.lnk")
lnk.TargetPath = browser
lnk.Arguments = args
lnk.WorkingDirectory = fso.GetParentFolderName(browser)
lnk.WindowStyle = 1
lnk.Description = "PKB GOLD Login"
If fso.FileExists(iconPath) Then
  lnk.IconLocation = iconPath & ",0"
Else
  lnk.IconLocation = browser & ",0"
End If
lnk.Save

sh.Run """" & browser & """ " & args, 1, False