Const HKEY_LOCAL_MACHINE = &H80000002
Reeks oReg=GetObject („winmgmts: {impersonationLevel=impersonate}! \ \. \ wortel\ gebrek: StdRegProv“)
strKeyPath = „de parameters \ van de Diensten \ van het SYSTEEM \ CurrentControlSet \ lanmanserver“
strVal = „IRPStackSize“
strVal oreg.getdwordvalue HKEY_LOCAL_MACHINE, strKeyPath, dwValue
als isnull (dwValue) toen
strVal oReg.SetDwordValue HKEY_LOCAL_MACHINE, strKeyPath, 33
Anders
WScript.Echo dwvalue
Als dwvalue <> 33 toen strVal oReg.SetDwordValue HKEY_LOCAL_MACHINE, strKeyPath, 33
Eind als
|