strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=Impersonate}!\\" & strComputer & "\root\cimv2")
Set listServices = objWMIService.ExecQuery("Select * From Win32_Service",,48)
' le loop, pour chaque service
For Each objService In listServices
WScript.Echo "<SERVICE>"
WScript.Echo "<SVCNAME>" & objService.Name & "</SVCNAME>"
WScript.Echo "<SVCDN>" & replaceSpecialCar(objService.DisplayName) & "</SVCDN>"
WScript.Echo "<SVCSTATE>" & objService.State & "</SVCSTATE>"
WScript.Echo "<SVCDESC>" & replaceSpecialCar(objService.Description) & "</SVCDESC>"
WScript.Echo "<SVCSTARTMODE>" & objService.StartMode & "</SVCSTARTMODE>"
WScript.Echo "<SVCPATH>" & objService.PathName & "</SVCPATH>"
WScript.Echo "<SVCSTARTNAME>" & objService.StartName & "</SVCSTARTNAME>"
WScript.Echo "<SVCEXITCODE>" & objService.ExitCode & "</SVCEXITCODE>"
WScript.Echo "<SVCSPECEXITCODE>" & objService.ServiceSpecificExitCode & "</SVCSPECEXITCODE>"
WScript.Echo "</SERVICE>"
Next
通过上述脚本获取的内容为windows系统默认的ANSI/unicode编码,内容通过一个应用程序传入数据库中,中文的内容就显示为乱码了,应用软件只能识别utf-8编码格式的内容,所以怎么才获取的内容转换为相应的utf-8编码格式的中文内容呢?