Remote Regedit - Ron Crumbaker's Web Remote Tool

[Edit] Unfortunately, the new(er) regedit.exe, I never could find a way to script that to immediately connect to a remote computer.  But grab a copy of regedt32.exe from \system32.  Copy that into your <smsserver>\remote$ share.

 Edit MachRest.asp, and add a button by your other buttons (about line 80-ish):
<INPUT id="Button723" style='WIDTH: 180px' type='button' value='Regedit' name='Btnl723'>

Then copy/paste the attached information (the Sub) probably near the bottom, just before the </script>, after all of the other SUB/end Sub routines.

If someone does know how to script regedit to remotely connect to a computer let me know!

Attachment: regedt32.txt
Published Thursday, September 07, 2006 4:10 PM by skissinger
Filed under:

Comments

# myITforum Daily Newsletter; September 8, 2006

myITforum Daily Newsletter Daily Newsletter September 8, 2006 The myITforum.com newsletter is delivered

Friday, September 08, 2006 11:16 AM by myITforum Newsletters

# re: Remote Regedit - Ron Crumbaker's Web Remote Tool

Not good way to do this, but you can with sendkeys:

'Launch RegEdt32 on remote system

'Alan Kaplan, 1-18-2002

'alan at akaplan.com

Option Explicit

Dim WshShell,server,message, mycomputer, objenv

Set WshShell = WScript.CreateObject("WScript.Shell")

If WScript.Arguments.count =1 Then

mycomputer = WScript.Arguments(0)

Else

Set objenv = WshShell.Environment("process")

mycomputer = objEnv("COMPUTERNAME") 'Get current domain name

message ="Enter name of computer:"&vbcrlf &vbcrlf

message = message & "(Remember that only HKLM and HKU are available remotely)"

server=InputBox(message,"Launch RegEdt32",mycomputer)   'ask for PC name

server=UCase(server) 'Cap name

Select Case server

Case ""

WScript.Quit

Case mycomputer

run

sendkeys

Case Else

remote server

run

End Select

End If

Sub run()

WshShell.Run("regedt32.exe") 'Then Launch RegEdt32

End Sub

Sub sendkeys()

WshShell.AppActivate "Registry Editor"

WScript.Sleep 200

WshShell.SendKeys "%R"

WScript.Sleep 200

WshShell.SendKeys "C"

WshShell.SendKeys "%R"

WScript.Sleep 200

WshShell.sendkeys "O"

End Sub

Sub remote(server)

'Must write to two places in registry ...

WshShell.regwrite "HKCU\Software\Microsoft\RegEdt32\"&server&"\", ""

WshShell.regwrite "HKCU\Software\Microsoft\RegEdt32\Settings\Registry", server

End Sub

Friday, September 08, 2006 11:56 AM by Kaplaa

# re: Remote Regedit - Ron Crumbaker's Web Remote Tool

Hi Sherry,

I haven't been able to get this (or Client Spy, or Toolkit Client Spy) to work.

I've checked the permissions for the remote$ share and they appear to be correct but the error states that it cannot find the executable.

Opening the share and executing the file directly does work.

Any ideas what I might be doing wrong?

Thursday, March 15, 2007 11:10 AM by aberges