Snippets ( Windows Users ) - Revision history

Spudw2k: /* _GetLocalAdmins */

2015-04-01T17:19:50Z

_GetLocalAdmins

← Older revision		Revision as of 17:19, 1 April 2015
Line 125:		Line 125:
	Func _GetLocalAdmins($sHost = @ComputerName)		Func _GetLocalAdmins($sHost = @ComputerName)
	Local $sAdminUsers = ""		Local $sAdminUsers = ""
	Local $~~cGroups~~ = ObjGet("WinNT://" & $sHost & "")		Local $oColGroups = ObjGet("WinNT://" & $sHost & "")
	If Not IsObj($~~cGroups~~) Then Return 0		If Not IsObj($oColGroups) Then Return 0
	Local Const $bAdminGroupSID = "0x01020000000000052000000020020000"		Local Const $bAdminGroupSID = "0x01020000000000052000000020020000"
	Local $aFilter[1] = ["group"]		Local $aFilter[1] = ["group"]
	$~~cGroups~~.Filter = $aFilter		$oColGroups.Filter = $aFilter
	For $oGroup In $~~cGroups~~		For $oGroup In $oColGroups
	If $oGroup.objectSID = $bAdminGroupSID Then		If $oGroup.objectSID = $bAdminGroupSID Then
	For $oUser In $oGroup.Members		For $oUser In $oGroup.Members
Line 138:		Line 138:
	EndIf		EndIf
	Next		Next
	$~~cGroups~~ = 0		$oColGroups = 0
	$aFlter = 0		$aFlter = 0
	Return $sAdminUsers		Return $sAdminUsers

Spudw2k: /* _GetLocalUsers */

2015-04-01T17:18:31Z

_GetLocalUsers

← Older revision		Revision as of 17:18, 1 April 2015
Line 95:		Line 95:

	;Retrieve Local Machine Users		;Retrieve Local Machine Users
	Func _GetLocalUsers($~~host~~ = @ComputerName)		Func _GetLocalUsers($sHost = @ComputerName)
	Local $~~Users~~ = ""		Local $sUsers = ""
	Local $~~colUsers~~ = ObjGet("WinNT://" & $~~host~~ & "")		Local $oColUsers = ObjGet("WinNT://" & $sHost & "")
	If Not IsObj($~~colUsers~~) Then Return 0		If Not IsObj($oColUsers) Then Return 0
	Dim $~~filter~~[1] = ["user"]		Dim $aFilter[1] = ["user"]
	$~~colUsers~~.Filter = $~~filter~~		$oColUsers.Filter = $aFilter
	For $~~objUser~~ In $~~colUsers~~		For $oUser In $oColUsers
	$~~Users~~ &= $~~objUser~~.name & @CR		$sUsers &= $oUser.name & @CR
	Next		Next
	$~~Users~~ = StringTrimRight($~~Users~~,1)		$sUsers = StringTrimRight($sUsers,1)
	$~~colUsers~~ = 0		$oColUsers = 0
	$~~filter~~ = 0		$aFilter = 0
	Return $~~Users~~		Return $sUsers
	EndFunc ;==>_GetLocalUsers</syntaxhighlight>		EndFunc ;==>_GetLocalUsers</syntaxhighlight>

Spudw2k: /* _GetLocalAdmins */

2015-04-01T17:17:10Z

_GetLocalAdmins

← Older revision		Revision as of 17:17, 1 April 2015
Line 123:		Line 123:

	;Retrieve Members of the Local Administrators Group		;Retrieve Members of the Local Administrators Group
	Func _GetLocalAdmins($~~host~~ = @ComputerName)		Func _GetLocalAdmins($sHost = @ComputerName)
	Local $~~AdminUsers~~ = ""		Local $sAdminUsers = ""
	Local $~~colGroups~~ = ObjGet("WinNT://" & $~~host~~ & "")		Local $cGroups = ObjGet("WinNT://" & $sHost & "")
	If Not IsObj($~~colGroups~~) Then Return 0		If Not IsObj($cGroups) Then Return 0
	~~Dim~~ $~~filter~~[1] = ["group"]		Local Const $bAdminGroupSID = "0x01020000000000052000000020020000"
	$~~colGroups~~.Filter = $~~filter~~		Local $aFilter[1] = ["group"]
	For $~~objGroup~~ In $~~colGroups~~		$cGroups.Filter = $aFilter
	If $~~objGroup~~.~~name~~ = ~~"Administrators"~~ Then		For $oGroup In $cGroups
	For $~~objUser~~ In $~~objGroup~~.Members		If $oGroup.objectSID = $bAdminGroupSID Then
	$~~AdminUsers~~ &= $~~objUser~~.~~name~~ & @CR		For $oUser In $oGroup.Members
	Next		$sAdminUsers &= $oUser.Name & @CR
	$~~AdminUsers~~ = StringTrimRight($~~AdminUsers~~,1)		Next
	EndIf		$sAdminUsers = StringTrimRight($sAdminUsers,1)
	Next		EndIf
	$~~colGroups~~ = 0		Next
	$~~filter~~ = 0		$cGroups = 0
	Return $~~AdminUsers~~		$aFlter = 0
			Return $sAdminUsers
	EndFunc ;==>_GetLocalAdmins</syntaxhighlight>		EndFunc ;==>_GetLocalAdmins</syntaxhighlight>

Spudw2k at 15:06, 19 June 2014

2014-06-19T15:06:20Z

@@ Line 81: / Line 81: @@
 EndFunc   ;==>_GetUserFullName
 </syntaxhighlight>
 [[#top | ReturnToContents]]

Spudw2k: /* _GetLocalAdmins */

2014-06-19T15:04:25Z

_GetLocalAdmins

← Older revision		Revision as of 15:04, 19 June 2014
Line 94:		Line 94:
	ConsoleWrite(_GetLocalAdmins() & @CRLF)		ConsoleWrite(_GetLocalAdmins() & @CRLF)

	;Retrieve ~~Memebrs~~ of the Local Administrators Group		;Retrieve Members of the Local Administrators Group
	Func _GetLocalAdmins($host = @ComputerName)		Func _GetLocalAdmins($host = @ComputerName)
	$AdminUsers = ""		Local $AdminUsers = ""
			Local $colGroups = ObjGet("WinNT://" & $host & "")
			If Not IsObj($colGroups) Then Return 0
	Dim $filter[1] = ["group"]		Dim $filter[1] = ["group"]
	~~$colGroups = ObjGet("WinNT://" & $host & "")~~
	~~If Not IsObj($colGroups) Then Return 0~~
	$colGroups.Filter = $filter		$colGroups.Filter = $filter
	For $objGroup In $colGroups		For $objGroup In $colGroups
Line 109:		Line 109:
	EndIf		EndIf
	Next		Next
			$colGroups = 0
			$filter = 0
	Return $AdminUsers		Return $AdminUsers
	EndFunc ;==>_GetLocalAdmins		EndFunc ;==>_GetLocalAdmins</syntaxhighlight>
	</syntaxhighlight>

	[[#top \| ReturnToContents]]		[[#top \| ReturnToContents]]

Spudw2k: Added _GetLocalAdmins Snippet

2013-12-31T18:08:22Z

Added _GetLocalAdmins Snippet

@@ Line 80: / Line 80: @@
      EndIf
 EndFunc   ;==>_GetUserFullName
 </syntaxhighlight>

Jaberwocky6669: Edited snippets to conform to template Snippet Header.

2012-11-18T18:27:09Z

Edited snippets to conform to template Snippet Header.

Show changes

IEvKI3gv9Wrkd41u: +Snippets Category (+ normalize top)

2012-11-12T15:18:08Z

+Snippets Category (+ normalize top)

← Older revision		Revision as of 15:18, 12 November 2012
Line 1:		Line 1:
	~~<div class="center" style="width~~:~~auto; margin-left:auto; margin-right:auto;">'''Please always credit an author in your script if you use their code, Its only polite.'''</div>~~		__TOC__
			[[category:Snippets]]

			{{Snippet Credit Header}}

	===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _Add User Accounts ~ Author - [http://www.autoitscript.com/forum/user/2709-mhz/ MHz] '''</blockquote> =====		===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _Add User Accounts ~ Author - [http://www.autoitscript.com/forum/user/2709-mhz/ MHz] '''</blockquote> =====

Chimaera: /* Add User Accounts ~ Author - MHz */

2012-05-21T16:02:02Z

Add User Accounts ~ Author - MHz

New page

<div class="center" style="width:auto; margin-left:auto; margin-right:auto;">'''Please always credit an author in your script if you use their code, Its only polite.'''</div>
===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _Add User Accounts ~ Author - [http://www.autoitscript.com/forum/user/2709-mhz/ MHz] '''</blockquote> =====

<syntaxhighlight lang="autoit">
_NetUser('Jack', 'pw_abc')
_NetUser('Jill', 'pw_def')

; Add User Accounts
Func _NetUser($sName, $sPassword = '', $sGroupName = 'Administrators', $iAutoLogon = 0)
; Creates user accounts. Only 1 user can have autologon, if set.
If Not FileExists(EnvGet('AllUsersProfile') & '\..\' & $sName) Then
RunWait(@ComSpec & ' /c ' & _
'Net User ' & $sName & ' ' & $sPassword & ' /add &&' & _
'Net LocalGroup ' & $sGroupName & ' ' & $sName & ' /add &' & _
'Net Accounts /MaxPwAge:UnLimited', '', @SW_HIDE)
If $iAutoLogon Then
Local $sRegKey = 'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon'
RegWrite($sRegKey, 'DefaultUserName', 'Reg_sz', $sName)
RegWrite($sRegKey, 'DefaultPassword', 'Reg_sz', $sPassword)
RegWrite($sRegKey, 'AutoAdminLogon', 'Reg_sz', 1)
EndIf
EndIf
EndFunc ;==>_NetUser
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _GetLogonTime() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
; Get the last date and time the user logged on.

#include <Date.au3>

ConsoleWrite(_GetLogonTime() & @LF)

Func _GetLogonTime($sUserName = @UserName, $sComputerName = ".") ; Idea by trancexx: http://www.autoitscript.com/forum/topic/113611-if-isadmin-not-detected-as-admin/
Local $aRet = DllCall("netapi32.dll", "long", "NetUserGetInfo", "wstr", $sComputerName, "wstr", $sUserName, "dword", 11, "ptr*", 0)
If @error Or $aRet[0] Then Return SetError(1, 0, False)
Local $sHours = DllStructGetData(DllStructCreate("ptr;ptr;ptr;ptr;dword;dword;dword;ptr;ptr;dword;dword;dword;dword;ptr;dword;ptr;dword;dword;byte;dword", $aRet[4]), 18)
DllCall("netapi32.dll", "long", "NetApiBufferFree", "ptr", $aRet[4])
Return _DateAdd("h", "-" & $sHours, _NowCalc())
EndFunc ;==>_GetLogonTime
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _GetUserFullName() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
<syntaxhighlight lang="autoit">
ConsoleWrite('Current user''s full name is: ' & _GetUserFullName() & @CRLF)

; Get the full name of the current user. May be blank if you haven't set a full name.
Func _GetUserFullName()
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2'), $sReturn = ''
Local $oColItems = $oWMIService.ExecQuery('Select * From Win32_UserAccount', 'WQL')
If IsObj($oColItems) Then
For $oItem In $oColItems
Return $oItem.FullName
Next
EndIf
EndFunc ;==>_GetUserFullName
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _IsAdminEnabled() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
ConsoleWrite(_IsAdminEnabled() & @CRLF)

Func _IsAdminEnabled() ; By Rover and guinness
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')
Local $oColItems = $oWMIService.ExecQuery('SELECT * FROM Win32_UserAccount WHERE Name = "Administrator"', "WQL", 0x30)
If IsObj($oColItems) Then
For $oItem In $oColItems
Return $oItem.Disabled = False
Next
EndIf
Return True
EndFunc ;==>_IsAdminEnabled
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _IsAdminEnabledEx() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
#include <Constants.au3>

ConsoleWrite(_IsAdminEnabledEx() & @CRLF)

; Check if the Administrator account is enabled. Using 'net user' and reading the Standard Stream Output.
Func _IsAdminEnabledEx()
Local $iPID = Run(@ComSpec & ' /c net user Administrator', @SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sReturn = ''
While 1
$sReturn &= StdoutRead($iPID)
If @error Then
ExitLoop
EndIf
WEnd

Local $aReturn = StringRegExp($sReturn, 'Account active\s*(.*?)\r', 3)
If @error Then
Return SetError(1, 0, False)
EndIf
Return $aReturn[0] = 'Yes'
EndFunc ;==>_IsAdminEnabledEx
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _IsGuestEnabled() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
ConsoleWrite(_IsGuestEnabled() & @CRLF)
Func _IsGuestEnabled() ; By Rover and guinness
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')
Local $oColItems = $oWMIService.ExecQuery('SELECT * FROM Win32_UserAccount WHERE Name = "Guest"', "WQL", 0x30)
If IsObj($oColItems) Then
For $oItem In $oColItems
Return $oItem.Disabled = False
Next
EndIf
Return True
EndFunc ;==>_IsGuestEnabled
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _IsGuestEnabledEx() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
#include <Constants.au3>

ConsoleWrite(_IsGuestEnabledEx() & @CRLF)

; Check if the Guest account is enabled. Idea by Chimaera.
Func _IsGuestEnabledEx()
Local $iPID = Run(@ComSpec & ' /c net user Guest', @SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sReturn = ''
While 1
$sReturn &= StdoutRead($iPID)
If @error Then
ExitLoop
EndIf
WEnd

Local $aReturn = StringRegExp($sReturn, 'Account active\s*(.*?)\r', 3)
If @error Then
Return SetError(1, 0, False)
EndIf
Return $aReturn[0] = 'Yes'
EndFunc ;==>_IsGuestEnabledEx
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _IsPasswordExpired() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
ConsoleWrite(_IsPasswordExpired() & @CRLF)

Func _IsPasswordExpired($sComputerName = @UserName)
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')
Local $oColItems = $oWMIService.ExecQuery('Select * From Win32_UserAccount Where Name = "' & $sComputerName & '"', "WQL", 0x30)
If IsObj($oColItems) Then
For $oItem In $oColItems
Return $oItem.PasswordExpires
Next
EndIf
Return True
EndFunc ;==>_IsPasswordExpired
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _SetWorkGroupName() ~ Author - [http://www.autoitscript.com/forum/user/44525-jscript/ JScript] '''</blockquote> =====

<syntaxhighlight lang="autoit">
$sNewWorkgroupName = "HOMEOS"
_SetWorkGroupName($sNewWorkgroupName)

Func _SetWorkGroupName($sGroupName)
Local $aRet = DllCall("Netapi32.dll", "long", "NetJoinDomain", "int", 0, "wstr", $sGroupName, "int", 0, "int", 0, "int", 0, "dword", 0x00000040)
Return $aRet[0]
EndFunc ;==>_SetWorkGroupName
</syntaxhighlight>
[[#top|Return To Contents]]

===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _WhoAmI() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====

<syntaxhighlight lang="autoit">
#include <Constants.au3>

ConsoleWrite(_WhoAmI() & @CRLF)

; Displays the username and domain for the currently logged in user.
Func _WhoAmI()
Local $iPID = Run(@ComSpec & ' /c whoami', @SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sReturn = ''
While 1
$sReturn &= StdoutRead($iPID)
If @error Then
ExitLoop
EndIf
WEnd
Return StringRegExpReplace(StringUpper($sReturn), '\n|\r', '')
EndFunc ;==>_WhoAmI
</syntaxhighlight>
[[#top|Return To Contents]]