home *** CD-ROM | disk | FTP | other *** search
/ Compilation of drivers fo…old hardware for windows / drivers20000.iso / A0800 / HKUNINST.VBS < prev    next >
Encoding:
Text File  |  2006-03-31  |  4.5 KB  |  193 lines
  1. '
  2. ' uninst.vbs
  3. '
  4. '   -z unattEnd mode ( Do not reboot automatically )
  5. '   -ro Run from RunOnce
  6. '
  7. '   Un installer for hotkey manager
  8. '     * Display Confirm message
  9. '     * Delete 'Hotkey' Entrty in registry
  10. '          HKLM\Software\Microsoft\Windows\CurrentVersion\Run\
  11. '     * Register this file to 
  12. '          HKLM\Software\Microsoft\Windows\CurrentVersion\RunOnce
  13. '     * Ask user reboot system
  14. '     When execute from RunOnce
  15. '     * Delete hkeyman.exe at system directory
  16. '        ( System directory is C:\WINNT\SYSTEM32 or C:\Windows\system )
  17. '
  18.  
  19. On Error Resume Next
  20.  
  21. '//
  22. '// Global variables
  23. '//
  24.  
  25. '// Registry 'Run' entry
  26. RegRun         = "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Hotkey"
  27. RegRunServices = "HKLM\Software\Microsoft\Windows\CurrentVersion\RunServices\Hotkey"
  28. RegRunOnce     = "HKLM\Software\Microsoft\Windows\CurrentVersion\RunOnce"
  29. RegUninst      = "HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\PanasonicHotkeyDriver\"
  30. RegUninstDummy = "HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\PanasonicHotkeyDriver\dummy"
  31.  
  32. '// Setup Flag
  33. UnattEndMode= False
  34.  
  35. '// Confirm Message
  36. strConfirmMessage_M   = "Are you sure you want to completely remove 'Hotkey Manager' and all its components?"
  37.  
  38. strConfirmMessage_J   = "'Hotkey Manager'é╞é╗é╠âRâôâ|ü[âlâôâgé≡æSé─ìφÅ£é╡é▄é╖é⌐üH"
  39.  
  40. strConfirmTitle_M      = "Remove Hotkey Manager"
  41. strConfirmTitle_J      = "Hotkey Manager ìφÅ£"
  42.  
  43. '// Reboot Message
  44. strRebootMessage_M    = "You must restart computer manually before the new settings will take effect."
  45.  
  46. strRebootMessage_J    = "âAâôâCâôâXâgü[âïé≡è«ù╣é╖éΘé╔é═âRâôâsâàü[â^é≡ì─ïNô«é╡é─é¡é╛é│éó"
  47.  
  48. strRebootTitle_M      = "System Setting Change"
  49. strReboottitle_J      = "âVâXâeâÇÉ▌ÆΦò╧ìX"
  50.  
  51. Dim WshShell
  52. Set WshShell = Wscript.CreateObject("Wscript.Shell")
  53. Set WshArgs  = Wscript.Arguments
  54. Set objFileSys      = CreateObject("Scripting.FileSystemObject")
  55.  
  56. If WshArgs.Count <> 0 Then
  57.  strOption = WshArgs.Item(0)
  58.  If strOption="-z" Then
  59.      UnattEndMode = True
  60.  elseIf strOption="-ro" Then
  61.      call AtRunOnce()
  62.      Wscript.Quit
  63.  End If
  64. End If 
  65.  
  66. '//
  67. '// Display Comfirm message
  68. '//
  69. If Confirm() = vbNo Then
  70.   Wscript.Quit
  71. End If
  72.  
  73. '//
  74. '// Delete 'Hotkey' Entrty in registry
  75. '//
  76. call DeleteHotkey()
  77.  
  78. '//
  79. '// Register this file to 
  80. '//
  81. call RegisterThisFile()
  82.  
  83. '//
  84. '// Reboot
  85. '//
  86. call ManualReboot()
  87.  
  88. '//
  89. '// Quit
  90. '//
  91. Wscript.Quit
  92.  
  93.  
  94. '//
  95. '// Confirm
  96. '//
  97. Function Confirm()
  98.   '// Local 1041 is Japanese
  99.   LocalId = GetLocale()
  100.   If LocalId = 1041 Then
  101.     strConfirmMessage =  strConfirmMessage_J
  102.     strConfirmTitle   =  strConfirmTitle_J
  103.   else
  104.     strConfirmMessage =  strConfirmMessage_M
  105.     strConfirmTitle   =  strConfirmTitle_M
  106.   End If 
  107.  
  108.   Confirm = vbNo
  109.   If UnattEndMode then
  110.      Confirm = vbYes
  111.   else
  112.      Confirm = WshShell.Popup( strConfirmMessage,,strConfirmTitle, vbYesNo)
  113.   End If
  114. End Function
  115.  
  116. '// 
  117. '// Delete Hotkey
  118. '//
  119. Sub DeleteHotkey()
  120. On Error Resume Next
  121.  
  122.   '// Read Hotkey
  123.   '//
  124.   Hkeyman = WshShell.RegRead(RegRun)
  125.  
  126.   If Hkeyman <> Empty Then
  127.     '// Delete key
  128.     WshShell.RegDelete RegRun
  129.   End If
  130.  
  131.   '// Read Hotkey( for Me )
  132.   '//
  133.   Hkeyman = WshShell.RegRead(RegRunServices)
  134.  
  135.   If Hkeyman <> Empty Then
  136.     '// Delete key
  137.     WshShell.RegDelete RegRunServices
  138.   End If
  139.  
  140.   '// 6.0.7.0-
  141.   WshShell.RegWrite(RegUninstDummy)
  142.   WshShell.RegDelete RegUninst
  143.  
  144. End Sub
  145.  
  146. '//
  147. '// Register this file to
  148. '//   HKLM\Software\Microsoft\Windows\CurrentVersion\RunOnce
  149. '//
  150. Sub RegisterThisFile()
  151.  
  152.   RegRunOnceDeleteHotkey = RegRunOnce & "\DelHotkey"
  153.   DeleteHotkeyCmd        = "wscript " & Wscript.ScriptFullName & " -ro"
  154.   WshShell.RegWrite RegRunOnceDeleteHotkey, DeleteHotkeyCmd, "REG_SZ"
  155.  
  156. End Sub
  157.  
  158. '//
  159. '// Ask User Reboot system by manual
  160. '//
  161. Sub ManualReboot()
  162.  
  163.   LocalId = GetLocale()
  164.   '// Local 1041 is Japanese
  165.   If LocalId = 1041 Then
  166.     strRebootMessage =  strRebootMessage_J
  167.     strRebootTitle   =  strRebootTitle_J
  168.   else
  169.     strRebootMessage =  strRebootMessage_M
  170.     strRebootTitle   =  strRebootTitle_M
  171.   End If
  172.  
  173.   If Not UnattEndMode Then
  174.     WshShell.Popup strRebootMessage,,strRebootTitle, vbYesNo
  175.   End If
  176.  
  177. End Sub
  178.  
  179. '//
  180. '// This Subroutine is called from RunOnce
  181. '//   Delete hkeyman.exe at system folder
  182. '//
  183. Sub AtRunOnce()
  184.   SystemFolder = 1
  185.   Set tFolder = objFileSys.GetSpecialFolder(SystemFolder)
  186.   FolderName  = tFolder.Path
  187.   Hkeyman = FolderName & "\hkeyman.exe"
  188.   objFileSys.DeleteFile Hkeyman
  189.   '// 6.0.7.0
  190.   HKUninst = FolderName & "\hkuninst.vbs"
  191.   objFileSys.DeleteFile HKUninst
  192. End Sub
  193.