Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = „COMPUTERBEZEICHNUNG“
Gesetztes objRegistry = GetObject („winmgmts: \ \“ u. _
strComputer u. „\ Wurzel \ Rückstellung: StdRegProv“)
strKeyPath = „SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ Politik \ System“
strValueName = „ScForceOption“
strValue = 0
objRegistry.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue
Wenn IsNull (strValue) dann
Wscript.Echo „der Registerschlüssel existiert nicht.“
ElseIf strValue = 1 dann
Wscript.Echo „Kraft-Chipkarte-LOGON ermöglicht jetzt auf“ u. strComputer
ElseIf strValue = 0 dann
Wscript.Echo „Kraft-Chipkarte-LOGON gesperrt jetzt auf“ u. strComputer
Beenden wenn
Rem verwenden DOS-Aufforderung mit admin-Rechten. Verbrauch: cscript *** .vbs //nologo //S
|