0

次のログオン時にローカルユーザーのパスワードを変更するためのボックスに「チェックを入れる必要がある」以下のコードがありますが、エラーが発生し続けます。

アカウントはすでに作成されており、ローカル サーバー上にあります。

助けてください。

環境内のサーバーが古いため、powershellではなくvbscriptでこれを行う必要があります。

コード：

' get computer name
Set oWshNet = CreateObject("WScript.Network" )
sComputerName = oWshNet.ComputerName

'Set Account Testuser Password Expired parameter
Set objUser = GetObject("WinNT:// " & sComputerName & "/Testuser")
objUser.Put "PasswordExpired", 1
objUser.SetInfo

エラー：

account.vbs(6, 1) (null): ネットワーク パスが見つかりませんでした。

** * **編集* ** * ** * ****

それを理解しました：（Googleに感謝します！）

Set oShell = CreateObject("WScript.Shell")
Const SUCCESS = 0

sUser = "TestUser"

' get the local computername with WScript.Network,
' or set sComputerName to a remote computer
Set oWshNet = CreateObject("WScript.Network")
sComputerName = oWshNet.ComputerName

Set oUser = GetObject("WinNT://" & sComputerName & "/" & sUser)

oUser.Put "PasswordExpired", 1
oUser.SetInfo

oShell.LogEvent SUCCESS, "Password Attribute Changed"
4

1 に答える 1

0

ありがとう。

これに対する答えは次のとおりです。

Set oShell = CreateObject("WScript.Shell") 
Const SUCCESS = 0 

sUser = "TestUser" 

' get the local computername with WScript.Network, 
' or set sComputerName to a remote computer 
Set oWshNet = CreateObject("WScript.Network") 
sComputerName = oWshNet.ComputerName 

Set oUser = GetObject("WinNT://" & sComputerName & "/" & sUser) 

oUser.Put "PasswordExpired", 1 
oUser.SetInfo 

oShell.LogEvent SUCCESS, "Password Attribute Changed"
于 2012-04-13T13:25:43.917 に答える