autovelox2003 wrote:
心比大大,net v...(恕刪)
NET CONFIG SERVER
不就是只有本機的嗎???
如果只要伺服器名稱的話，只要加上pipe就行了
例如
net config server | find "伺服器名稱" > PC_description.txt
net config server | find "伺服器註解" >> PC_description.txt
其他想只取出某資訊的都可以套用這個做法…
挖勒...程式中的電燈泡是（ｉ）
===============================================================
On Error Resume Next
strComputer = "."
const HKEY_LOCAL_MACHINE = &H80000002
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set OutputFile=objFSO.OpenTextFile("D:\電腦資訊.txt",2,True)
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
OutputFile.Writeline "電腦名稱 : " & WshShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName")
OutputFile.Writeline "電腦描述 : " & WshShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\lanmanserver\parameters\srvcomment")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
OutputFile.Writeline "IP Address : " & IPConfig.IPAddress(i)
OutputFile.Writeline "NIC MAC : " & IPConfig.MACAddress(i)
Next
End If
Next
OutputFile.Close
==================================================================
檔案被佔用之類問題
終於解決了
原來問題出在我檔名是systeminfo.bat 這樣就會出錯
改pcinfo.bat就沒問題了
為何會這樣勒?
那可以做到ipconfig /all
直接點bat
讓CMD顯示結果不輸出檔案 卻不關閉視窗嗎?
我測試結果CMD結果一出來就關閉
內文搜尋
從 APP 打開
X