2011年12月16日


ユーザー環境変数の設定

PC名とユーザ名が必要です
' **********************************************************
' PC 名と ユーザ名を取得
' **********************************************************
Dim WshNetwork : Set WshNetwork = CreateObject( "WScript.Network" )
Dim strUser : strUser = WshNetwork.UserName
Dim strMachine : strMachine = WshNetwork.ComputerName

Dim strComputer : strComputer = "."
Dim obj : Set obj = GetObject("winmgmts:\\"&strComputer&"\root\cimv2")


' **********************************************************
' ユーザ環境変数を登録
' **********************************************************
Dim objEnv : Set objEnv = obj.Get("Win32_Environment").SpawnInstance_

objEnv.Name = "MyENV"
objEnv.UserName = strMachine & "\" & strUser
objEnv.VariableValue = "設定しました"
objEnv.Put_



posted by at 09:10 | Comment(0) | WMI | このブログの読者になる | 更新情報をチェックする


この記事へのコメント
コメントを書く
お名前:

ホームページアドレス:

コメント:

認証コード: [必須入力]


※画像の中の文字を半角で入力してください。
※ブログオーナーが承認したコメントのみ表示されます。