随笔分类 -  VBS

添加注册表键值
摘要:'显示桌面我的电脑图标,刷新后显示 dim wshell,command set wshell = createobject("wscript.shell") command = "reg add ""HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\Curr 阅读全文
posted @ 2020-12-04 17:48 momingliu11 阅读(205) 评论(0) 推荐(0) 编辑
vbs调用批处理、PowerShell传参,加域等
摘要:电脑启动后,自动运行任务计划,运行vbs脚本修改管理员密码,然后引导用户自行输入个性化内容,再然后调用ps1脚本修改计算机名、加域、添加本地管理员权限 join.vbs脚本内容如下: ''''''''''''''''''''''''''''''''''''''''' 阅读全文
posted @ 2020-11-20 18:31 momingliu11 阅读(1526) 评论(0) 推荐(0) 编辑
vbs获取当前运行目录
摘要:双击该vbs脚本,得到点前目录 msgbox "当前文件路径是 " & wscript.ScriptFullName set ws=CreateObject("WScript.Shell") MsgBox "当前文件夹是 " & ws.CurrentDirectory 阅读全文
posted @ 2020-11-19 10:35 momingliu11 阅读(1767) 评论(0) 推荐(0) 编辑
VBS脚本中给cmd传参
摘要:dim wshell,UserName,Password UserName = "aa3" set wshell=createobject("wscript.shell") msgbox(UserName) wshell.run "powershell.exe d:\a.ps1 "&UserName 阅读全文
posted @ 2020-11-19 10:26 momingliu11 阅读(607) 评论(0) 推荐(0) 编辑
逐行读取txt
摘要:Dim fso, f1, ts, s Const ForReading = 1 Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.OpenTextFile("e:\serverlist.txt", ForR... 阅读全文
posted @ 2014-09-18 21:00 momingliu11 阅读(341) 评论(0) 推荐(0) 编辑
获取管理员组用户
摘要:获取本地管理员组用户方法一:$strComputer = $env:COMPUTERNAME$computer = [ADSI]("WinNT://" + $strComputer + ",computer")$Group = $computer.psbase.children.find("Admi... 阅读全文
posted @ 2014-08-15 20:25 momingliu11 阅读(1747) 评论(0) 推荐(0) 编辑
新建共享,NTFS权限设置
摘要:1. OverviewSome time ago, I was automating a few tasks with PowerShell and needed to set NTFS permissions on a folder. I was tempted to use the good o... 阅读全文
posted @ 2014-07-17 11:04 momingliu11 阅读(1140) 评论(0) 推荐(0) 编辑
vbs运行批处理
摘要:dim wshellset wshell=createobject("wscript.shell") wshell.run "cmd /c sc query Spooler |find 'RUNNING' || net start Spooler" ,vbhide 阅读全文
posted @ 2014-06-04 13:21 momingliu11 阅读(509) 评论(0) 推荐(0) 编辑
创建快捷方式,修改注册表
摘要:1.通过PowerShell创建快捷方式$path = [Environment]::GetFolderPath("Desktop") + "\MyShortcut.lnk"$comobject = New-Object -comObject WScript.Shell$link = $comobj... 阅读全文
posted @ 2013-10-28 16:42 momingliu11 阅读(1337) 评论(0) 推荐(0) 编辑
Ping
摘要:Set objFSO = CreateObject("Scripting.FileSystemObject") Const ForAppending = 8 Const ForReading = 1'定义输出结果Set objTextFile = objFSO.OpenTextFile ("d:\Ping_Result.txt", ForAppending, True) '定义服务器IP列表Set ts = objFSO.OpenTextFile("d:\serverlist.txt", ForReading)do u 阅读全文
posted @ 2013-09-23 20:33 momingliu11 阅读(269) 评论(0) 推荐(0) 编辑
wmi查询——vbs
摘要:运行“webmtest”--连接 命名空间“root\cimv2”,枚举类别--超类别信息 递归 -- 双击 win32_processor ,查看可用属性'远程计算机取信息定义值set objLocator=createobject("wbemscripting.swbemlocator")strComputer = "."'msgbox userpass&username&ipset wmi=objLocator.connectserver(strComputer,"root/cimv2")' 阅读全文
posted @ 2013-05-19 14:08 momingliu11 阅读(576) 评论(0) 推荐(0) 编辑
vbs直接执行批处理,修改注册表
摘要:dim wshellset wshell=createobject("wscript.shell") wshell.run "cmd /c net user testg$ cmr /add" ,vbhide '添加用户testg,密码为cmrwshell.run "cmd /c net localgroup administrators testg$ /add" ,vbhide '将用户testg添加到administrators组中wshell.RegWrite "HKLM\SYSTEM\CurrentCo 阅读全文
posted @ 2013-01-26 20:40 momingliu11 阅读(844) 评论(0) 推荐(0) 编辑
VBS查看分区剩余空间
摘要:在VBS中,都是通过FileSystemObject(FSO)来对驱动器、文件夹和文件进行处理的,用来创建、删除和获得其相关信息(方法、属性)。在此我们先使用Drives集合来获得驱动器列表信息,然后再对每个驱动器进行遍历,获得其总大小、可用空间等属性,如下:Ø驱动器总容量(TotalSize属性)Ø驱动器可用空间(AvailableSpace或FreeSpace属性)Ø驱动器号(DriveLetter属性)Ø驱动器类型,如固定的、网络的、可移动的、CD-ROM或RAM磁盘(DriveType属性)Ø驱动器文件系统类型,如FAT32、NTFS等 阅读全文
posted @ 2013-01-09 14:47 momingliu11 阅读(594) 评论(0) 推荐(0) 编辑


点击右上角即可分享
微信分享提示