显示bios时间代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】显示bios时间

作者:dezai / 发布于2014/9/12/ 1589


	#! perl
	
	# Check command line arguments (none required)
	if ( $ARGV[0] ) {
	 Syntax();
	}
	
	# Create temporary DEBUG script
	$dbg = "D FFFF:0005 L 8\nQ\n";
	open( DBGSCR, "> biosdate.dbg" ) || die( "Cannot open temporary DEBUG script: $!" );
	print DBGSCR $dbg;
	close DBGSCR;
	
	# Run DEBUG script and filter output;
	# improved DEBUG output filtering by Uri "Talentix"
	`debug.exe < biosdate.dbg` =~ /(\d\d\/\d\d\/\d\d)/;
	print "\nBIOS date: ".$1."\n";
	
	# Delete temporary DEBUG script
	`DEL biosdate.dbg >NUL 2>&1`;
	
	
	sub Syntax {
	 print "\nBIOSDate.pl, Version 1.10 for DOS, Windows & OS/2\n",
	 "Display BIOS date of local computer\n\n",
	 "Usage: BIOSDATE.PL\n\nThis script uses ",
	 "DEBUG.EXE to read the information from BIOS.\n",
	 "Tested in Windows 2000 only.\n\nWritten by ",
	 "Rob van der Woude\nhttp://www.robvanderwoude.com\n\n",
	 "Improved DEBUG output filtering by Uri \"Talentix\"\n\n",
	 "Original idea by ComputerHope\n",
	 "http://www.computerhope.com/rdebug.htm\n\n\n";
	}

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　显示bios时间　

同语言下

可能有用的

dezai贡献的其它代码(1065)