关于变量的问题

来源:百度知道 编辑:UC知道 时间:2024/05/26 13:24:16
dim a as string
a = "ALG"
Set objWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & Environ("COMPUTERNAME") & "\root\cimv2:win32_service.Name=变量如何加入此处")

我试过用
Set objWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & Environ("COMPUTERNAME") & "\root\cimv2:win32_service.Name=" & a)
可老提示说自动化错误
Set objWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & Environ("COMPUTERNAME") & "\root\cimv2:win32_service.Name='ALG'")就不会出错
一但把'ALG'换成变量就出错

Set objWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & Environ("COMPUTERNAME") & "\root\cimv2:win32_service.Name='" & a & "'")
加了单引号 试试

Set objWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & Environ("COMPUTERNAME") & "\root\cimv2:win32_service.Name=" & a & "")
如果仍然不对,可能是其他问题