黑客必须要知道的几个vbs文件代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| harehavebeenlistedSuccessfully!" callshare() endfunction functionopenshare() wscript.echo"Enterthepath:"''70 path=WScript.StdIn.Readline() wscript.echo"Enterthename:" sname=WScript.StdIn.Readline() ConstFILE_SHARE=0 ConstMAXIMUM_CONNECTIONS=25 SetobjNewShare=objswbemservices.Get("Win32_Share") errReturn=objNewShare.Create_ (path,sname,FILE_SHARE,_ MAXIMUM_CONNECTIONS,"默认共享") wscript.echo"ThenSharehavebeenCeatedSuccessfully!" callshare() endfunction functioncloseshare() wscript.echo"PleseEnterThename:" kname=WScript.StdIn.Readline() outstreem.write"killingthe"&kname&"...." SetcolShares=objswbemservices.ExecQuery_ ("Select*fromWin32_ShareWhereName="&"''"&kname&"''") ForEachobjShareincolShares objShare.Delete Next showerror(err.number) callshare() endfunction ''*********************************************************** functionlistsvr() outstreem.write"ListingtheServicefrom"&ipaddress&"...." SetcolListOfServices=objswbemservices.ExecQuery_ ("Select*fromWin32_Service") showerror(err.number) wscript.echo_ ("Name"&chr(9)&chr(9)&"State"&chr(9)&chr(9)&"Mode"&chr(9)&"PathName") ForEachobjServiceincolListOfServices iflen(objService.name)<8then strname=objService.name&chr(9) else strname=objService.name endif wscript.echo_ (strname&chr(9)&objService.State&chr(9)&chr(9)&objService.StartMode&chr(9)&objService.PathName) Next wscript.echovbcrlf&"AllServiceshavebeenlistedSuccessfully!" callmain() endfunction ''************************************************************ functionreboot() outstreem.write"Now,restartingtarget...." strwqlquery="select*fromwin32_operatingsystemwhereprimary=''true''" setcolinstances=objswbemservices.execquery(strwqlquery) foreachobjinstanceincolinstances objinstance.win32shutdown(6) next showerror(err.number) callmain() endfunction ''************************************************************* functioninf() outstreem.write"GettingInfomationfrom"&ipaddress&"...." setobj1=objget("win32_computersystem") showerror(err.number) wscript.echo""&vbcrlf setobj2=objget("win32_operatingsystem") setcol3=objswbemservices.instancesof("win32_processor") setobj4=objget("win32_logicalmemoryconfiguration") setobj5=objget("win32_bios") setobj6=objget("win32_displayconfiguration") setcol7=objswbemservices.instancesof("win32_diskdrive") setcol8=objswbemservices.instancesof("win32_logicaldisk") setcol9=objswbemservices.instancesof("win32_networkadapterconfiguration") setcol10=objswbemservices.instancesof("win32_quickfixengineering") wnl"OSInfo:" wnl"ComputerName:"&obj1.name wnl"UserName:"&obj1.username wnl"Domain:"&obj1.domain domainrole="" selectcaseobj1.domainrole case0 domainrole="Workstation" case1 domainrole="MemberWorkstation" case2 domainrole="Server" case3 domainrole="MemberServer" case4 domainrole="BackupDomainController" case5 domainrole="MainDomainController" endselect withobj2 wnl"DomainRole:"&domainrole wnl"Caption:"&.caption wnl"Organization:"&.organization wnl"RegisteredUser:"&.registereduser wnl"InstallDate:"&timeformat(.installdate |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于黑客必须要知道的几个vbs文件代码的所有评论
