addr = "192.168.1.100"
set obj = createobject("WScript.Shell")
obj.run "c:\windows\cmd.exe /c ping " & addr & '后面我不知道怎么写，需要查cmd命令
vba检查局域网电脑是否开机
addr = "192.168.1.100"set obj = createobject("WScript.Shell")obj.run "c:\\windows\\cmd.exe \/c ping " & addr & '后面我不知道怎么写，需要查cmd命令
关于VBA1.73局域网联机问题 追150分
当你开启了guest账户却还是根本不能访问时，请检查设置是否为拒绝guest从网络访问计算机，因为XP默认是不允许guest从网络登录的，所以即使开了guest也一样不能访问。在开启了系统Guest用户的情况下解除对Guest账号的限制，点击“开始→运行”，在“运行”对话框中输入“GPEDIT.MSC”，打开组策略编辑器，依次...
[Excel VBA] 测试共享文件是否被打开
文件保存在共享盘，或者局域网的某一台计算机。而当团队中某人打开了某些文件，其他人就只能以只读方式打开。如果在打开前给出一个提示，告诉用户文件现在是否已被别人打开，由谁打开，这样会节约用户的时间，也可以使用户及时沟通，提高工作效率。
VBA 打开和关闭局域网计算机共享文件夹 代码
建议：先用Shell运行cmd命令行(cmd命令行使用net use X: \\\\192.168.1.1\\d 123 \/user:RR)来实现网络连接至远程计算机共享文件夹，实现把网络位置映射为本机硬盘X盘 VBA代码示例 Sub test()Shell "cmd.exe \/c net use X: \\\\192.168.1.1\\d 123 \/user:RR"End Sub 在VBA中利用Shell中运行...
如何用Excel实现局域网聊天?
★第一步:打开Excel 2003，新建一个工作簿文档，取名保存(如“工作记录.xls”)。★第二步:执行“工具→共享工作簿”，打开“共享工作簿”对话框(见图1)，选中“允许多用户同时编辑，同时允许工作簿合并”选项，确定返回。 ★第三步:将上述工作簿文档保存在局域网上某台电脑的一个共享文件夹中。...
如何用VBA得到当前电脑所属的局域网网络用户组名称
代码：strComputer = "."Set objWMIService = GetObject("winmgmts:" _& "{impersonationLevel=impersonate}!\\" & strComputer & "\\root\\cimv2")Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")For Each objItem In colItems MsgBox "工作组: " & objItem.Work...
如何通过VBA打开一个局域网中指定路径的文件夹
打开我的电脑 把该地址映射成盘符,比如 Z 盘 映射好后,跟使用本地磁盘一样方便
vba模拟器局域网联机问题
1.知道对方IP后 开启仿真器进入=>选项=>连结 2.一般=>点选网络=>伺服端=>选择玩家人数(选择2人玩家)3.客户端=>速度Hack=>开启(也可以不开启 但是比较慢)4.服务器IP地址或计算机名称=>输入对方的IP=>打开联机 5.或是由工具=>GDB=>加载并等候(选择要进行的游戏之后等待联机)6.开启游戏时(...
两台电脑用局域网连接,如何实现共同操作一个excel含有vba的表格
在EXCEL所在的文件夹上点击右键，属性，共享选项卡，勾选，允许网络用户更改我的文件。这样，任意一台电脑就都可以打开这个excel，并进行输入 在别的电脑上，打开此文件的方法：双击：网上邻居，查看工作组计算机，在显示的计算机内找到目标计算机，就可以看到共享的文件了。有不明白的在联系我 ...
[VBA]如何判断一个文件或者文件夹是否存在
)FolderExists_UseFso = fso.FolderExists(strPath)Set fso = Nothing End Function Function FileOrFolderExists_UseDir(strPath As String) As Boolean '注意，使用 DIR 函数来检测文件或者文件夹是否存在在局域网环境下 '由于访问权限问题可能会出错 If Dir(strPath) = "" Then 1和0 ...
