添加注册表键值
摘要:'显示桌面我的电脑图标,刷新后显示 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) 编辑
vbs调用批处理、PowerShell传参,加域等
摘要:电脑启动后,自动运行任务计划,运行vbs脚本修改管理员密码,然后引导用户自行输入个性化内容,再然后调用ps1脚本修改计算机名、加域、添加本地管理员权限 join.vbs脚本内容如下: '''''''''''''''''''''''''''''''''''''''''
阅读全文
posted @
2020-11-20 18:31
momingliu11
阅读(1526)
推荐(0) 编辑
vbs获取当前运行目录
摘要:双击该vbs脚本,得到点前目录 msgbox "当前文件路径是 " & wscript.ScriptFullName set ws=CreateObject("WScript.Shell") MsgBox "当前文件夹是 " & ws.CurrentDirectory
阅读全文
posted @
2020-11-19 10:35
momingliu11
阅读(1767)
推荐(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) 编辑
逐行读取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) 编辑
获取管理员组用户
摘要:获取本地管理员组用户方法一:$strComputer = $env:COMPUTERNAME$computer = [ADSI]("WinNT://" + $strComputer + ",computer")$Group = $computer.psbase.children.find("Admi...
阅读全文
posted @
2014-08-15 20:25
momingliu11
阅读(1747)
推荐(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) 编辑
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) 编辑
创建快捷方式,修改注册表
摘要: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) 编辑
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) 编辑
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) 编辑
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) 编辑
VBS查看分区剩余空间
摘要:在VBS中,都是通过FileSystemObject(FSO)来对驱动器、文件夹和文件进行处理的,用来创建、删除和获得其相关信息(方法、属性)。在此我们先使用Drives集合来获得驱动器列表信息,然后再对每个驱动器进行遍历,获得其总大小、可用空间等属性,如下:Ø驱动器总容量(TotalSize属性)Ø驱动器可用空间(AvailableSpace或FreeSpace属性)Ø驱动器号(DriveLetter属性)Ø驱动器类型,如固定的、网络的、可移动的、CD-ROM或RAM磁盘(DriveType属性)Ø驱动器文件系统类型,如FAT32、NTFS等
阅读全文
posted @
2013-01-09 14:47
momingliu11
阅读(594)
推荐(0) 编辑