網路爬蟲
03-11-06, 11:26 AM
本人想在客戶端取得服務器硬盤物理序列號, 用了一個DLL和一個EXE文件(運行後在服務器C産生txt記錄 服務器硬盤物理序列號).傳至服務器.
寫了一代理運行:
Sub Initialize
Dim doc As NotesDocument
Set oScript=CreateObject("WSCRIPT.SHELL")
Set oFileSys=CreateObject("Scripting.FileSystemObject")
Call oScript.Run("C:\WINNT\system32\HDID.exe" ,0,True)
Set oScript=Nothing
Dim strHDID As String
Open "C:\HDID_Lotus.txt" For Input As #1
Line Input #1,strHDID
'Msgbox " 你的硬盤物理序列號是: "&strHDID
Close #1
Dim sess As New NotesSession
Dim db As NotesDataBase
Set db=sess.CurrentDataBase
Set doc=db.CreateDocument
doc.Form="HDID"
doc.ID=strHDID
Call doc.save(True,False)
End Sub
代理提示(非手動):
2006/11/03 上午 11:09:24 AMgr: Agent ('RRRRR' in 'Test\DelinXiong.nsf') error message: Operation is disallowed in this session
是什麽原因啊?
仔細看看就知道是個笨辦法, 有沒有高手提供更好的方法??先謝過~~
寫了一代理運行:
Sub Initialize
Dim doc As NotesDocument
Set oScript=CreateObject("WSCRIPT.SHELL")
Set oFileSys=CreateObject("Scripting.FileSystemObject")
Call oScript.Run("C:\WINNT\system32\HDID.exe" ,0,True)
Set oScript=Nothing
Dim strHDID As String
Open "C:\HDID_Lotus.txt" For Input As #1
Line Input #1,strHDID
'Msgbox " 你的硬盤物理序列號是: "&strHDID
Close #1
Dim sess As New NotesSession
Dim db As NotesDataBase
Set db=sess.CurrentDataBase
Set doc=db.CreateDocument
doc.Form="HDID"
doc.ID=strHDID
Call doc.save(True,False)
End Sub
代理提示(非手動):
2006/11/03 上午 11:09:24 AMgr: Agent ('RRRRR' in 'Test\DelinXiong.nsf') error message: Operation is disallowed in this session
是什麽原因啊?
仔細看看就知道是個笨辦法, 有沒有高手提供更好的方法??先謝過~~