> Could you tell me how create a time object of VBS in perl? Below > statement define a starting time and pass it to the getdata function > to get data in VBS: > > start_time = DateSerial( 2003, 01, 31) + TimeSerial( 6, 0, 0) > data_array = lpd.getdata(id, start_time) > > But I don't know how to translate it into perl. > Since I intend to rewrite all vbs scripts, it will be a big problem!
Using Windows Script Files (.wsf) http://msdn.microsoft.com/en-us/library/15x4407c%28VS.85%29.aspx WSF might be helpful to you. It allows you to have several engines work jointly. You might be able to keep the parts in VBS that are not practical to port to Perl. It is XML, so you can use Unicode in your script. -- Michael Ludwig _______________________________________________ ActivePerl mailing list ActivePerl@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
