Office中国论坛/Access中国论坛

标题: [求助]想用access写个记录系统所有文档打印记录，不知道从哪下手。 [打印本页]

作者: 软件下载 时间: 2012-8-11 21:17
标题: [求助]想用access写个记录系统所有文档打印记录，不知道从哪下手。
想做一个ACCESS程序，在运行时，将操作系统下任何形式的打印文档都记录下来，如用word打印一个标题为“简历”的doc文件，则access里记录下打印时间、文档标题、文档位置、文档大小、打印页数、当前用户名，不知道从哪下手。

作者: 软件下载 时间: 2012-8-11 21:49
在winos网站里找到一段脚本代码，由于我现在系统是win7 64位的，运行时提示“缺少语句”，不知道是代码问题还是我系统问题，有没有人愿意帮我测试一下，注意：运行时360会提示有木马，我让它信任了，你要是不信就不用测试。

测试方法：
1。将下列代码保存到记事本中，文件名任意取，后缀为VBS,比如a.vbs

2。点开始-运行-cmd，然后在DOS窗口中运行"cscript  a.vbs"(引号不用）

3.看看结果都有啥提示。

以下****号下面的为代码

****************************************开始处，此处不用复制*****************************
strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colMonitorPrinfJob = objWMIService.ExecNotificationQuery _

("SELECT * FROM __InstanceCreationEvent WITHIN 1" & _

"WHERE TargetInstance ISA 'Win32_PrintJob'")

Do

      WScript.Echo "Waiting for PrintJob to be created ..."

      Set objLatestEvent = colMonitorPrinfJob.NextEvent

      Wscript.Echo VbCrLf & "Document Name: " & objLatestEvent.TargetInstance.Document
      Wscript.Echo "User Name: " & objLatestEvent.TargetInstance.Owner

      Wscript.Echo "TimeSubmitted: " & WMIDateStringToDate(objLatestEvent.TargetInstance.TimeSubmitted)

      Wscript.Echo "TotalPages: " & objLatestEvent.TargetInstance.TotalPages

Loop

Function WMIDateStringToDate(dtmInstallDate)

WMIDateStringToDate = CDate(Mid(dtmInstallDate, 5, 2) & "/" & _

      Mid(dtmInstallDate, 7, 2) & "/" & Left(dtmInstallDate, 4) _

         & " " & Mid (dtmInstallDate, 9, 2) & ":" & _

            Mid(dtmInstallDate, 11, 2) & ":" & Mid(dtmInstallDate, _

                  13, 2))

End Function

****************************************结束处，此处不用复制*****************************

作者: zhuyiwen 时间: 2012-8-12 02:00
你把它放到32位系统下试试

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)