Const HKEY_LOCAL_MACHINE = &H80000002
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
strKeyPath = "SYSTEM\CurrentControlSet\Services\lanmanserver\parameters"
strVal = "IRPStackSize"
oreg.getdwordvalue HKEY_LOCAL_MACHINE,strKeyPath,strVal,dwValue
if isnull(dwValue) then
oReg.SetDwordValue HKEY_LOCAL_MACHINE,strKeyPath,strVal,33
Else
WScript.Echo dwvalue
If dwvalue <> 33 Then oReg.SetDwordValue HKEY_LOCAL_MACHINE,strKeyPath,strVal,33
End If
|