
加入局域网工作组:
1、例如:加入WORKGROUP,以WIN7为例,选择桌面上的计算机,鼠标右键选择属性;
2、点更改设置;
3、点更改;
4、选中工作组,输入WORKGROUP,点确定;
5、重启电脑生效。
有事,第二个没来的及写完,先试试,不行追问找时间再完善
@echo off
set fn=r:\sysinfolog
echo 计算机名=%computername%>%fn%
for /f "tokens=2 skip=3" %%i in ('reg query "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\lanmanserver\Parameters" /v srvcomment') do echo 计算机描述=%%j>>%fn%
for /f "skip=1" %%i in ('wmic computersystem where Name^="%COMPUTERNAME%" get domain') do echo 工作组=%%i>>%fn%
for /f "tokens=2 delims=:" %%i in ('ipconfig^|findstr "IP Address"') do echo IP地址=%%i>>%fn%
@echo off
set fn=r:\sysinfolog
for /f "tokens=1 delims= " %%i in ('findstr 计算机名 %fn%') do set n=%%j
for /f "tokens=1 delims= " %%i in ('findstr 计算机描述 %fn%') do set d=%%j
for /f "tokens=1 delims= " %%i in ('findstr 工作组 %fn%') do set g=%%j
for /f "tokens=1 delims= " %%i in ('findstr 工IP地址 %fn%') do set ip=%%j
wmic computersystem where Name="%computername%" call rename name=%n%
wmic computersystem where Name="%computername%" call Joindomainorworkgroup name=%g%
打印机服务器端设置:
1。首先你要确定两台计算机是否在同一工作组比如MSHOME
2。然后IP地址DHCP自动分配可以直接看3。如果是手动分配需要确定是不是在同一网段。一般性接着路由的初始状态都是自动分配IP
3。配置你打印机安装所在机器。 打开 控制面板 - > 打印机和传真 ->(你可以看到你安装的打印机的牌子和型号)右键选择之 - > 共享->选择'共享为'随便填一个名字。按OK确认
4。要保证你的打印机是默认打印机。 *** 作方法。右键点击该目标打印机- > 选择'设置为默认打印机' (其实这一步无所谓)
客户端:
1。添加安装网络打印机: 进入'控制面板'->打印机传真 -> 添加一个打印机 -> 选择网络打印机- > 然后浏览网络打印机->选择刚才服务端共享的那个打印机名字,然后按next一直到完成就行了。
2。要保证你的打印机是默认打印机。 *** 作方法。右键点击该目标打印机- > 选择'设置为默认打印机' (这一步很有所谓)。
现在好了,以后就可以共享打印机了。。。
VB可以使用Windows管理设备(WMI)进行读取计算机硬件信息。
Dim s, System, item
Dim i As Integer
Set System = GetObject("winmgmts:")InstancesOf("Win32_ComputerSystem")
For Each item In System
‘List1AddItem itemcputype
s = "Computer Info" & vbCrLf
s = s & "" & vbCrLf
s = s & "计算机名称: " & itemname & vbCrLf
s = s & "状态: " & itemStatus & vbCrLf
s = s & "类型: " & itemSystemType & vbCrLf
s = s & "生产厂家: " & itemManufacturer & vbCrLf
s = s & "型号: " & itemModel & vbCrLf
s = s & "内存: ~" & itemtotalPhysicalMemory \ 1024000 & "mb" & vbCrLf
s = s & "域: " & itemdomain & vbCrLf
‘s = s & "工作组" & itemWorkgroup & vbCrLf ‘获得工作组和域的选项不能同时用
s = s & "当前用户: " & itemusername & vbCrLf
s = s & "启动状态" & itemBootupState & vbCrLf
s = s & "该计算机属于" & itemPrimaryOwnerName & vbCrLf
s = s & "系统类型" & itemCreationClassName & vbCrLf
s = s & "计算机类类型" & itemDescription & vbCrLf
For i = 0 To 1 ‘这里假设安装了两个系统
s = s & Chr(5) & "启动选项" & i & " :" & itemSystemStartupOptions(i) _
& vbCrLf
Next i
Next
Text1Text = s
运行上面的代码后,在textBox中就可以显示计算机的信息。
在上面的代码中,程序通过GetObject("winmgmts:")获得WMI对象,然后获得下面的
Win32_ComputerSystem子项并通过访问Win32_ComputerSystem对象中的分项获得系统中的信息。
需要说明的是,并不是所有的系统都支持WMI,在有些系统中无法显示生产厂家等信息。
StreamReader sr = new StreamReader(/这里填要读取的文件的完整路径的字串/);
List<String> l_gropName = new List<String>(); //存放工作组名的列表
String str_readLine = srReadLine(); //按行读取文件内容
while(str_readLine != null) //判断当前读取的行是否为空,若为空则表示读到了文本的末尾则不再继续读取
{
if(!str_readLineContains("----") && !str_readLineContains("命令成功完成。") && !str_readLineContains("Domain")) //判断当前读取的行里是否包含“----”,"Domain"和"命令成功完成。"不包含就表示是工作组名
{
l_gropNameAdd(str_readLine); //将工作组名加到列表
}
str_readLine = srReadLine(); //接着读取下一行
}
Private Sub Command1_Click()
Dim a As Object
Set a = CreateObject("WscriptNetwork")
Print aComputerName
Print aUserName
Print aUserDomain
End Sub
以上就是关于设置路由器后如何加入原局域网工作组全部的内容,包括:设置路由器后如何加入原局域网工作组、批处理获取当前计算机名、工作站域、IP输出文件,并根据文件修改系统信息、笔记本电脑(工作组workgroup)是无线接入网络(自动获取IP),如何使用局域网工作组中共享的打印机等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)