彙整

Posts Tagged ‘待測試’

Blogger 相關 Hacks 文章或技巧測試

2008 年 11 月 04 日 發表留言

文章來源:

  1. Blogger Beta Banner置入Html/Javascript欄位Chagg’s 嘴砲日記 (OK)
  2. 部落格文章標題優化,加強SEO效果0 與 1 謎詭世界 (OK)
  3. Blogger Hack – 讓側邊工具列sidebar可以展開摺疊 (OK)
  4. 讓側邊列 (Sidebar) 的元件能夠展開和摺疊 (Element Toggling) (OK)
  5. 如何將標題(頭)分兩欄,加入網頁元素0 與 1 謎詭世界 (OK)
  6. 新增Blogger Header及Post的網頁元素,可加入圖片或Adsense (OK)
  7. [Blogger/CSS]如何用 CSS 在 Blogger 作分頁 (OK)
  8. 在blogger(blogspot) 標題列下加入一個水平列的功能選單(menu bar) (OK)
  9. 2007-03-05 加入相關文章功能 (Related Post)Abin’s Tech Note
  10. 安裝最新回應外掛 for blogger v2.0LVCHEN 的美國生活指南 (OK)
  11. 結合發表文章的日曆模組 (Feed Calendar)Abin’s Tech Note [相關應用:css 顏色表 ] (OK)
  12. 來試試新玩意之四,Blogger in Draft:Embedded Comment Form (OK) 2008-11-07

測試狀況

  • 第 1~4 項 OK
  • 第 5 項 標題可分為二欄,但是左右二欄的上下邊不能對齊。
  • 第 6 項 不同的地方:’main-wrapper’ –> ‘main-wrap1’
  • 第 9 項 測試記錄在 Blogger 的"相關文章"功能。(2008-11-09)
  • 第12項 設定完成後,不用修改範本,即OK。

2. 再修改post的部分, 找到以下程式碼.

<div id='main-wrap1'><b:section class='main' id='main' showaddelement='no'>

把紅字部分改成以下.

<div id='main-wrap1'><b:section class='main' id='main' showaddelement='yes'>

  • 第 7 項 Menu 的圖型顯示不出來,MENU的位置和標題的下邊有覆蓋情形。

不錯的 Blogger Hacks 網站:

其他:

分類:Blogger Hack 標籤:,

Google Sites 協作平台相關介紹連結

2008 年 10 月 31 日 發表留言
分類:軟體 標籤:,

更改本地管理員密碼的腳本(修)

2008 年 10 月 27 日 2 留言

參考資料:

  1. 更改本地管理員密碼的腳本(Winmag亞洲技術社區)
  2. 運行腳本權限問題! – 微軟中文技術論壇(MSDN and TechNet)
  3. 更改 Windows 本地管理員密碼(微軟中國)
  4. 在域控制器上如何一次修改屬於這個域的計算機的管理員密碼?-by gnaw0725
  5. GPUpdate 刷新组策略设置(使组策略立即生效) — Windows XP/2003 以上 (2008-10-27 新增)

討論內容節錄如下:(參考資料1)

Dim oWshNetwork
Set oWshNetwork = WScript.CreateObject("WScript.Network")

Dim strComputer
strComputer = oWshNetwork.ComputerName
'WScript.Echo strComputer

Set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user")
objUser.SetPassword "testpassword"
objUser.SetInfo

微軟的範例:(參考資料3,4)

'Changing the Local Administrator Password.vbs
'*****************************************************
'
' file: Changing the Local Administrator Password.vbs
' Author: Microsoft
'
'*****************************************************
strComputer = "."
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator,user")
objUser.SetPassword "testpassword"
objUser.SetInfo

——————————————————以下2008-10-27新增
或者寫一個 Batch File 內容如下: (假設命名為 ChangeAdminPW.BAT)

@echo off

NET USER Administrator testpassword

  • 再將該 Batch file or VBS放置在 \\{DC}\sysvol\{domain}\Policies\{31B2F340-016D-11D2-945F-00C04FB984F9}\USER\Scripts\Logon
  • 進入 群組物件編輯器 –>GPO 的 使用者設定 –> Windows 設定 –> 指令碼 – (登入/登出) –> 登入 –> 新增
  • GPO更改完成之後,可在 CMD 下輸入以下指令,使更新過的GPO策略立即生效。(參考資料4)
    • 以下指令 Windows 2000 Server 適用
      secedit /refreshpolicy MACHINE_POLICY
    • 以下指令 Windows 2003 Server 適用
      gpupdate /force 
  • 在DC共享出去的 netlogon 文件夾上,注意domain computers是否有加到權限表裡。(參考資料2) --感謝changdiao的提醒,此段文字內容我沒有詳加確認就放上去,在此刪除。(2008-11-17)
  • 以下是 Netlogon 的相關權限畫面:(僅供參考,方便爾後對照 – 2008-11-17)imageimageimage
    • 一般只要是網域的User,登入之後就會執行。Everyone 只要給 Read 權限即可。Authenticated Users 的 Default 權限如上圖。
  • 以上作法,每登入一次就會執行一次。

———————————————–以上2008-10-27新增及修改

以上密碼為明碼, 也可使用下列二種工具來編碼之後,再設定在GPO上:
1.可使用 Script Encoder 來編碼 (Screnc.exe)

2.可使用 VBS2EXE 工具編譯成EXE

分類:MIS維護 標籤:, , ,

文件夾權限查看

2008 年 10 月 15 日 發表留言

文章來源:http://gnaw0725.blogbus.com/logs/28477239.html

問題:有什麼方法能夠批量查看文件夾和子文件夾權限,或者說目錄權限?

回答:根據您的描述,我對這個問題的理解是:您想知道如何列出一個文件夾及其子文件夾的訪問許可。
您可以從微軟網站上下載FILEACL工具來達到您的要求。
具體的用法如下:
1. 假設您有一個文件夾叫做d:\test
2. Test 下有test1\test2\test3\test4\test5 子文件夾
3. 如果您想要查看所有的文件夾許可,可以用下面的命令:
Fileacl d:\test /sub:5

4. 如果您只想查看直到test3的文件夾許可,可以使用下面的命令:
Fileacl c:\test /sub:3
也就是說,想看到第幾層文件夾就用sub:/n參數。如果不加參數,則是只看到test文件夾的用戶許可。
請注意,該工具並不是一個微軟的官方工具所以我們不提供對於它的任何支持。
您可以從以下地址下載該工具:
http://www.microsoft.com/downloads/details.aspx?FamilyID=723f64ea-34f0-4e6d-9a72-004d35de4e64&DisplayLang=en

根據我的研究,微軟並沒有現成的圖形工具來實現您的目的。您可以在命令行最後加一個」>c:permisstion.txt」選項,這樣的話您可以去c:\找到permission.txt文件,打開文件查看權限。

如果您想使用圖形界面,我的建議是使用使用Script。

邵宏 微軟全球技術支持中心

——————————————
File Name: fileacl.exe
Version: 1
Date Published: 3/23/2004
Language: English
Download Size: 99 KB
檔案有點舊
——————————————

分類:MIS維護 標籤:, ,

如何遠端變更分公司電腦的administrator密碼

2008 年 10 月 09 日 發表留言

文章來源: http://ithelp.ithome.com.tw/question/10011917?tag=daily.update

Q.

為了提高安全性
必須週期性變更分公司電腦的Administrator密碼
但是要如何一次大量變更所有電腦的Administrator密碼呢?

A.

1. 首先將分公司電腦的電腦名稱列出並儲存成c:\pcs.txt
2. 使用 PsPasswd 變更所有在c:\pcs.txt中列出電腦的 local administrator 的密碼
pspasswd.exe @c:\computers.txt administrator NewPassword
pspasswd.exe可以到下列網址下載
http://download.sysinternals.com/Files/PsTools.zip

待測試

分類:MIS維護 標籤:, ,

如何自製綠色軟體

2008 年 10 月 08 日 發表留言

在 IT 邦幫忙 看到這篇文章 http://ithelp.ithome.com.tw/question/10003744?tag=rt.rq

首先,請確認該軟體已經安裝完成了,接著按照如下來進行

第二步——備份
需要用GHOST或其他工具來備份系統分區,這樣可以使你很方便的把系統還原到初始狀態。

第三步——“綠化”
安裝你需要“綠化”的軟體,把安裝路徑設置成非系統分區(例如 D:\)。安裝完成之後,用Ghost把之前備份的內容還原到系統分區,這樣,你就有了一個沒有任何修改的作業系統,但是在非系統分區裏卻有了你的“綠化”的軟體。
繼續創建一個受限用戶,並且禁止這個用戶修改註冊表、禁止添加或者刪除系統文件夾裏的文件(如 c:\windows or c:\windows\system32, etc…)。
運行安裝之後的軟體如果運行成功,說明這個軟體是可以“綠化”的,並且已經被你“綠化”了。

第四步——壓縮
現在,你可以把安裝的軟體所在的文件夾打包壓縮,並且這個文件應該可以在任意一台電腦上使用而無需安裝了

另外你可參考
用WinRAR打造純粹的綠色軟體
優化大師巧制綠色軟體
若你想找別人製作的綠色軟體

這裡收集了許多常用免費軟體免安裝版http://blog.yam.com/jinnsblog/article/9745051

分類:軟體 標籤:,

VBS代碼自動把客戶端加入你的網域

2008 年 10 月 06 日 發表留言

文章來源: http://www.winmag.com.cn/forum/itemdisplay.asp?boardid=24&id=704213

內容如下:

個人整理的,平時也有在用,切實可行,按照你的需要修改吧,把下列代碼拷貝到寫字板中,另存為: **.vbs,要用時雙擊就好了,是IT的都看懂:

可以實現:

  1. 自定議電腦名稱
  2. 自動加入網域
  3. 自動添加 域賬號 客戶機 POWER USER權限
  4. 刪除 本機 ADMINISTRATORS中除 ADMINISTRATOR DOMAIN ADMIN以外的帳號
  5. 修改本機 ADMINISTRATOR密碼為 自己想要的密碼
'********************** '定義數據 '**********************
Dim reval 
Dim computer_name1 
Dim computer_name2 
Dim computer_name3 
Dim computer_name4 
Dim computer_name5 
'********************** 
'電腦名稱命名規則 
'********************** 
MsgBox "行政公關:0210-英文名;財務會計:0220-英文名;" _
     & "機構工程:0710-英文名;電子測試:0730-英文名;" _
     & "新產品:0800-英文名",vbokcancel+vbexclamation, _
       "電腦名稱命名規則!" 
'********************** 
'用戶自定義電腦名稱 
'********************** 
Set objnet = CreateObject ("WScript.Network") 
Set R = CreateObject("WScript.Shell") 
reval = InputBox ("你當前的電腦名稱是:" _
     & objnet.ComputerName,"請輸入新的電腦稱:") 
'********************** 
'存儲變量 
'********************** 
computer_name1 = reval 
computer_name2 = reval 
computer_name3 = reval 
computer_name4 = reval 
computer_name5 = reval 
'********************** 
'修改電腦名稱 
'********************** 
On Error Resume Next 
strComputer = "." 
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2") 
Set colComputers = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem") 
For Each objComputer in colComputers 
    errReturn = ObjComputer.Rename (computer_name1) 
  ' If reval <> "" Then 
  '    return=MsgBox ("請按確定重新啟動電腦", vbokcancel+vbexclamation, "注意!") 
  '    If return=vbok Then 
  '       R.run("Shutdown.exe -r -t 0") 
  '    End if 
  ' End If 
Next 
'********************** 
'加入XXXXX-CHINA域 
'********************** 
'* http://support.microsoft.com/kb/222525 
'* MAIL: tjq_wzy@hotmail.com 
'********************** 
'strDomain需更改成自己域名 
'strPassword及strUser具有權限加域的密碼及用戶 
'********************** 
Const JOIN_DOMAIN = 1 
Const ACCT_CREATE = 2 
Const ACCT_DELETE = 4 
Const WIN9X_UPGRADE = 16 
Const DOMAIN_JOIN_IF_JOINED = 32 
Const JOIN_UNSECURE = 64 
Const MACHINE_PASSWORD_PASSED = 128 
Const DEFERRED_SPN_SET = 256 
Const INSTALL_INVOCATION = 262144 
strDomain = "xxxxx-china.cn" 
strPassword = "xxxxx-china" 
strUser = "admin" 
'有domain admins權限的用戶及密碼 
Set objNetwork = CreateObject("WScript.Network") 
strComputer = objNetwork.ComputerName 
Set objComputer = GetObject("winmgmts:" _ 
    & "{impersonationLevel=Impersonate}!\\"& _
    strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
    strComputer & "'") 
Returnvalue = objComputer.JoinDomainOrWorkGroup(strDomain, _
    strPassword, strDomain & "\" & strUser, NULL, _
    JOIN_DOMAIN + ACCT_CREATE) 
wscript.echo "已成功加入xxxxx-CHINA.CN域!" 
' wscript.echo "Pls. Reset Your Computer!" 
'******************************* 
'添加用戶到POWER USERS群組 
'以下第二句WinNT://後為自己的域名 
'******************************* 
dim myname 
myname = InputBox ("請輸入你申請賬號時的英文名稱,輸入錯誤將不能登錄:","自定義開機用戶名!") 
Set objGroup = GetObject("WinNT://" & computer_name2 & "/Power Users") 
Set objUser = GetObject("WinNT://xxxxx-china/" & myname) 
objGroup.Add(objUser.ADsPath) 
'*********************************** 
'刪除本地ADMINISTRATORS組中的其它成員 
'除administrator 及 Domain Admins 
'*********************************** 
Set objGroup = GetObject("WinNT://" & computer_name3 & "/Administrators") 
For Each objUser In objGroup.Members 
If objUser.Name <> "Administrator" AND objUser.Name <> "Domain Admins" Then 
   Wscript.Echo "刪除ADMIN群組賬號:" & objUser.Name 
   objGroup.Remove(objUser.AdsPath) 
End If 
Next 
'*********************************** 
'修改本機管理員ADMINISTRATOR的密碼 
'*********************************** 
'下面第三句引號部分為密碼字符 
'*********************************** 
strComputer = "computer_name5" 
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user") 
objUser.SetPassword "ks_its_" 
objUser.SetInfo 
'*********************************** 
'所有操作完成重新啟動電腦 
'*********************************** 
'wscript.echo "所有的操作完成,將重新啟動電腦!" 
'Set objWMIService = GetObject("winmgmts:" _
'    & "{impersonationLevel=impersonate,(Shutdown)}!\\" _
'    & computer_name4 & "\root\cimv2") 
'Set colOperatingSystems = objWMIService.ExecQuery _ 
'    ("Select * from Win32_OperatingSystem") 
'For Each objOperatingSystem in colOperatingSystems 
'    ObjOperatingSystem.Reboot() 
'Next 
return=MsgBox ("所有的操作完成,將重新啟動電腦!",vbokcancel+vbexclamation,"注意!") 
If return=vbok Then 
   R.run("Shutdown.exe -r -t 0") 
End if 
'******************** 
'end 
'******************** 

修改 Administrator 的密碼該程式段值得參考, 先收錄之.

分類:MIS維護 標籤:,
%d 位部落客按了讚: