Вот может кому пригодиться !
Авто логон, (если комп под паролем то можно записать автологон и при перезагрузки заходит автоматически) при нажатии LogOff просит пароль, а также при сочетании клавишь Win+L.
Код:
'***********************************************************************************
'Autologon
'***********************************************************************************
'On Error Resume Next
strComputer = InputBox("Please Insert Name Of Computer" & vbCRLF _
& "Dot - Means This Computer ","Computer Name",".")
strUserName = InputBox("Please Insert Name Of User","User Name","ZDES_IMYA_USERa")
strPassWord = InputBox("Please Insert Password Of User","Password","SDES_PASS")
'***********************************************************************************
Const HKEY_LOCAL_MACHINE = &H80000002
'***********************************************************************************
Select Case strUserName
Case "Hryack" ExitScript
Case "" ExitScript
End Select
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"
strAutoAdminLogOn = "AutoAdminLogon"
strAutoAdminValue = "1"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strAutoAdminLogOn,strAutoAdminValue
strDefaultDomain = "DefaultDomainName"
strDefaultDomainValue = "wshome"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strDefaultDomain,strDefaultDomainValue
strDefaultUser = "DefaultUserName"
strDefaultUserValue = strUserName
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strDefaultUser,strDefaultUserValue
strDefaultPassword = "DefaultPassword"
strDefaultPasswordValue = strPassWord
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strDefaultPassword,strDefaultPasswordValue
Wscript.Echo "Autologon to User [" & strUserName & "] Done"
Sub ExitScript()
Wscript.Echo "Please Enter Valid User Name"
Wscript.Quit
End Sub
Сохранить в VBScript Script File
Вот отмена скрипта !
Код:
'***********************************************************************************
'Autologon
'***********************************************************************************
'On Error Resume Next
strComputer = InputBox("Please Insert Name Of Computer" & vbCRLF _
& "Dot - Means This Computer ","Computer Name",".")
strUserName = InputBox("Please Insert Name Of User","User Name","SDES IMYA")
strPassWord = InputBox("Please Insert Password Of User","Password","SDES PASS")
'***********************************************************************************
Const HKEY_LOCAL_MACHINE = &H80000002
'***********************************************************************************
Select Case strUserName
Case "Hryack" ExitScript
Case "" ExitScript
End Select
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"
strAutoAdminLogOn = "AutoAdminLogon"
strAutoAdminValue = "0"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strAutoAdminLogOn,strAutoAdminValue
strDefaultDomain = "DefaultDomainName"
strDefaultDomainValue = "wshome"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strDefaultDomain,strDefaultDomainValue
strDefaultUser = "DefaultUserName"
strDefaultUserValue = strUserName
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strDefaultUser,strDefaultUserValue
strDefaultPassword = "DefaultPassword"
strDefaultPasswordValue = strPassWord
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strDefaultPassword,strDefaultPasswordValue
Wscript.Echo "Autologon to User [" & strUserName & "] Done"
Sub ExitScript()
Wscript.Echo "Please Enter Valid User Name"
Wscript.Quit
End Sub
