MCSE技术论坛

这是洛洛的一篇文章里的一段代码“

网络共享映射dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
If fso.DriveExists("X:") Then
WSHNetwork.RemoveNetworkDrive "X:",True,True
WSHNetwork.MapNetworkDrive "X:", "\\server\共享$"
else
WSHNetwork.MapNetworkDrive "X:", "\\server\共享$"
end if

Set WshNetwork = Nothing
WScript.quit



这是我编辑后的代码：

网络共享映射dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
If fso.DriveExists("X:") Then
WSHNetwork.RemoveNetworkDrive "X:",True,True
WSHNetwork.MapNetworkDrive "X:", "\\10.10.1.3\test$"
else
WSHNetwork.MapNetworkDrive "X:", "\\\\10.10.1.3\test$"
end if

Set WshNetwork = Nothing
WScript.quit


这是我用登陆脚本策略发下去后，在客户端登陆的时候出现的错误提示：


 附件: 您所在的用户组无法下载或查看附件

我在客户端 开始--运行--\\10.10.1.3\test$ 是可以直接连到test这个隐藏共享的，也可以在客户端直接映射！ 编程说实话我都忘记的一干二净了！ 客户端只有俩盘（都是虚拟机），按说映射成客户端的 X 盘 应该不会出问题！ 各位给看看这个  fso到底怎么了，  谢谢先！~

Set WshNetwork = WScript.CreateObject("WScript.Network")
If fso.DriveExists("X:") Then
WSHNetwork.RemoveNetworkDrive "X:",True,True
WSHNetwork.MapNetworkDrive "X:", "\\10.10.1.3\test$"
else
WSHNetwork.MapNetworkDrive "X:", "\\\\10.10.1.3\test$"
end if

Set WshNetwork = Nothing
WScript.quit

我是直接把上面这个复制到记事本 保存为 .vbs 的脚本的！

版主大人是故意刁难我的吧？  o(∩_∩)o...哈哈  不过还是要谢谢你！

你给的那段是错的 第七行  多弄了俩\\   

谢谢啦！！！

HKEY_CURRENT_USER = &H80000001

strComputer = "."
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
ValueName = "TaskBarSizeMove"
dwValue = 0

objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, ValueName, dwValue

不妨在看看这段  是一段锁定任务栏的脚本，我用了后是啥反应都没有！也没效果，任务栏照样可以拉的满屏飞~~o(∩_∩)o...哈哈

你没定义fso啊，所以要加这句
Set FSO = CreateObject("Scripting.FileSystemObject")

引用: 原帖由 tian930 于 2007-12-27 15:32:00 发表 HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "So

版主 那这个呢 ？ 它可是一点错误提示都没有啊！

默认的值就是0，你改成1试试

改成 1 也不行  还是一样  只要客户端登陆 任务栏还是满天飞 hoho~~~