dim objShell
set objshell = CreateObject("Shell.Application")
objshell.shellexecute "net", " use \\10.210.202.3\aaa guest /user:guest",0,0,0
我用上面的代码在win2000下连接另外一个机子的共享文件aaa可以。
但是在windows xp下运行就不行,请问我该如何处理?
解决立刻给分!!!
11 个解决方案
#1
不懂
#2
是我表达的不清楚吗?
#3
<script language="VBScript">
sub window_onload()
dim objShell
set objshell = CreateObject("Shell.Application")
objshell.shellexecute "net", " use\\10.210.202.\aaaguest /user:guest",0,0,0
set objShell = nothing
end sub
</script>
我用上面的代码在win2000的操作系统下运行页面可以连接另外一个机子的共享文件aaa。
我的目的是在页面登陆连一下局域网内的另一台机子
但是这个页面在windows xp操作系统下运行就不行,报一个无法使用“net“连接错误,请问我该如何处理?
sub window_onload()
dim objShell
set objshell = CreateObject("Shell.Application")
objshell.shellexecute "net", " use\\10.210.202.\aaaguest /user:guest",0,0,0
set objShell = nothing
end sub
</script>
我用上面的代码在win2000的操作系统下运行页面可以连接另外一个机子的共享文件aaa。
我的目的是在页面登陆连一下局域网内的另一台机子
但是这个页面在windows xp操作系统下运行就不行,报一个无法使用“net“连接错误,请问我该如何处理?
#4
没碰到过
帮你up
帮你up
#5
设置都对吗?
#6
<script language='vbscript'>
sub window_onload()
dim objShell
set objShell = CreateObject("WScript.Shell")
objShell.Run "net use \\10.210.202.3\aaa guest /user:guest"
objShell.Run "net send hostname hello"
set objShell = nothing
end sub
</script>
sub window_onload()
dim objShell
set objShell = CreateObject("WScript.Shell")
objShell.Run "net use \\10.210.202.3\aaa guest /user:guest"
objShell.Run "net send hostname hello"
set objShell = nothing
end sub
</script>
#7
关注,帮你Up
#8
to panyee(快乐王子)
我试一下
我试一下
#9
我试了,不行啊!是不是代码不啊,可以看到调用use net 的dos窗口,大家帮帮忙。
#10
to panyee(快乐王子)
有没有办法,不出现黑窗口。
有没有办法,不出现黑窗口。
#11
楼主都急死了,me也急死了,有没有人来解决呢?
原来贴出的那段代码就是可以不用弹出dos连接窗口的。在xp下运行会报告没有与之(net) 关联的程序来使该程序运行。请从控制面板中的文件和文件夹来配置。
我不知道xp下的一些文件管理机制。从报错信息看,xp把Net当成一个需要注册默认打开的文件,也许是shell.application 的参数需要修改。但是我也没有找到相关的资料。
希望大家关注!
原来贴出的那段代码就是可以不用弹出dos连接窗口的。在xp下运行会报告没有与之(net) 关联的程序来使该程序运行。请从控制面板中的文件和文件夹来配置。
我不知道xp下的一些文件管理机制。从报错信息看,xp把Net当成一个需要注册默认打开的文件,也许是shell.application 的参数需要修改。但是我也没有找到相关的资料。
希望大家关注!
#1
不懂
#2
是我表达的不清楚吗?
#3
<script language="VBScript">
sub window_onload()
dim objShell
set objshell = CreateObject("Shell.Application")
objshell.shellexecute "net", " use\\10.210.202.\aaaguest /user:guest",0,0,0
set objShell = nothing
end sub
</script>
我用上面的代码在win2000的操作系统下运行页面可以连接另外一个机子的共享文件aaa。
我的目的是在页面登陆连一下局域网内的另一台机子
但是这个页面在windows xp操作系统下运行就不行,报一个无法使用“net“连接错误,请问我该如何处理?
sub window_onload()
dim objShell
set objshell = CreateObject("Shell.Application")
objshell.shellexecute "net", " use\\10.210.202.\aaaguest /user:guest",0,0,0
set objShell = nothing
end sub
</script>
我用上面的代码在win2000的操作系统下运行页面可以连接另外一个机子的共享文件aaa。
我的目的是在页面登陆连一下局域网内的另一台机子
但是这个页面在windows xp操作系统下运行就不行,报一个无法使用“net“连接错误,请问我该如何处理?
#4
没碰到过
帮你up
帮你up
#5
设置都对吗?
#6
<script language='vbscript'>
sub window_onload()
dim objShell
set objShell = CreateObject("WScript.Shell")
objShell.Run "net use \\10.210.202.3\aaa guest /user:guest"
objShell.Run "net send hostname hello"
set objShell = nothing
end sub
</script>
sub window_onload()
dim objShell
set objShell = CreateObject("WScript.Shell")
objShell.Run "net use \\10.210.202.3\aaa guest /user:guest"
objShell.Run "net send hostname hello"
set objShell = nothing
end sub
</script>
#7
关注,帮你Up
#8
to panyee(快乐王子)
我试一下
我试一下
#9
我试了,不行啊!是不是代码不啊,可以看到调用use net 的dos窗口,大家帮帮忙。
#10
to panyee(快乐王子)
有没有办法,不出现黑窗口。
有没有办法,不出现黑窗口。
#11
楼主都急死了,me也急死了,有没有人来解决呢?
原来贴出的那段代码就是可以不用弹出dos连接窗口的。在xp下运行会报告没有与之(net) 关联的程序来使该程序运行。请从控制面板中的文件和文件夹来配置。
我不知道xp下的一些文件管理机制。从报错信息看,xp把Net当成一个需要注册默认打开的文件,也许是shell.application 的参数需要修改。但是我也没有找到相关的资料。
希望大家关注!
原来贴出的那段代码就是可以不用弹出dos连接窗口的。在xp下运行会报告没有与之(net) 关联的程序来使该程序运行。请从控制面板中的文件和文件夹来配置。
我不知道xp下的一些文件管理机制。从报错信息看,xp把Net当成一个需要注册默认打开的文件,也许是shell.application 的参数需要修改。但是我也没有找到相关的资料。
希望大家关注!