vbs 알림 은 이 컴퓨터 에서 windows 스 크 립 트 숙주 를 실행 할 수 있 는 권한 이 없습니다.시스템 관리자 에 게 연락 하 세 요

최근 프로젝트 에 서 는 VBS 를 사용 해 그림 의 일괄 삭제 와 일괄 가 져 오기 기능 을 구현 하고 있 지만,왜 그런 지 모 르 겠 지만,내 기기 에서 VBS 파일 을 실행 하기 만 하면"이 컴퓨터 에서 윈도 우즈 스 크 립 트 숙주 를 실행 할 권한 이 없다."시스템 관리자 에 게 연락 하 세 요."잘못아래 에 본인 의 해결 방법 을 붙 이 고 사진 대량 가 져 오기 및 대량 삭 제 된 VBS 코드 를 첨부 합 니 다.
권한 문제 로 만 이 글 을 볼 수 있다 면:
관리자 로 프로그램 을 실행 하 는 vbs 명령
1.시스템 이 스 크 립 트 실행 을 금 지 했 는 지 확인 합 니 다.즉,"INTERNET 옵션"의"보안"옵션 카드 에 있 는"사용자 정의 단계"를 열 고"ActiveX 빈 부품 및 서비스"가 사용 하지 않 는 옵션 을 보십시오.
2.regsvr 32 scrrun.dll 을 실행 합 니 다.즉,실행 입력 CMD 를 열 고 regsvr 32 scrrun.dll 을 입력 한 다음 에 차 로 돌아 갑 니 다.
3.가장 중요 한 단 계 는 레 지 스 트 에 있 는 이 위 치 를 보 는 것 입 니 다.HKEYLOCAL_MACHINE\SOFTWARE\Microsoft\Windows Script Host\Settings 오른쪽 창 에 Enabled 라 는 DWORD 키 가 있 는 지,있 으 면 삭제 하거나 값 을 1 로 하면 됩 니 다.
4.VBS 파일 을 다시 실행 하 는 것 이 정상 입 니 다.
VBS 일괄 이미지 가 져 오기 기능

'****************** Const ****************
'---- CuRsorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

'---- CuRsorLocationEnum Values ----
Const adUseServer = 2
Const adUseClient = 3

'---- Custom Values ----
Const cuDSN = "test"

Const cuUsername = "sa"
Const cuPassword = ""

'*************** main sub ******************

Call ImageExport()

'*************** define function ***********

Function ImageExport()
  'on error resume next
  Dim sSQL,Rs,Conn,sfzRs,sFilePath,sImgFile,xml
  Dim Ados,fso,f,oShell,sErrFile,sSucFile,iErr,iSuc
  Set fso = CreateObject("Scripting.FileSystemObject")
  
    ' Create Stream Object
  set Ados=CreateObject("Adodb.Stream")
    Ados.Mode=3
    Ados.Type=1

  Set Conn=CreateObject ("adodb.Connection")
  Conn.CuRsorLocation =adUseClient
  Call Init_Connection(Conn)
  Set Rs=CreateObject ("adodb.recordset")
  Set sfzRs=CreateObject ("adodb.recordset")
  
  sFilePath=WScript.ScriptFullName
  sFilePath=left(sFilePath,len(sFilePath)-len(WScript.ScriptName))  
ssql="SELECT RYBH, PHOTO FROM TP_ZPXX WHERE (RYBH IN (SELECT DISTINCT RYBH FROM TP_BMKM WHERE (KSZQBH = 18) AND (JFBZ = 1)))"
  sfzRs.Open sSQL,Conn,adOpenForwardOnly 
  iSuc=sfzRs.RecordCount 
  
  'Get SFZH From DataBase and import images
  while not sfzRs.EOF 
    sImgFile= sFilePath & sfzRs("RYBH") & ".jpg"  
    Ados.Open     
    Ados.Write (sfzRs("PHOTO").GetChunk(4500000))    
    Ados.SaveToFile sImgFile,1     
    sfzRs.MoveNext     
    Ados.Close 
  wend 
  
  sfzRs.Close 
  Conn.Close 
  
  'Release Object
  set Rs=nothing:set sfzRs=nothing:set Conn=nothing:set Ados=nothing
  
  msgbox iSuc & "       ",64 ,"    "
    
  

  'Quit 
  WScript.Quit
  
End Function

Function Init_Connection(Conn)
  on error resume next  
ConnStr = "Provider=SQLOLEDB;Data Source=192.168.64.114;" & _
        "Initial Catalog=VoteInfo;User Id=sa;Password=123456;timeout=50"
  Conn.Open ConnStr  

  If Err.number Then    
    msgbox "       ",16 ,"    "
    exit function
  End If
End Function

VBS 일괄 삭제 이미지 기능

'****************** Const ****************
'---- CuRsorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

'---- CuRsorLocationEnum Values ----
Const adUseServer = 2
Const adUseClient = 3

'---- Custom Values ----
Const cuDSN = "test"

Const cuUsername = "sa"
Const cuPassword = ""

'*************** main sub ******************

Call ImageExport()

'*************** define function ***********

Function ImageExport()
  'on error resume next
  Dim sSQL,Rs,Conn,sfzRs,xml
  Dim Ados,fso,f,oShell,sErrFile,sSucFile,iErr,iSuc  'iSuc     
  Dim PicPath,PhysicPath,DelCount '     
  Set fso = CreateObject("Scripting.FileSystemObject")
  
    ' Create Stream Object
  set Ados=CreateObject("Adodb.Stream")
    Ados.Mode=3
    Ados.Type=1

  Set Conn=CreateObject ("adodb.Connection")
  Conn.CuRsorLocation =adUseClient
  Call Init_Connection(Conn)
  Set Rs=CreateObject ("adodb.recordset")
  Set sfzRs=CreateObject ("adodb.recordset")  
  
  sSQL="select sPath,sFile from ScanFile"
  sfzRs.Open sSQL,Conn,adOpenForwardOnly 
  iSuc=sfzRs.RecordCount 
  
  'Get SFZH From DataBase and import images
  while not sfzRs.EOF 
    PhysicPath="E:\VBS       " '        
    Ados.Open   
    PicPath =PhysicPath & sfzRs("sPath") &"\" &  sfzRs("sFile")    
    If (fso.FileExists(PicPath)) Then
      fso.DeleteFile(PicPath)  
      DelCount=DelCount+1
    end if    
    sfzRs.MoveNext     
    Ados.Close 
    if iSuc-DelCount=iSuc Then
      DelCount=0
    end if    
  wend 
  
  sfzRs.Close 
  Conn.Close 
  
  'Release Object
  set Rs=nothing:set sfzRs=nothing:set Conn=nothing:set Ados=nothing:set fso=nothing
  
  msgbox "     " & iSuc & "   ,  " & DelCount & "       ," &iSuc-DelCount & "      ！",64 ,"    "
    
  

  'Quit 
  WScript.Quit
  
End Function

Function Init_Connection(Conn)
  on error resume next  
ConnStr = "Provider=SQLOLEDB;Data Source=192.168.64.114;" & _
        "Initial Catalog=VoteInfo;User Id=sa;Password=123456;timeout=50"
  Conn.Open ConnStr  

  If Err.number Then    
    msgbox "       ",16 ,"    "
    exit function
  End If
End Function

이 vbs 알림 은 이 컴퓨터 에서 windows 스 크 립 트 숙주 를 실행 할 수 있 는 권한 이 없습니다.시스템 관리자 에 게 연락 하 는 글 은 여기까지 입 니 다.windows 스 크 립 트 숙주 에 대한 권한 내용 은 이전 글 을 검색 하거나 아래 글 을 계속 찾 아 보 세 요.앞으로 도 많은 응원 부 탁 드 리 겠 습 니 다!