Network registry editor

[davidarel]

I use a small vbs program to connect to another computer on our network and disable the smart card force option so we (techs) can log in manually. I didn't write this program but I was wondering if anybody could tell me what the specific calls are doing.

const HKEY_LOCAL_MACHINE = &H80000002
strComputer = InputBox("Enter the NetBIOS Name or IP address of the computer you wish to disable Smart Card Logon:")

If strComputer = "" Then
MsgBox "Nothing was entered in the inputbox" & vbCrLf & "Or you pressed the Cancel Button"
Else:
Set StdOut = WScript.StdOut

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

strKeyPath = "SOFTWARE\Microsoft\windows\currentversion\policies\system"
strValueName = "ScForceOption"
dwValue = 0
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

End If

wscript.Echo strComputer & " is NOT forced to use Smart Card Logon!"

[si_the_geek]

Thread moved from CodeBank forum (which is not for asking questions)

[westconn1]

looks straightforward, creates a registry object (oreg), defines the key, keypath and new value, then sets the new value

you should be setting back to the old value after finishing your task

[davidarel]

I got that much. I have never seen this:

Set StdOut = WScript.StdOut

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

What is this doing?

[westconn1]

stdout is just an output method of the windows scripting host to log to

oreg is a created registry objectby wimdowsmanagement (WMI) to the computer in strcomputer

[davidarel]

Cool. thanks.

[davidarel]

Since I haven't been here too many times, how do I mark this as resolved?

[westconn1]

put the green check on the first post, by editing, or use thread tools > mark thread resolved