アカウントを使用した接続

  WbemScripting.SWbemLocator



ConnectServer に関する Microsoft の詳細は こちらこちら です

基本的に ADSI と大差無いです。USER と PASSWORD が指定されなければ、その時のセキュリティ状況で接続します

※ ローカル接続には使用できません
  
Const Impersonate = 3
' 暗号化は 6

' **********************************************************
' WMI 接続
' **********************************************************
Function WMIConnect()

	strServer = document.all("Server").value
	if strServer = "" then
		strServer = "."
	end if
	strUser = document.all("User").value
	strPassword = document.all("Password").value

	' 接続
	on error resume next
	' ロケータ
	Set objLocator = CreateObject("WbemScripting.SWbemLocator")
	if Err.Number <> 0 then
		alert(Err.Description)
		WMIConnect = False
		Exit Function
	end if
	' サービス
	Set objService = objLocator.ConnectServer( _
		strServer, _
		"root\cimv2", _
		strUser, _
		strPassword _
	)
	if Err.Number <> 0 then
		alert(Err.Description)
		WMIConnect = False
		Exit Function
	end if
	' セキュリティ
	objService.Security_.ImpersonationLevel = Impersonate
	if Err.Number <> 0 then
		alert(Err.Description)
		WMIConnect = False
		Exit Function
	end if
	on error goto 0

	WMIConnect = True

End Function
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ