SHELLEXECUTEINFO shei;
shei.cbSize = sizeof(shei);
shei.fMask = SEE_MASK_INVOKEIDLIST;
shei.lpFile = _T("001.vbs");
shei.lpVerb = _T("open");
ShellExecute(NULL,shei.lpVerb, shei.lpFile, _T(""), _T(""), SW_SHOW);
或
system(_T("WScript.exe your.vbs"));