VFP 愛用者社區 首頁 VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
 
 常見問題常見問題   搜尋搜尋   會員列表會員列表   會員群組會員群組   會員註冊會員註冊 
 個人資料個人資料   登入檢查您的私人訊息登入檢查您的私人訊息   登入登入

求 區網上 mac 資料
前往頁面 1, 2  下一頁
 
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區
上一篇主題 :: 下一篇主題  
發表人 內容
LiChingLin



註冊時間: 2006-04-19
文章: 59


第 1 樓

發表發表於: 星期二 九月 11, 2007 9:49 pm    文章主題: 求 區網上 mac 資料 引言回覆

是否有辦法求出區網上電腦的mac資料
例如:
a = NetGetMac( 'PC01' )
b = NetGetMac( 'PC02' )
? a
? b

c = NetGetIP( 'PC01' )
d = NetGetIP( 'PC02' )
? c
? d
回頂端
檢視會員個人資料 發送私人訊息
garfield
Site Admin


註冊時間: 2003-01-30
文章: 2157


第 2 樓

發表發表於: 星期三 九月 12, 2007 1:46 am    文章主題: 引言回覆

參考 http://vfp.sunyear.com.tw/viewtopic.php?t=2521
_________________
利用>>搜尋<<的功能會比問的還要快得到答案.
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件
LiChingLin



註冊時間: 2006-04-19
文章: 59


第 3 樓

發表發表於: 星期四 九月 13, 2007 11:48 pm    文章主題: 引言回覆

這篇文章內容很實用,有無方法不使用MyDll.dll也可達到目的
目的:簡易KeyPro
類似文章很多,但是整理不出頭緒,何種方法好管理又實用
我是使用File Server架構不想整套被Ghost,遇到惡劣客戶+可惡工程師,已經損失不少
在此拋出話題,希望提醒狐友自立自強,迎接未來 ......
回頂端
檢視會員個人資料 發送私人訊息
syntech



註冊時間: 2003-05-16
文章: 4211
來自: Taipei,Taiwan

第 4 樓

發表發表於: 星期五 九月 14, 2007 2:21 pm    文章主題: 引言回覆

簡易KEYPRO 之前也PO過啦.

可以用 ASP+VFP-COM 來作,
也可以用 WINSOCKET 來作.

_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
sheuok



註冊時間: 2004-11-20
文章: 63
來自: Taiwan

第 5 樓

發表發表於: 星期六 九月 15, 2007 9:14 pm    文章主題: 引言回覆

可取的本機或【遠端電腦】 網卡卡號、CPUID、硬碟序號 =>修正版

****
Function uf_硬體序號(ulp_電腦名稱,ulp_使用者,ulp_密碼) &&-未輸入電腦名稱則視為本機
Public pa_硬體序號[3]
Private All Like m_*
m_owmi=Createobject("WbemScripting.SWbemLocator")
If Empty(ulp_電腦名稱)
m_olocal=m_owmi.connectserver(".", "root\cimv2")
Else
m_olocal=m_owmi.connectserver(ulp_電腦名稱,"root\cimv2",ulp_使用者,ulp_密碼)
Endif
m_ohardware=m_olocal.execquery("SELECT * FROM Win32_Processor")
For Each m_object1 In m_ohardware
pa_硬體序號[1]=m_object1.properties_('ProcessorId').Value
pa_硬體序號[1]=Iif(IsNull(pa_硬體序號[1]),"無法取得CPUID",pa_硬體序號[1])
Exit
Endfor
m_ohardware=m_olocal.execquery("SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled=1")
For Each m_object1 In m_ohardware
pa_硬體序號[2]=Strtran(m_object1.properties_('MACAddress').Value,":","-")
pa_硬體序號[2]=Iif(IsNull(pa_硬體序號[2]),"無法取得網卡序號",pa_硬體序號[2])
Exit
Endfor
m_ohardware=m_olocal.execquery("SELECT * FROM Win32_PhysicalMedia")
For Each m_object1 In m_ohardware
pa_硬體序號[3]=m_object1.properties_('SerialNumber').Value
pa_硬體序號[3]=Iif(IsNull(pa_硬體序號[3]),"無法取得硬碟序號",pa_硬體序號[3])
pa_硬體序號[3]=Alltrim(Substr(pa_硬體序號[3],1,40))
Exit
Endfor
* ? 'CPU序號:',pa_硬體序號[1]
* ? '網卡卡號:',pa_硬體序號[2]
* ? '硬碟序號:',pa_硬體序號[3]
Return(m_運算碼)


sheuok 在 星期二 九月 18, 2007 10:53 am 作了第 2 次修改
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件
sheuok



註冊時間: 2004-11-20
文章: 63
來自: Taiwan

第 6 樓

發表發表於: 星期六 九月 15, 2007 9:15 pm    文章主題: 引言回覆

取得網路上本機或區網上的網路卡卡號:
****
Function uf_網路卡號(lp_傳入參數) &&-傳入網路TCP/IP位址或第幾塊網卡取得當地網卡卡號
Declare Integer WSAStartup In Ws2_32 Integer wVerRq,String @lpWSAData
Declare Integer WSACleanup In Ws2_32
Declare Integer GetAdapterCount In Snmptools.Dll
Declare Integer GetAdapterMAC In Snmptools.Dll Integer,String
Declare Integer GetIPAddress In Snmptools.Dll Integer,String
Private All Like m_
If Vartype(lp_傳入參數) ="C"
#Define wsadata_size 398
#Define ws_version 514
Local lc_卡號字串, lc_sock值, lc_遠端位址, lc_網卡位址, lc_返回值
lc_卡號字串='000000000000'
**** 初始化 SOCKET
lc_sock值=Replicate(Chr(0), wsadata_size)
If wsastartup(ws_version, @lc_sock值)=0
**** 發送ARP檢查封包取得遠程MAC地址
lc_遠端位址=inet_addr(lp_傳入參數)
lc_網卡位址=Space(6)
If sendarp(lc_遠端位址, 0, @lc_網卡位址, 6)=0
lc_卡號字串=''
For m_i=1 To 6
lc_卡號字串=lc_卡號字串+Right(Transform(Asc(Substr(lc_網卡位址,m_i,1)),'@0'),2)
Endfor
Endif
= wsacleanup()
Endif
Else
If initsnmp()=1
m_no=0
m_傳回卡號=Space(12)
m_網卡數量= getadaptercount()
For m_i=1 To m_網卡數量
m_卡號= Space(12)
getadaptermac(m_i,@m_卡號) &&-卡號
m_網址= Space(15)
* getipaddress(m_i,@m_網址) &&-網址
* m_網址=Upper(Chrtran(m_網址, Chr(0), ''))
If !Empty(m_卡號)
m_no=m_no+1
If lp_傳入參數=m_no
m_傳回卡號=Upper(m_卡號)
Endif
Endif
Endfor
Return(m_傳回卡號)
Else
Messagebox('SNMPTools requires Winsock 2.0 or newer', 'SNMPTools')
Return(0)
Endif
Endif
Return lc_卡號字串
Endfunc

可參考資料引用自:
http://vfp.sunyear.com.tw/viewtopic.php?t=2521&highlight=mac+%BA%F4%A5d


sheuok 在 星期二 九月 18, 2007 8:11 am 作了第 2 次修改
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件
LiChingLin



註冊時間: 2006-04-19
文章: 59


第 7 樓

發表發表於: 星期六 九月 15, 2007 11:48 pm    文章主題: 引言回覆

先感謝大家熱烈支援
目前硬碟序號確定於 2007.09.03 證實成功被Ghost突破,損失已經確定 ..... 遺憾
小弟我目前得到狐友火線支援,理當更加努力更加謹慎

開始練功去 ....
謝謝大家!!
回頂端
檢視會員個人資料 發送私人訊息
215001



註冊時間: 2003-06-11
文章: 389


第 8 樓

發表發表於: 星期日 九月 16, 2007 11:13 am    文章主題: 引言回覆

sheuok 寫到:
Function uf_硬體序號()
Private All Like m_*
Decalre pa_硬體序號[3]


1.感謝 sheuok 提供的方法,確實是可以抓到硬體序號,
除了網路卡可用IPCONFIG/ALL 查到序號外,CPU及硬碟,從那裡可以查到序號(不拆開電腦的情況下)
回頂端
檢視會員個人資料 發送私人訊息
syntech



註冊時間: 2003-05-16
文章: 4211
來自: Taipei,Taiwan

第 9 樓

發表發表於: 星期三 九月 19, 2007 10:33 am    文章主題: 引言回覆

這些問題在很久前我們都想過了.

用硬碟序號可以用硬碟clone軟體複製.
用cpu,網路卡硬體會發生使用者更換硬體就要求要免費服務(硬體損壞更換是正常的,很難藉此收費).
線上license檢查會卡在使用者不見得能自由上網,
就算可以,建立自己的license server也得花一番功夫.

最後我們是準備用 winsocket + 單機keypro ,自己搞 網路keypro檢查.

_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
garfield
Site Admin


註冊時間: 2003-01-30
文章: 2157


第 10 樓

發表發表於: 星期三 九月 19, 2007 1:39 pm    文章主題: 引言回覆

贊同 syntech 的說法,
單純檢查網卡/硬體的法方是不花一毛錢,
用Server功能的keypro要花較多的錢,
能用 winsock + 單機keypro 是最經濟的解決方案.

winsock 優質參考範例: http://fox.wikis.com/wc.dll?Wiki~WinSockOCXSample~VFP

_________________
利用>>搜尋<<的功能會比問的還要快得到答案.
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件
215001



註冊時間: 2003-06-11
文章: 389


第 11 樓

發表發表於: 星期三 九月 19, 2007 1:40 pm    文章主題: 引言回覆

syntech 寫到:

最後我們是準備用 winsocket + 單機keypro ,自己搞 網路keypro檢查.


用winsocket 是否會碰到防火牆的問題,可以避開嗎
回頂端
檢視會員個人資料 發送私人訊息
syntech



註冊時間: 2003-05-16
文章: 4211
來自: Taipei,Taiwan

第 12 樓

發表發表於: 星期三 九月 19, 2007 1:49 pm    文章主題: 引言回覆

會碰到防火牆的問題.

不想碰防火牆的問題則必須使用 web service,
因為 web service 主要走網頁的80port,
比較不會被擋.

但是web service 必須設定iis,以及註冊物件,
不見得比開port輕鬆.
"兩害相權取其輕" Orz

_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
syntech



註冊時間: 2003-05-16
文章: 4211
來自: Taipei,Taiwan

第 13 樓

發表發表於: 星期三 九月 19, 2007 1:57 pm    文章主題: 引言回覆

雛型我已經作出來了.
利用 李老師 的winsocket範例.

實際上,以 asp 或是 web service 作檢查keypro的範例,
2005年11月 左右就放到本站了.

_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
garfield
Site Admin


註冊時間: 2003-01-30
文章: 2157


第 14 樓

發表發表於: 星期三 九月 19, 2007 3:12 pm    文章主題: 引言回覆

補上 syntech 兄 發表 web service 的文章連結
http://vfp.sunyear.com.tw/viewtopic.php?t=2104&highlight=web+service

_________________
利用>>搜尋<<的功能會比問的還要快得到答案.
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件
sheuok



註冊時間: 2004-11-20
文章: 63
來自: Taiwan

第 15 樓

發表發表於: 星期四 九月 27, 2007 2:42 pm    文章主題: 引言回覆

引言回覆:
除了網路卡可用IPCONFIG/ALL 查到序號外,CPU及硬碟,從那裡可以查到序號(不拆開電腦的情況下)


請下載 微軟提供的 WMITools 可查看該部份資料!
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件
從之前的文章開始顯示:   
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區 所有的時間均為 台北時間 (GMT + 8 小時)
前往頁面 1, 2  下一頁
1頁(共2頁)

 
前往:  
無法 在這個版面發表文章
無法 在這個版面回覆文章
無法 在這個版面編輯文章
無法 在這個版面刪除文章
無法 在這個版面進行投票
無法 在這個版面附加檔案
無法 在這個版面下載檔案


Powered by phpBB © 2001, 2005 phpBB Group
正體中文語系由 phpbb-tw 維護製作