Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = „COMPUTERNAME“
Vastgestelde objRegistry = GetObject („winmgmts: \ \“ & _
strComputer & „\ wortel\ gebrek: StdRegProv“)
strKeyPath = „het beleids\ systeem van de Vensters \ CurrentVersion \ van de SOFTWARE \ Microsoft \“
strValueName = „ScForceOption“
strValue = 0
objRegistry.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue
Als IsNull (strValue) toen
Wscript.Echo de „Registratiesleutel bestaat niet.“
ElseIf strValue = 1 toen
Wscript.Echo „Opening van een sessie van de Kaart van de Kracht wordt de Slimme nu toegelaten op“ & strComputer
ElseIf strValue = 0 toen
Wscript.Echo „Opening van een sessie van de Kaart van de Kracht is de Slimme nu gehandicapt op“ & strComputer
Beëindig als
rem gebruikt de herinnering van Dos met adminrechten. Gebruik: cscript *** .vbs //nologo //S
|