vbs 脚本设置与获取默认打印机

-
'设置默认打印机
oldDefault = GetDefaultPrinter
WScript.Echo oldDefault
Set WshNetwork = CreateObject("WScript.Network")
'Set defal = WshNetwork.GetDefaultPrinter()
WshNetwork.SetDefaultPrinter oldDefault
'查询默认打印机
Set oShell = CreateObject("WScript.Shell")
strValue = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device"
strPrinter = oShell.RegRead(strValue)
strPrinter = Split(strPrinter, ",")(0)
WScript.Echo strPrinter

'查询默认打印机
Function GetDefaultPrinter() 
Set oShell = CreateObject("WScript.Shell") 
sRegVal = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device" 
sDefault = "" 
On Error Resume Next 
 sDefault = oShell.RegRead(sRegVal) 
 sDefault = Left(sDefault ,InStr(sDefault, ",") - 1) 
 On Error Goto 0 
GetDefaultPrinter = sDefault
End Function 

'注：以上均为摘抄自网络，此文为备份，以备查阅

评论

发表评论

此博客中的热门博文

民国教材胜在情怀

-
民国教材胜在情怀 : " （刊于今日南方都市报，见报署名为“四一”） 近来，再版的民国教材《开明国语课本》深受欢迎，以至当当、卓越上均卖断货，淘宝上有商家甚至开出260元的高价，是原价的十倍！这套叶圣陶主编、丰子恺配插图的小学课本，1932年由开明书店出版，1949年前共印40余版次，建国后沉寂了数十年，如今再度走红。与它一同热销的民国教材，还有 1917年商务印书馆出版的《国语教科书》、1930年代世界书局出版的《国语读本》等。此外，更多民国教材的再版也在筹划中，比如四川作家冉匪云飞就在主编一套十卷本的民国教材精选集，明年或将出版。 面对民国教材的奇妙走红，教育部新闻发言人续梅不无尴尬地表示，2011年教育部将启动新一轮义务教育阶段的教材修订工作，希望人们能更科学、全面地评判当 代教材。同样尴尬的还有再版《开明国语课本》的上海科学技术文献出版社社长赵炬，他在接受媒体采访时说：“面对突然飞来的雪片般的订单，我踌躇了。出版社 专门研究此事，宁可放弃这诱惑，也要力挺现今的语文课本。厚今薄古，才是我们现今存在的理由。因此，只重印5000册，再有需求也会严格控制印数。这也是 我们的一种态度”。为什么会有如此诡异的态度呢？赵炬的另一段话春光乍泄：“教育从来都是国家意志的工具。新中国的教育，始终把培养有社会主义觉悟的新人作为方针。这就是新中国语文课本产生的合理依据。” 教育部发言人和社长的尴尬，恰恰说明，以《开明国语课本》为代表的民国教材，已经技术性击倒当代教材。在我看来，民国教材之所以胜出，主要有三个原因。 首先，正如赵炬所言，在当代，“教育从来都是国家意志的工具”，因此，当代教材负担了太多意识形态的教化功能，从而丢掉了最可宝贵的人文情怀。而这种情怀，在民国教材中却得到温暖如毯的展示。随手翻开《开明国语课本》，就 可读到这样的句子：“泉水到了河里，许多朋友欢迎他。太阳光拍拍他的背。白鹅到河里看他。小鱼和他一同玩。又有不少的花草，都对他点头”。这些话里没有丝 毫“国家意志”，只有童心与幼趣。再如这段：“永儿的爸爸对永儿说：‘如果有客人来，先要问他尊姓’。明天，对门的徐先生来看永儿的爸爸，永儿说：‘徐先 生，请问 尊姓’？”这些话里洋溢着为孩子量身定做的幽默感，真实而自然。相比之下，当代教材里“不要问我的名字，请叫我红领巾”式的对白，...
阅读全文