62,267
社区成员
发帖
与我相关
我的任务
分享windows server2008中,MSScriptControl.ScriptControl出错
请教一下，为什么我以下代码在ＸＰ及2003系统都没问题，而在Ｓerver2008里会出错
Dim exp As String = expression
Dim t As Type = Type.GetTypeFromProgID("MSScriptControl.ScriptControl")
Dim obj As Object = Activator.CreateInstance(t)
t.InvokeMember("Language", System.Reflection.BindingFlags.SetProperty, Nothing, obj, New Object() {"vbscript"})
Dim result As Decimal = CDec(t.InvokeMember("Eval", System.Reflection.BindingFlags.InvokeMethod, Nothing, obj, New Object() {exp}))
Return result
Dim exp As String = expression
Dim t As Type = Type.GetTypeFromProgID("MSScriptControl.ScriptControl")
Dim obj As Object = Activator.CreateInstance(t)
t.InvokeMember("Language", System.Reflection.BindingFlags.SetProperty, Nothing, obj, New Object() {"vbscript"})
Dim result As Decimal = CDec(t.InvokeMember("Eval", System.Reflection.BindingFlags.InvokeMethod, Nothing, obj, New Object() {exp}))
Return result
...全文
请发表友善的回复…
发表回复
chjun2009_ak 2012-05-31
- 打赏
- 举报
来人帮帮忙啊,看看也好啊
