QuickWho

Hex Artifact Content
Login

Artifact 1888b902a0d0be361f9632616e2b4be1e2a87294:


0000: 40 65 63 68 6f 20 6f 66 66 0a 3a 3a 63 6f 6e 66  @echo off.::conf
0010: 69 67 75 72 65 20 61 6e 64 20 69 6e 73 74 61 6c  igure and instal
0020: 6c 20 61 70 70 20 66 69 6c 65 73 0a 73 65 74 20  l app files.set 
0030: 69 6e 73 74 61 6c 6c 5f 64 69 72 3d 22 25 61 70  install_dir="%ap
0040: 70 64 61 74 61 25 5c 51 75 69 63 6b 57 68 6f 5f  pdata%\QuickWho_
0050: 41 70 70 5c 22 0a 73 65 74 20 63 6f 6e 66 69 67  App\".set config
0060: 5f 64 69 72 3d 22 25 61 70 70 64 61 74 61 25 5c  _dir="%appdata%\
0070: 51 75 69 63 6b 57 68 6f 5c 22 0a 73 65 74 20 63  QuickWho\".set c
0080: 6f 6e 66 69 67 0a 69 66 20 6e 6f 74 20 65 78 69  onfig.if not exi
0090: 73 74 20 25 69 6e 73 74 61 6c 6c 5f 64 69 72 25  st %install_dir%
00a0: 20 28 0a 6d 6b 64 69 72 20 25 69 6e 73 74 61 6c   (.mkdir %instal
00b0: 6c 5f 64 69 72 25 0a 29 0a 20 0a 69 66 20 6e 6f  l_dir%.). .if no
00c0: 74 20 65 78 69 73 74 20 25 63 6f 6e 66 69 67 5f  t exist %config_
00d0: 64 69 72 25 20 28 0a 6d 6b 64 69 72 20 25 63 6f  dir% (.mkdir %co
00e0: 6e 66 69 67 5f 64 69 72 25 0a 29 0a 63 61 6c 6c  nfig_dir%.).call
00f0: 20 37 7a 61 20 20 78 20 71 75 69 63 6b 77 68 6f   7za  x quickwho
0100: 2e 7a 69 70 0a 78 63 6f 70 79 20 62 69 6e 20 25  .zip.xcopy bin %
0110: 69 6e 73 74 61 6c 6c 5f 64 69 72 25 5c 62 69 6e  install_dir%\bin
0120: 20 2f 73 20 2f 69 20 2f 79 0a 78 63 6f 70 79 20   /s /i /y.xcopy 
0130: 6c 69 62 20 25 69 6e 73 74 61 6c 6c 5f 64 69 72  lib %install_dir
0140: 25 5c 6c 69 62 20 2f 73 20 2f 69 20 2f 79 0a 78  %\lib /s /i /y.x
0150: 63 6f 70 79 20 71 75 69 63 6b 77 68 6f 20 25 69  copy quickwho %i
0160: 6e 73 74 61 6c 6c 5f 64 69 72 25 5c 71 75 69 63  nstall_dir%\quic
0170: 6b 77 68 6f 20 2f 73 20 2f 69 20 2f 79 0a 63 6f  kwho /s /i /y.co
0180: 70 79 20 2f 59 20 75 6e 69 6e 73 74 61 6c 6c 2e  py /Y uninstall.
0190: 62 61 74 20 25 63 6f 6e 66 69 67 5f 64 69 72 25  bat %config_dir%
01a0: 5c 0a 63 6f 70 79 20 2f 59 20 71 75 69 63 6b 77  \.copy /Y quickw
01b0: 68 6f 2e 69 63 6f 20 25 63 6f 6e 66 69 67 5f 64  ho.ico %config_d
01c0: 69 72 25 5c 0a 0a 3a 3a 74 65 73 74 20 66 6f 72  ir%\..::test for
01d0: 20 6b 65 79 2c 20 61 64 64 20 74 6f 20 72 65 67   key, add to reg
01e0: 69 73 74 72 79 0a 72 65 67 20 71 75 65 72 79 20  istry.reg query 
01f0: 22 48 4b 45 59 5f 43 55 52 52 45 4e 54 5f 55 53  "HKEY_CURRENT_US
0200: 45 52 5c 53 4f 46 54 57 41 52 45 5c 4d 69 63 72  ER\SOFTWARE\Micr
0210: 6f 73 6f 66 74 5c 57 69 6e 64 6f 77 73 5c 43 75  osoft\Windows\Cu
0220: 72 72 65 6e 74 56 65 72 73 69 6f 6e 5c 41 70 70  rrentVersion\App
0230: 20 50 61 74 68 73 5c 51 75 69 63 6b 57 68 6f 2e   Paths\QuickWho.
0240: 65 78 65 22 0a 69 66 20 65 72 72 6f 72 6c 65 76  exe".if errorlev
0250: 65 6c 20 30 20 28 0a 72 65 67 20 64 65 6c 65 74  el 0 (.reg delet
0260: 65 20 22 48 4b 45 59 5f 43 55 52 52 45 4e 54 5f  e "HKEY_CURRENT_
0270: 55 53 45 52 5c 53 4f 46 54 57 41 52 45 5c 4d 69  USER\SOFTWARE\Mi
0280: 63 72 6f 73 6f 66 74 5c 57 69 6e 64 6f 77 73 5c  crosoft\Windows\
0290: 43 75 72 72 65 6e 74 56 65 72 73 69 6f 6e 5c 41  CurrentVersion\A
02a0: 70 70 20 50 61 74 68 73 5c 51 75 69 63 6b 57 68  pp Paths\QuickWh
02b0: 6f 2e 65 78 65 22 20 2f 66 0a 29 0a 72 65 67 20  o.exe" /f.).reg 
02c0: 61 64 64 20 22 48 4b 45 59 5f 43 55 52 52 45 4e  add "HKEY_CURREN
02d0: 54 5f 55 53 45 52 5c 53 4f 46 54 57 41 52 45 5c  T_USER\SOFTWARE\
02e0: 4d 69 63 72 6f 73 6f 66 74 5c 57 69 6e 64 6f 77  Microsoft\Window
02f0: 73 5c 43 75 72 72 65 6e 74 56 65 72 73 69 6f 6e  s\CurrentVersion
0300: 5c 41 70 70 20 50 61 74 68 73 5c 51 75 69 63 6b  \App Paths\Quick
0310: 57 68 6f 2e 65 78 65 22 20 2f 66 0a 72 65 67 20  Who.exe" /f.reg 
0320: 61 64 64 20 22 48 4b 45 59 5f 43 55 52 52 45 4e  add "HKEY_CURREN
0330: 54 5f 55 53 45 52 5c 53 4f 46 54 57 41 52 45 5c  T_USER\SOFTWARE\
0340: 4d 69 63 72 6f 73 6f 66 74 5c 57 69 6e 64 6f 77  Microsoft\Window
0350: 73 5c 43 75 72 72 65 6e 74 56 65 72 73 69 6f 6e  s\CurrentVersion
0360: 5c 41 70 70 20 50 61 74 68 73 5c 51 75 69 63 6b  \App Paths\Quick
0370: 57 68 6f 2e 65 78 65 22 20 20 2f 76 65 20 2f 64  Who.exe"  /ve /d
0380: 20 22 25 61 70 70 64 61 74 61 25 5c 51 75 69 63   "%appdata%\Quic
0390: 6b 57 68 6f 5f 41 70 70 5c 71 75 69 63 6b 77 68  kWho_App\quickwh
03a0: 6f 5c 51 75 69 63 6b 57 68 6f 2e 65 78 65 22 20  o\QuickWho.exe" 
03b0: 2f 66 0a 20 0a 72 65 67 20 61 64 64 20 22 48 4b  /f. .reg add "HK
03c0: 45 59 5f 43 55 52 52 45 4e 54 5f 55 53 45 52 5c  EY_CURRENT_USER\
03d0: 53 4f 46 54 57 41 52 45 5c 4d 69 63 72 6f 73 6f  SOFTWARE\Microso
03e0: 66 74 5c 57 69 6e 64 6f 77 73 5c 43 75 72 72 65  ft\Windows\Curre
03f0: 6e 74 56 65 72 73 69 6f 6e 5c 55 6e 69 6e 73 74  ntVersion\Uninst
0400: 61 6c 6c 5c 51 75 69 63 6b 57 68 6f 22 20 2f 66  all\QuickWho" /f
0410: 0a 72 65 67 20 61 64 64 20 22 48 4b 45 59 5f 43  .reg add "HKEY_C
0420: 55 52 52 45 4e 54 5f 55 53 45 52 5c 53 4f 46 54  URRENT_USER\SOFT
0430: 57 41 52 45 5c 4d 69 63 72 6f 73 6f 66 74 5c 57  WARE\Microsoft\W
0440: 69 6e 64 6f 77 73 5c 43 75 72 72 65 6e 74 56 65  indows\CurrentVe
0450: 72 73 69 6f 6e 5c 55 6e 69 6e 73 74 61 6c 6c 5c  rsion\Uninstall\
0460: 51 75 69 63 6b 57 68 6f 22 20 2f 66 20 2f 76 20  QuickWho" /f /v 
0470: 22 44 69 73 70 6c 61 79 49 63 6f 6e 22 20 2f 74  "DisplayIcon" /t
0480: 20 52 45 47 5f 53 5a 20 2f 64 20 22 25 61 70 70   REG_SZ /d "%app
0490: 64 61 74 61 25 5c 51 75 69 63 6b 57 68 6f 5c 71  data%\QuickWho\q
04a0: 75 69 63 6b 77 68 6f 2e 69 63 6f 22 0a 72 65 67  uickwho.ico".reg
04b0: 20 61 64 64 20 22 48 4b 45 59 5f 43 55 52 52 45   add "HKEY_CURRE
04c0: 4e 54 5f 55 53 45 52 5c 53 4f 46 54 57 41 52 45  NT_USER\SOFTWARE
04d0: 5c 4d 69 63 72 6f 73 6f 66 74 5c 57 69 6e 64 6f  \Microsoft\Windo
04e0: 77 73 5c 43 75 72 72 65 6e 74 56 65 72 73 69 6f  ws\CurrentVersio
04f0: 6e 5c 55 6e 69 6e 73 74 61 6c 6c 5c 51 75 69 63  n\Uninstall\Quic
0500: 6b 57 68 6f 22 20 2f 66 20 2f 76 20 22 44 69 73  kWho" /f /v "Dis
0510: 70 6c 61 79 4e 61 6d 65 22 20 2f 74 20 52 45 47  playName" /t REG
0520: 5f 53 5a 20 2f 64 20 22 51 75 69 63 6b 57 68 6f  _SZ /d "QuickWho
0530: 22 0a 72 65 67 20 61 64 64 20 22 48 4b 45 59 5f  ".reg add "HKEY_
0540: 43 55 52 52 45 4e 54 5f 55 53 45 52 5c 53 4f 46  CURRENT_USER\SOF
0550: 54 57 41 52 45 5c 4d 69 63 72 6f 73 6f 66 74 5c  TWARE\Microsoft\
0560: 57 69 6e 64 6f 77 73 5c 43 75 72 72 65 6e 74 56  Windows\CurrentV
0570: 65 72 73 69 6f 6e 5c 55 6e 69 6e 73 74 61 6c 6c  ersion\Uninstall
0580: 5c 51 75 69 63 6b 57 68 6f 22 20 2f 66 20 2f 76  \QuickWho" /f /v
0590: 20 22 49 6e 73 74 61 6c 6c 4c 6f 63 61 74 69 6f   "InstallLocatio
05a0: 6e 22 20 2f 74 20 52 45 47 5f 53 5a 20 2f 64 20  n" /t REG_SZ /d 
05b0: 22 25 69 6e 73 74 61 6c 6c 5f 64 69 72 25 22 0a  "%install_dir%".
05c0: 0a 72 65 67 20 61 64 64 20 22 48 4b 45 59 5f 43  .reg add "HKEY_C
05d0: 55 52 52 45 4e 54 5f 55 53 45 52 5c 53 4f 46 54  URRENT_USER\SOFT
05e0: 57 41 52 45 5c 4d 69 63 72 6f 73 6f 66 74 5c 57  WARE\Microsoft\W
05f0: 69 6e 64 6f 77 73 5c 43 75 72 72 65 6e 74 56 65  indows\CurrentVe
0600: 72 73 69 6f 6e 5c 55 6e 69 6e 73 74 61 6c 6c 5c  rsion\Uninstall\
0610: 51 75 69 63 6b 57 68 6f 22 20 2f 66 20 2f 76 20  QuickWho" /f /v 
0620: 22 50 75 62 6c 69 73 68 65 72 22 20 2f 74 20 52  "Publisher" /t R
0630: 45 47 5f 53 5a 20 2f 64 20 22 57 6f 72 64 54 65  EG_SZ /d "WordTe
0640: 63 68 20 43 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e  ch Communication
0650: 73 20 4c 4c 43 22 0a 72 65 67 20 61 64 64 20 22  s LLC".reg add "
0660: 48 4b 45 59 5f 43 55 52 52 45 4e 54 5f 55 53 45  HKEY_CURRENT_USE
0670: 52 5c 53 4f 46 54 57 41 52 45 5c 4d 69 63 72 6f  R\SOFTWARE\Micro
0680: 73 6f 66 74 5c 57 69 6e 64 6f 77 73 5c 43 75 72  soft\Windows\Cur
0690: 72 65 6e 74 56 65 72 73 69 6f 6e 5c 55 6e 69 6e  rentVersion\Unin
06a0: 73 74 61 6c 6c 5c 51 75 69 63 6b 57 68 6f 22 20  stall\QuickWho" 
06b0: 2f 66 20 2f 76 20 22 49 6e 73 74 61 6c 6c 44 61  /f /v "InstallDa
06c0: 74 65 22 20 2f 74 20 52 45 47 5f 53 5a 20 2f 64  te" /t REG_SZ /d
06d0: 20 25 44 41 54 45 25 0a 72 65 67 20 61 64 64 20   %DATE%.reg add 
06e0: 22 48 4b 45 59 5f 43 55 52 52 45 4e 54 5f 55 53  "HKEY_CURRENT_US
06f0: 45 52 5c 53 4f 46 54 57 41 52 45 5c 4d 69 63 72  ER\SOFTWARE\Micr
0700: 6f 73 6f 66 74 5c 57 69 6e 64 6f 77 73 5c 43 75  osoft\Windows\Cu
0710: 72 72 65 6e 74 56 65 72 73 69 6f 6e 5c 55 6e 69  rrentVersion\Uni
0720: 6e 73 74 61 6c 6c 5c 51 75 69 63 6b 57 68 6f 22  nstall\QuickWho"
0730: 20 2f 66 20 2f 76 20 22 56 65 72 73 69 6f 6e 22   /f /v "Version"
0740: 20 2f 74 20 52 45 47 5f 53 5a 20 2f 64 20 36 2e   /t REG_SZ /d 6.
0750: 30 2e 30 0a 20 0a 72 65 67 20 61 64 64 20 22 48  0.0. .reg add "H
0760: 4b 45 59 5f 43 55 52 52 45 4e 54 5f 55 53 45 52  KEY_CURRENT_USER
0770: 5c 53 4f 46 54 57 41 52 45 5c 4d 69 63 72 6f 73  \SOFTWARE\Micros
0780: 6f 66 74 5c 57 69 6e 64 6f 77 73 5c 43 75 72 72  oft\Windows\Curr
0790: 65 6e 74 56 65 72 73 69 6f 6e 5c 55 6e 69 6e 73  entVersion\Unins
07a0: 74 61 6c 6c 5c 51 75 69 63 6b 57 68 6f 22 20 2f  tall\QuickWho" /
07b0: 66 20 2f 76 20 22 55 6e 69 6e 73 74 61 6c 6c 53  f /v "UninstallS
07c0: 74 72 69 6e 67 22 20 2f 74 20 52 45 47 5f 53 5a  tring" /t REG_SZ
07d0: 20 2f 64 20 22 63 6d 64 20 2f 63 20 25 61 70 70   /d "cmd /c %app
07e0: 64 61 74 61 25 5c 51 75 69 63 6b 57 68 6f 5c 75  data%\QuickWho\u
07f0: 6e 69 6e 73 74 61 6c 6c 2e 62 61 74 22 0a 20 0a  ninstall.bat". .
0800: 3a 3a 61 64 64 20 74 6f 20 73 74 61 72 74 20 6d  ::add to start m
0810: 65 6e 75 0a 73 65 74 20 73 74 61 72 74 64 69 72  enu.set startdir
0820: 3d 22 25 61 70 70 64 61 74 61 25 5c 4d 69 63 72  ="%appdata%\Micr
0830: 6f 73 6f 66 74 5c 57 69 6e 64 6f 77 73 5c 53 74  osoft\Windows\St
0840: 61 72 74 20 4d 65 6e 75 5c 51 75 69 63 6b 57 68  art Menu\QuickWh
0850: 6f 5c 22 0a 0a 69 66 20 6e 6f 74 20 65 78 69 73  o\"..if not exis
0860: 74 20 25 73 74 61 72 74 64 69 72 25 20 28 0a 6d  t %startdir% (.m
0870: 6b 64 69 72 20 25 73 74 61 72 74 64 69 72 25 0a  kdir %startdir%.
0880: 29 0a 63 64 20 25 73 74 61 72 74 64 69 72 25 0a  ).cd %startdir%.
0890: 0a 3a 3a 6d 6b 6c 69 6e 6b 20 2f 48 20 51 75 69  .::mklink /H Qui
08a0: 63 6b 57 68 6f 2e 65 78 65 20 22 25 61 70 70 64  ckWho.exe "%appd
08b0: 61 74 61 25 5c 51 75 69 63 6b 57 68 6f 5f 41 70  ata%\QuickWho_Ap
08c0: 70 5c 71 75 69 63 6b 77 68 6f 5c 51 75 69 63 6b  p\quickwho\Quick
08d0: 57 68 6f 2e 65 78 65 22 0a 0a 65 63 68 6f 20 53  Who.exe"..echo S
08e0: 65 74 20 6f 57 53 20 3d 20 57 53 63 72 69 70 74  et oWS = WScript
08f0: 2e 43 72 65 61 74 65 4f 62 6a 65 63 74 28 22 57  .CreateObject("W
0900: 53 63 72 69 70 74 2e 53 68 65 6c 6c 22 29 20 3e  Script.Shell") >
0910: 25 74 65 6d 70 25 5c 6c 69 6e 6b 2e 76 62 73 0a  %temp%\link.vbs.
0920: 65 63 68 6f 20 73 4c 69 6e 6b 46 69 6c 65 20 3d  echo sLinkFile =
0930: 20 22 51 75 69 63 6b 57 68 6f 2e 6c 6e 6b 22 20   "QuickWho.lnk" 
0940: 3e 3e 20 20 25 74 65 6d 70 25 5c 6c 69 6e 6b 2e  >>  %temp%\link.
0950: 76 62 73 0a 65 63 68 6f 20 53 65 74 20 6f 4c 69  vbs.echo Set oLi
0960: 6e 6b 20 3d 20 6f 57 53 2e 43 72 65 61 74 65 53  nk = oWS.CreateS
0970: 68 6f 72 74 63 75 74 28 73 4c 69 6e 6b 46 69 6c  hortcut(sLinkFil
0980: 65 29 20 3e 3e 20 20 25 74 65 6d 70 25 5c 6c 69  e) >>  %temp%\li
0990: 6e 6b 2e 76 62 73 0a 65 63 68 6f 20 6f 4c 69 6e  nk.vbs.echo oLin
09a0: 6b 2e 54 61 72 67 65 74 50 61 74 68 20 3d 20 22  k.TargetPath = "
09b0: 25 61 70 70 64 61 74 61 25 5c 51 75 69 63 6b 57  %appdata%\QuickW
09c0: 68 6f 5f 41 70 70 5c 71 75 69 63 6b 77 68 6f 5c  ho_App\quickwho\
09d0: 51 75 69 63 6b 57 68 6f 2e 65 78 65 22 20 3e 3e  QuickWho.exe" >>
09e0: 20 25 74 65 6d 70 25 5c 6c 69 6e 6b 2e 76 62 73   %temp%\link.vbs
09f0: 0a 65 63 68 6f 20 6f 4c 69 6e 6b 2e 53 61 76 65  .echo oLink.Save
0a00: 20 3e 3e 20 20 25 74 65 6d 70 25 5c 6c 69 6e 6b   >>  %temp%\link
0a10: 2e 76 62 73 0a 63 61 6c 6c 20 20 25 74 65 6d 70  .vbs.call  %temp
0a20: 25 5c 6c 69 6e 6b 2e 76 62 73 0a 64 65 6c 20 25  %\link.vbs.del %
0a30: 74 65 6d 70 25 5c 6c 69 6e 6b 2e 76 62 73 0a 0a  temp%\link.vbs..
0a40: 63 64 20 43 3a 5c 55 73 65 72 73 5c 25 75 73 65  cd C:\Users\%use
0a50: 72 6e 61 6d 65 25 5c 44 65 73 6b 74 6f 70 0a 65  rname%\Desktop.e
0a60: 63 68 6f 20 44 6f 6e 65 2e                       cho Done.