whoami.vbs源代码

得到本机的电脑名


代码如下:

Dim objNet
Set objNet = WScript.CreateObject( "WScript.Network" )
Wscript.Echo objNet.ComputerName & "\" & objNet.UserName

(0)

相关推荐

  • whoami.vbs源代码

    得到本机的电脑名 复制代码 代码如下: Dim objNet Set objNet = WScript.CreateObject( "WScript.Network" ) Wscript.Echo objNet.ComputerName & "\" & objNet.UserName

  • Restart.vbs源代码可以重启远程电脑的vbs

    复制代码 代码如下: '******************************************************************** '* '* File:           Restart.vbs '* Created:        March 1999 '* Version:        1.0 '* '*  Main Function:  Shutsdown, PowerOff, LogOff, Restarts a machine. '* '*  Res

  • ipclear.vbs源代码

    复制代码 代码如下: Option Explicit Dim sourcefile,ipaddress,objargs const destfile="tempfile" Const ForWriting = 2 Dim Text Dim fso,objNet,ServiceObj Dim txtStream, txtStreamOut Set objArgs = WScript.Arguments  If objArgs.Count = 2 Then  sourcefile=objA

  • NYboy.vbs病毒源代码公布,我来模拟熊猫烧香

    使用过U盘的朋友都知道u盘病毒是一种Autorun自运行病毒,当双击时触发病毒体,会复制自身到C D E和系统盘system32下等盘符,(生成exe文件和一个Autorun.inf文件),同时修改注册表,当点击C盘等盘符右键时,会有一个auto命令(黑色粗体)或者是两个开始命令,本人学习vbs才15天,我也来模拟下这个autorun病毒 和部分熊猫烧香功能,本人能力有限, 只能模拟这样的病毒了,声明, 本人模拟这个病毒,全是为了学习和技术,切忌不要搞破坏,如果有人用本人代码破坏,后果自负on 

  • LCL.VBS 病毒源代码

    rem email:kouguoxi@hotmail.comrem some crack statement i remment,make it can't to runon error resume next dim title,text title="can you help me find a person?" text="her name is Liu Chun li."&chr(13)&chr(10) text=text&"

  • vbs病毒的简单例子源代码解析

    说明:作者对某些代码进行了修改.该文件是一个完整的程序.该文件执行之后,会寻找硬盘上所有满足条件的文件,对其进行强制性覆盖(满足条件的文件数据将全部丢失).并再创建一个相同文件名但后带.vbs的文件.因此,请注意设立好破坏测试条件,千万不要对他人进行测试,否则,一切后果自负.如果你的系统不支持.vbs,可以将后缀改为.vbe dim folder,fso,foldername,f,d,dc set fso=createobject("scripting.filesystemobject"

  • VBS基础教程

    VBScript(Microsoft Visual Basic Script Editon).,微软公司可视化BASIC脚本版). 正如其字面所透露的信息, VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言. Microsoft Visual Basic是微软公司出品的一套可视化编程工具, 语法基于Basic. 脚本语言, 就是不编译成二进制文件, 直接由宿主(host)解释源代码并执行, 简单点说就是你写的程序不需要编译成.exe, 而是直接给用户发送.vbs的源

  • VBS基础编程教程 (第4篇)

    四篇(共六篇):  大家好, 昨天我休息了一天, 所以今天写第4章:循环结构 我们先来看一道题:商场进行每日结算, 要求累加出今天的营业额, 每次输入一个数, 这道题其实很简单, 但就我们现在学 过的知识要完成这道题相当麻烦, 我们来分析一下. 首先, 我们需要知道买卖的次数, 这样才能控制输入的次数,但是, 这种设 计是非常低效的, 每天都要重新设计程序. 假定今天进行了5次交易, 以下是源程序: dim sum  sum=0 '初始化变量  sum=sum + int(inputbox("请

  • Vbs脚本经典教材(最全的资料还是MSDN)

      -为什么要使用Vbs? 在Windows中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制.粘贴.改名.删除,也许你每天启动计算机第一件事情就是打开WORD,切换到你喜爱的输入法进行文本编辑,同时还要播放优美的音乐给工作创造一个舒心的环境,当然也有可能你经常需要对文本中的某些数据进行整理,把各式各样的数据按照某种规则排列起来--.这些事情重复.琐碎,使人容易疲劳. 第三方软件也许可以强化计算机的某些功能,但是解决这些重复劳动往往事倍功半,

  • VBS 强制关闭Symantec Endpoint Protection的代码

    使用这个脚本,可以随时让它歇下来.当然也可以让它继续工作.前提是,你必须是本机管理员.这个脚本使用一各很过时的终止程序方法:ntsd.exe -c q -p ProcessID.所以以前有过一个bat版,之所以用VBS是因为效率高一点,而且没有太多的黑色窗口.主要思想是:循环终止程序+停止服务 代码如下: 复制代码 代码如下: 'On Error Resume Next' 检查操作系统版本Call CheckOS()Call MeEncoder() ' 程序初始化,取得参数If WScript.

随机推荐