Displaying Message on Remote Computer

I am using the following code to edit the registry on clients computer connected to my network.  But instead of displaying the message on the client’s computer, the echo is being performed on my computer. Please help. Below is the code that I am using to perform this operation:



Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "remotecomputer"

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Jet\4.0\Engines\Jet 4.0"
strEntryName = "MaxLocksPerFile"
dwValue = 150000
objReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strEntryName, dwValue


wscript.echo "File Lock Change is complete. Please restart Computer."
 
LVL 9
gbarrientosAsked:
Who is Participating?
 
danielsonchrisConnect With a Mentor Commented:
''Here is an idea that may work, though many clients turn this the Messenger service off
'' thanks to spammers NET Sending messages to everyone.  BTW, your messenger service will also need to be started
'' to send.  I am assuming you are running an NT/2k/XP build windows system.
''To start your Messenger service you can pull up the cmd window and enter NET START Messenger

Dim wsh
Set wsh = CreateObject("WScript.Shell")
wsh.Run "NET SEND " & strComputer & " File Lock Change is complete. Please restart Computer.", 1, True
Set wsh = Nothing

''Good luck!
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.