討論區快速選單
知識庫快速選單
網路投保旅行平安險 想要資料分析就學Python 政府補助!學嵌入式+物聯網
[ 回上頁 ] [ 討論區發言規則 ]
取得使用者清單及密碼到期日
更改我的閱讀文章字型大小
作者 : nimbus(nimbus)
[ 貼文 33 | 人氣 3655 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2011/2/1 上午 10:48:06
寫了一隻vbs程式抓取伺服器之使用者清單及密碼到期日,但是Guest帳戶已經設為停用狀態了,但跑出來的密碼到期日還是會隨著執行的時間+90日而改變,不知道是哪裡出了問題?
Set
objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile "c:\aaa.txt",True '刪除舊有檔案
If Not objFSO.FileExists("c:\aaa.txt") Then
   Set myFile = objFSO.CreateTextFile("c:\aaa.txt",ture)
Else
Set myFile = objFSO.OpenTextFile("c:\aaa.txt", ForAppending, True)
End If

Set
objWshNet = CreateObject("WScript.Network")
strComputer = objWshNet.ComputerName

myFile.WriteLine "使用者" & space(14) & "群組" & space(16) & "密碼到期日" & space(15) & "狀態"
myFile.WriteLine String(86,"=")
Set
colUsers = GetObject("WinNT://" & strComputer & "")
colUsers.Filter = Array("user")

For Each objaccount In colUsers
   
myFile.WriteLine objaccount.Name & "-" & objaccount.passwordExpirationDate
Next
myFile.WriteLine String(86,"-")
myFile.WriteLine
myFile.Close
 板主 : 徵求中
 > VB Script - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - VB Script - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
VB Script
1 羅蘋 270 
2 foolface 170 
3 坤哥 80 
4 nono 80 
5 阿戊 70 
6 sorry 60 
7 Kevin 50 
8 紫曰 40 
9 玩家 40 
10 黑天黑地 40 
VB Script
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2018 程式設計俱樂部 http://www.programmer-club.com.tw/
0.03125