• 售前

  • 售后

热门帖子
入门百科

vbs提示没有在该机执行windows脚本宿主的权限。请与体系管理员联系

[复制链接]
李志敏 显示全部楼层 发表于 2021-8-19 19:02:12 |阅读模式 打印 上一主题 下一主题
近来在项目中使用VBS来实现图片的批量删除和批量导入功能,但不知道为什么,只要在我机器上一运行VBS文件就提示“没有在该机执行windows脚本宿主的权限。请与体系管理员接洽。”的错误。下面贴出本人的解决方法,并附上图片批量导入及批量删除的VBS代码。
假如只是因为权限题目可以查看这篇文章:
以管理员身份运行步伐的vbs下令
1、查抄体系是否禁止使用了脚本运行,即打开“INTERNET选项”的“安全”选项卡里“自界说级别”,看看“ActiveX空件及服务”禁用的选项。
2、运行 regsvr32 scrrun.dll,即打开运行输入CMD,输入regsvr32 scrrun.dll,再回车。
3、最关键的一步,即看看注册表里的这个位置HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Script Host\Settings在右边的窗口中是不是有个名为 Enabled的DWORD键值,有的话把它删除或者把值该为 1 即可。
4、重新运行VBS文件即将正常。
VBS批量导入图片功能
  1. '****************** Const ****************
  2. '---- CuRsorTypeEnum Values ----
  3. Const adOpenForwardOnly = 0
  4. Const adOpenKeyset = 1
  5. Const adOpenDynamic = 2
  6. Const adOpenStatic = 3
  7. '---- LockTypeEnum Values ----
  8. Const adLockReadOnly = 1
  9. Const adLockPessimistic = 2
  10. Const adLockOptimistic = 3
  11. Const adLockBatchOptimistic = 4
  12. '---- CuRsorLocationEnum Values ----
  13. Const adUseServer = 2
  14. Const adUseClient = 3
  15. '---- Custom Values ----
  16. Const cuDSN = "test"
  17. Const cuUsername = "sa"
  18. Const cuPassword = ""
  19. '*************** main sub ******************
  20. Call ImageExport()
  21. '*************** define function ***********
  22. Function ImageExport()
  23.   'on error resume next
  24.   Dim sSQL,Rs,Conn,sfzRs,sFilePath,sImgFile,xml
  25.   Dim Ados,fso,f,oShell,sErrFile,sSucFile,iErr,iSuc
  26.   Set fso = CreateObject("Scripting.FileSystemObject")
  27.   
  28.     ' Create Stream Object
  29.   set Ados=CreateObject("Adodb.Stream")
  30.     Ados.Mode=3
  31.     Ados.Type=1
  32.   Set Conn=CreateObject ("adodb.Connection")
  33.   Conn.CuRsorLocation =adUseClient
  34.   Call Init_Connection(Conn)
  35.   Set Rs=CreateObject ("adodb.recordset")
  36.   Set sfzRs=CreateObject ("adodb.recordset")
  37.   
  38.   sFilePath=WScript.ScriptFullName
  39.   sFilePath=left(sFilePath,len(sFilePath)-len(WScript.ScriptName))  
  40. ssql="SELECT RYBH, PHOTO FROM TP_ZPXX WHERE (RYBH IN (SELECT DISTINCT RYBH FROM TP_BMKM WHERE (KSZQBH = 18) AND (JFBZ = 1)))"
  41.   sfzRs.Open sSQL,Conn,adOpenForwardOnly
  42.   iSuc=sfzRs.RecordCount
  43.   
  44.   'Get SFZH From DataBase and import images
  45.   while not sfzRs.EOF
  46.     sImgFile= sFilePath & sfzRs("RYBH") & ".jpg"  
  47.     Ados.Open     
  48.     Ados.Write (sfzRs("PHOTO").GetChunk(4500000))   
  49.     Ados.SaveToFile sImgFile,1     
  50.     sfzRs.MoveNext     
  51.     Ados.Close
  52.   wend
  53.   
  54.   sfzRs.Close
  55.   Conn.Close
  56.   
  57.   'Release Object
  58.   set Rs=nothing:set sfzRs=nothing:set Conn=nothing:set Ados=nothing
  59.   
  60.   msgbox iSuc & "张照片导出成功",64 ,"照片导出"
  61.    
  62.   
  63.   'Quit
  64.   WScript.Quit
  65.   
  66. End Function
  67. Function Init_Connection(Conn)
  68.   on error resume next  
  69. ConnStr = "Provider=SQLOLEDB;Data Source=192.168.64.114;" & _
  70.         "Initial Catalog=VoteInfo;User Id=sa;Password=123456;timeout=50"
  71.   Conn.Open ConnStr  
  72.   If Err.number Then   
  73.     msgbox "数据库联接失败",16 ,"照片导出"
  74.     exit function
  75.   End If
  76. End Function
复制代码
VBS批量删除图片功能
  1. '****************** Const ****************
  2. '---- CuRsorTypeEnum Values ----
  3. Const adOpenForwardOnly = 0
  4. Const adOpenKeyset = 1
  5. Const adOpenDynamic = 2
  6. Const adOpenStatic = 3
  7. '---- LockTypeEnum Values ----
  8. Const adLockReadOnly = 1
  9. Const adLockPessimistic = 2
  10. Const adLockOptimistic = 3
  11. Const adLockBatchOptimistic = 4
  12. '---- CuRsorLocationEnum Values ----
  13. Const adUseServer = 2
  14. Const adUseClient = 3
  15. '---- Custom Values ----
  16. Const cuDSN = "test"
  17. Const cuUsername = "sa"
  18. Const cuPassword = ""
  19. '*************** main sub ******************
  20. Call ImageExport()
  21. '*************** define function ***********
  22. Function ImageExport()
  23.   'on error resume next
  24.   Dim sSQL,Rs,Conn,sfzRs,xml
  25.   Dim Ados,fso,f,oShell,sErrFile,sSucFile,iErr,iSuc  'iSuc 文件总数
  26.   Dim PicPath,PhysicPath,DelCount '删除文件数
  27.   Set fso = CreateObject("Scripting.FileSystemObject")
  28.   
  29.     ' Create Stream Object
  30.   set Ados=CreateObject("Adodb.Stream")
  31.     Ados.Mode=3
  32.     Ados.Type=1
  33.   Set Conn=CreateObject ("adodb.Connection")
  34.   Conn.CuRsorLocation =adUseClient
  35.   Call Init_Connection(Conn)
  36.   Set Rs=CreateObject ("adodb.recordset")
  37.   Set sfzRs=CreateObject ("adodb.recordset")  
  38.   
  39.   sSQL="select sPath,sFile from ScanFile"
  40.   sfzRs.Open sSQL,Conn,adOpenForwardOnly
  41.   iSuc=sfzRs.RecordCount
  42.   
  43.   'Get SFZH From DataBase and import images
  44.   while not sfzRs.EOF
  45.     PhysicPath="E:\VBS删除照片小程序" '物理路径   
  46.     Ados.Open   
  47.     PicPath =PhysicPath & sfzRs("sPath") &"" &  sfzRs("sFile")   
  48.     If (fso.FileExists(PicPath)) Then
  49.       fso.DeleteFile(PicPath)  
  50.       DelCount=DelCount+1
  51.     end if   
  52.     sfzRs.MoveNext     
  53.     Ados.Close
  54.     if iSuc-DelCount=iSuc Then
  55.       DelCount=0
  56.     end if   
  57.   wend
  58.   
  59.   sfzRs.Close
  60.   Conn.Close
  61.   
  62.   'Release Object
  63.   set Rs=nothing:set sfzRs=nothing:set Conn=nothing:set Ados=nothing:set fso=nothing
  64.   
  65.   msgbox "共需要删除" & iSuc & "张照片,其中" & DelCount & "张照片删除成功," &iSuc-DelCount & "张照片未找到!",64 ,"照片删除"
  66.    
  67.   
  68.   'Quit
  69.   WScript.Quit
  70.   
  71. End Function
  72. Function Init_Connection(Conn)
  73.   on error resume next  
  74. ConnStr = "Provider=SQLOLEDB;Data Source=192.168.64.114;" & _
  75.         "Initial Catalog=VoteInfo;User Id=sa;Password=123456;timeout=50"
  76.   Conn.Open ConnStr  
  77.   If Err.number Then   
  78.     msgbox "数据库联接失败",16 ,"照片删除"
  79.     exit function
  80.   End If
  81. End Function
复制代码
到此这篇关于vbs提示没有在该机执行windows脚本宿主的权限。请与体系管理员接洽的文章就介绍到这了,更多相关windows脚本宿主的权限内容请搜刮草根技术分享以前的文章或继续浏览下面的相关文章希望各人以后多多支持草根技术分享!

帖子地址: 

回复

使用道具 举报

分享
推广
火星云矿 | 预约S19Pro,享500抵1000!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

草根技术分享(草根吧)是全球知名中文IT技术交流平台,创建于2021年,包含原创博客、精品问答、职业培训、技术社区、资源下载等产品服务,提供原创、优质、完整内容的专业IT技术开发社区。
  • 官方手机版

  • 微信公众号

  • 商务合作