reza94
دوشنبه 02 مرداد 1391, 17:39 عصر
با سلام و خسته نباشید
من از طریق کد زیر یک تابع api تعریف کردم
Function ReadRegStr(RootKey, Key, Value, RegType)
Dim oCtx, oLocator, oReg, oInParams, oOutParams
Set oCtx = CreateObject("WbemScripting.SWbemNamedValueSet")
oCtx.Add "__ProviderArchitecture", RegType
Set oLocator = CreateObject("Wbemscripting.SWbemLocator")
Set oReg = oLocator.ConnectServer("", "root\default", "", "", , , , oCtx).Get("StdRegProv")
Set oInParams = oReg.Methods_("GetStringValue").InParameters
oInParams.hDefKey = RootKey
oInParams.sSubKeyName = Key
oInParams.sValueName = Value
Set oOutParams = oReg.ExecMethod_("GetStringValue", oInParams, , oCtx)
End Function
حال چگونه میتوانم از طریق تابع بالا ، از ریجستری بکاپ تهیه کنم؟ :لبخندساده:
فکر کنم در تابع بالا قسمتی از کد هم مشکل داشته باشه ! دوستان میتونن مشکلشو بگن؟
من از طریق کد زیر یک تابع api تعریف کردم
Function ReadRegStr(RootKey, Key, Value, RegType)
Dim oCtx, oLocator, oReg, oInParams, oOutParams
Set oCtx = CreateObject("WbemScripting.SWbemNamedValueSet")
oCtx.Add "__ProviderArchitecture", RegType
Set oLocator = CreateObject("Wbemscripting.SWbemLocator")
Set oReg = oLocator.ConnectServer("", "root\default", "", "", , , , oCtx).Get("StdRegProv")
Set oInParams = oReg.Methods_("GetStringValue").InParameters
oInParams.hDefKey = RootKey
oInParams.sSubKeyName = Key
oInParams.sValueName = Value
Set oOutParams = oReg.ExecMethod_("GetStringValue", oInParams, , oCtx)
End Function
حال چگونه میتوانم از طریق تابع بالا ، از ریجستری بکاپ تهیه کنم؟ :لبخندساده:
فکر کنم در تابع بالا قسمتی از کد هم مشکل داشته باشه ! دوستان میتونن مشکلشو بگن؟