Jump to content

Featured Replies

Posted
Option Explicit
Dim WSHShell, n, MyBox, p, itemtype, Title

Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKEY_CURRENT_USER\Control Panel\Sound\"
p = p & "Beep"
itemtype = "REG_SZ"
n= "No"

WSHShell.RegWrite p, n, itemtype
Title = "System Beeps are now Disabled." & vbCR
Title = Title & "You may need to Log off/Log on" & vbCR
MyBox = MsgBox(Title,4096,"Finished")

  • 2 months later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...