Remove Last Login This will erase the last user's login name Rate this script:0 Stars - Lowest1 Star2 Stars3 Stars4 Stars5 Stars - Highest Added 338 days ago by Emnico		Download
		Review
		Back
	289	Views

This script or application has not been checked by Emnico. Make sure you understand the risks before using it.

Source code

'****
'*http://jbrekhus.googlepages.com 
'*jbrekhus at gmail.com
'* V.1
'***
'Erase last users logon name...

Const HKEY_LOCAL_MACHINE 	= &H80000002

g_strComputer = "."

sMethod		= "CreateKey"
hTree		= HKEY_LOCAL_MACHINE

Set oRegistry	= GetObject("winmgmts:{impersonationLevel=impersonate}//" & _
		g_strComputer & "/root/default:StdRegProv")

Set oMethod	= oRegistry.Methods_(sMethod)
Set oInParam	= oMethod.inParameters.SpawnInstance_()

oInParam.hDefKey 	= hTree
oInParam.sSubKeyName	= "Software\Microsoft\Windows NT\CurrentVersion\Winlogon\"
Set oOutParam	= oRegistry.ExecMethod_(sMethod, oInParam)

sMethod		= "SetStringValue"
hTree		= HKEY_LOCAL_MACHINE
'******************************

Set oRegistry	= GetObject("winmgmts:{impersonationLevel=impersonate}//" & _
		g_strComputer & "/root/default:StdRegProv")

Set oMethod	= oRegistry.Methods_(sMethod)
Set oInParam	= oMethod.inParameters.SpawnInstance_()

oInParam.hDefKey = hTree
oInParam.sSubKeyName = "Software\Microsoft\Windows NT\CurrentVersion\Winlogon\"
oInParam.sValueName = "DefaultUserName"
oInParam.sValue = " "

Set oOutParam = oRegistry.ExecMethod_(sMethod, oInParam)